1 CEEE 1441 JCRSLCRT EQU XCEEEE™ EERE’ = CRT : 
ee a eer OO10 1443 JCRDCRLE EQU” ICRDSEST+“2  CuRRENT Lipa FY Pie e 
15 OO12 1444 JCBOFSBL QU  JCBOCRLB +2 LIBRARY FSB OMAIN POINTE 


File FSB Camiw Pointe 


Bee Meeireae eo OO16 1648 JCBOSEP EQ JCOORSBF 2 VGH OMAN POINTER. 

v 0018 1450 JCBDPSBP EGU JCBDNSBR+2 PSB CHAIN POINTER 
0020 1452 JCBDIPRE QU JOBOPSBP $$ NAME OF FIRST LEVEL PROCE Guy 

1 1453 * CART PROCEDURE WATE TF JCBMHIPT °5 ON AND 
cio oe BS NS Ses Sa THIS JCB 1S POINTED 10 BY THE PI's TCE) 

1 OO25 1456 JCBOPROG £QU JCBDIPRC+8 PROGRAM NATE 


0029 1453 JCBOSTAT EQU” JCBDPROG-1 STATIN BYTE 


LYC7 - 1364-4 


29 JANUARY 82 _PROGND 5726-51 
COPYRIGHT [Br CORP. 1978 at 


. ee eee SPREE eee nee ree ect are 7 


Pea ee 
5 
MGs 


004) 1496 JCRDSLLC EQU JCBDFAIND+1 = SYSLIST CRT LINE COUNTER 


OO4E 1493 JCBONFTF EQU  JCBDSLLC+1 = NUMBER OF FORMATS FOUND 


0050 1500 JCBDFING EQU” JCBONFTF +2 ADDRESS OF FORMAT INjgy ners ie 
0052 1502 JCBOCIBA EQU__JCROFING+2 ADDRESS OF COMPILER INFORATION BLOCK om 
0054 1504 JCBODTFa EQU JCBDCIBa+2 ADDRESS OF FIRST OTF Oh CHAIN isn 
0055 1506 JCBOSLLR EQU JCBDOTFa+i  SYSLIST CRT LIMES REQUESTED , “= 
0056 1508 JCBDOFRG EQU  JCBOSLLR+1 REGION SIZE (DEFAMLTD oe, a eo 
0057 1510 JCBOJBRG EQU JCBDDFRG+! © REGION SIZE (JOB) on 


O05 1512 JCBOMENF EQU JCBOJBRG+7 MENU FORMAT INDEX (WON-RECEMSED US J0RS) 


BO? 
(Svat 12/08/81 15:51 Pa a a ea aS SiG VET 


Sh oho i Bei 


TeweT Or MMO ae 


04 


07 


03) 


10 


1] 


13 


1h * 
1550 * 


1551 * 


Mi ¥ Aihlahahalladiaahhallhalaishilehaiahalaelaliahaliachialdhiial sh dldachatachahsbaiahahihhsteiahinihabchabdlahehaniiaialalahihahaidiaiahe 


0001 155¢ JOBDSSBa 1 
0003 1555 JCBDCCRa FOU 
0005 1556 JCBDPLST FOU 


8 EXTENSION : 


SESSION SPEC TT CATION BLACK POTWTE 


¥ 


CHECK POIN CONTROL BLODK POINTER 


0006 1558 JCBDLPIW EGU JCBBPLST+! 
0004 1559 JCBMALPT EQU  K"O4" 
0006 1560 JCBNOLPY EQU kK “O6* 
0008 1561 JCBMBLPI FQU = x "O8" 


CPL WRLUE 
SUPE SPECIFIED ON Fone StarenewT 
LPT SPECIFIED OW Fae STATE NENT re 
8 LPL SPECIFIED OW FORNS STATEMENT 


OOOF 1563 JCBDERSW EQU  JCBDLPi#+9 
0010 1564 JCBDELNG EQU  JOBDERS V+) 
1565 *** END OF EXPANSION ** 


mia OOO oe 
LENGTH OF JOB EX TENS ON 


4500 SYMBOL VERSTON OF THE ASSEMBLER WAS USED. 


2438 SYMBOLS. 


B03 


eee ee ew 


ONE) 


LENGTH OF MODULE [5S 


2047 


J dae tae eon teats 
Wy 


10 


A03 


ee EN RAG TT Rg wae ER ets 

SOE TSE I Ec Oe LO ONO PEIN TOO canoes ee oat - 
QOOE 1602 SLOMEFCH EQU” SLOMFCHAYSLDSF TCH S¥STEN FéTOM 

1603 *** END OF EXPANSION ** 


RRR IO 


RRR ARK 


B04 
VAT TCB ATTACH TRANSIENT AC ee Te ‘i WYO TACK Tea 70 
01 j ‘ 
ERR LOC OBJECT CODE _ADDR STMT SOURCE STATEMENT See eee ee | FERAL OBJECT Cott a 
02} 0800 2 4SVAT — START X*0800° oparnen | OZ) 
38 COPYR Ne 
4 */" COPYRIGHT= 5726-SS1 COPYRIGHT [BM CORP 1977, 1981 *7 i 
03} 5 */F LICENSED MATERIAL - PROGRAN PROPERTY OF ifn "7 OF 
6 */* REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083.*/ ae Seance teeter 
7 *** END OF EXPANSION ** = 1 | 
04 8 RAKRERAAARARRARRARERRRERRRRER RIOR TR RRR III IEICE IIIa Imi ac @n06g0n0 + " 
10 * TITLE: @SVAT - SUPERVISOR TASK ATTACH TRANSIENT 7 966000 || 
05 * . qoo70000 | UD 
12 * FUNCTION/DESCRIPTION: #SVAT IS CALLED WHENEVER A NEW TASK [5 TO BF * 99089000 pan Ree eoneee 
Be ATTACHED TO THE SYSTEM. FIRST THE TASKS . 
06) 4 TCB 1S ASSIGNED. THEN THE TASK“S MAIN STORAGE * | 
15 * REQUIREMENT 1S DETERMINED. IF MAIN STORAGE IS * eee eat lena 
16 * AVAILABLE, AND SUAP STORAGE AUAILAGLE TO . 0170000 
07 we START THE TASK, AN RB, ACE CIF REWIRED), * aoi3e000 | © 
18 * AND SAP AREA ARE ASSIGNED. ALL NECESSARY = * 90190000 Beceieeet Meta net 
19 * FIELDS IN THE TCB ARE INITIALIZED 70 Stak’ * aio | 
08 20* THE TAGK. THE TCR [S Q’ED TO THE SWWPING = * eorsonge | OG 
2+ WITH THE DISPATCHING ADDRESS POINTING TO THE * 90170000 Penne eee 
22 * BOOTSTRAP CODE IN THE ®B. G Carry 
09 Be * onsoo | 0 
24 * ENTRY POINT: THERE [S ONLY ONE ENTRY POINT - svar * 00200000 | tS 
5 * 7 oer 
10) 26 * INPUT: XR1=> ATTACH PARAMETER LIST . on7oae | 
78 * 00730000 Eee 
28 * OUTPUT: A NEW TASK CREATED, AND XRI-> TASK"S TOR, OR Mtl WALES * ‘70 | 
ll 29* OF FORMAT OOK. WHERE XX [S DEFINED RETURN CODES. * sorsogo0 | 
30* * 90260006 eB edce ad 
31 * EXITS: NORMAL - TO NEXT TRANSIENT IF IMDICATED IN ATTACH PARN LIST * ‘90770000 
1 32 * ~ NORMAL TRANSIENT EXIT IF NEXT TRANSIENT a0 « eozsonse | 1] 
Br bi ‘OG?900I00 ebstienacemtnie Voge bu 
34 * ABNORMAL - NORMAL TRANSIENT EXIT IF ASSIGN FAILURES . o0700000 
1 35% * ponomo | 1 
36 * EXT NAL REFERENCES: CONTROL STORE ROUTINES - ASSIGN/FREE, a 00720000 | eorereeeeneets . 
37 * SCB GET. QUEUE, POST, GPOST. PRR. AND . 007 10000 
14 38 * TWA ACCESS ROUTINES. * oosanoon | | 
39 * * 00350000 an ae 
40 * NOTES: THIS ROUTINE MUST EXECUTE IN THE PRIN STORAGE TRANSIENT . rors 
1 ait AREA * aos7a000 | 15 
42 * * 90380008 Fastin BS asin aa = 
43 * CHARACTER CODE DEPENDENCY: N/A ® B079G000 
16 44% * ooo | 1G 
45 */* CHANGE ACTIVITY - #SVAT 8 ‘90602000 pi inccsetileteiett alley 
46 * 3 rrr 
VW 47. * RELEASE 2 : @@001 - PTR P2SS¥O01 * ooapane | 1 
4g * @aB80 - APAR 5313506 aaBao omewo ff ob 
ao . 0806700 
ea Mee PEASE FP  a@gll3 PENG TE UDP STA ON SuPeteT sf bie ei) u 
Sa m4 Pong” ee os 90606G ai aa a Ae a a ete aa 
52 * : aa093 - SUPPORT SECONDARY So eee RE 
191 53° : @ABSO - APAR S313506 FIX FOR RELEASE 2 * How #L 
54% 2 aa052 - PTR PISCPOZ1 SRJE SUPPORT F 1x as? 00807200 | 
55 * RELEASE 4 = a@145 - ICS SUPPORT INCREMENTAL IMPROWEPENT PIoac? * 00837490 ; 
0} 


AO4 


1637 * 0320 STATISTICAL LOGOUT ACE 0010 
1638 * 

1639 * 0330 INTERVAL TIMER ACE 0010 
1640 * 

1641 * 0340 MSP ERROR ACE 9010 
1642 * 

1643 * 0350 SWAP ACE 

1644 * 

1645 * 0360 MS TRANSIENT LOADER ACE 

1646 * 

1647 * 0370 DISKETTE ERROR ACE 

1648 * 

1649 * 0380 ERROR TASK-TASK ACE 

1650 * 

1651 * 0390 DISPATCHER TQE 

1652 * 

1653 * 0398 MIDNIGHT TQE 

1654 * 

1655 * 03A0 STATISTICAL LOGGING TQE 

1656 * 

1657 _* O3A8__SQS FAILURE TQE 

1658 * 


BO5 
708/81 21:28 SSVAT TCB ATTACH TRANSIENT : a) #SVAT TCB ATTACH TRANSIENT 

ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STé 
: 0290 - MRJE SUPPORT,USING INCREMENTAL IMPROV FLAG 0 68 * f 
: @0135 - MINOR MAINTAINENCE,$TOD AND LITES MACRCS. GY SASK EEKRA 

58 * RELEASE 5 : 70 * 
59 * THE IDMAC MACRO FROM ‘N’ TO ‘D' TO SAVE RLD SECTOR. 03 71% CHAI 
60 * RELEASE 6 _: #298 - MINOR IAINTAINENCE,P10606-REQUEST BY HARRIS 72 RRREKKREK 
TO CHANGE INIATOR ADDRESSES TO EQUATES AND TO 73% 8* 
EXPAND THE IWAEQ MACRO. MAB, 10/05/79. 04 74°" PARMB * 
RELEASE 7: @a354 - EXPANDED MEMORY, PIO704, PRIORITY SUPPORT 1 RRR PRRERAS 

CHANGE, RUB, 12/26/79. 0354 76 * 
05) 0001 77 ACECHAIN E 
66 OER TOI ITO II IRI TODO ITP II III TIS IS ISIS III IIS SSI SSIS 0003 78 ACEIAR E 
0005 79 ACEMAB £ 
06 0006 = 80 ACEPARM] E 


0007 81 ACEPARNZ £ 

0008 82 ACEPARNS E 

ov 0009 83 ACETYPE E&I 
0080 84 ACEMSCL £ 

0000-85 ACECSCL Ei 

08 0040 86 ACEPRIV £ 
0020 87 ACEIOCHN £1 

0010 88 ACELOG CE 

09 0010 89 ACECPERR £1 
0008 90 ACEMMAIT £1 

0008 91 ACEIMISE Ei 

10 92 * NOTE: TH 
0004 93 ACEXLOFF Et 

0001-94 ACEQUIES E 

i OOFE 95 ACEMASK EL 
000B 96 ACEXRI EC 

000D 97 ACEXR2 EC 

1 OOOF 98 ACETCBa EC 
0010 99 ACELEN  E{ 

100 *** END OF 


13 


15 


16 


7 


13 


19 


A05 


AGE 2 09/11/81 


x 
x 
*® 
x 
BY HARRIS * 
x 
cg 
x 
x 
td 


siatslalstalatalataiad 


12/08/81 21:28 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


B06 


PAGE = 3 -V09/11/81 


ADDR STMT SOURCE STATEMENT 


68 * ACE 

69 RRERRKRRARKRKKRKARK RRA KRRRRE KIER EIR IIK III RII IR IR ISI III III IS ISI ISIS SII SN 
70 * el 3x 5R é 7 
71% CHAIN Z TAR : NAB * PARI * rARM2 * 
72 RAKERRRERRAARKKRR AER RARER IRR ER ERA IRI RII RIK III III IIAP II IR IIR 
733 x 8% ge B* ® o* FR 
74 * PARM3 * TYPE * KR1 * XR2 ii TCB y 


75 RERRAARARARRARAERAR ER REAR ARERR ERR RE REE IIR IIR IEE RII IER III I ION 


12/08/81 21:28 


76 * 

77 ACECHAIN EQU 1 
0003 78 ACEIAR EQU _ACECHAIN+2 
0005 «79 ACEMAB =EQU  ACEIAR+2 
0006 80 ACEPARM EQU ACEMAB+1 
0007 81 ACEPARMN2 EQU _ACEPART+1 
0008 82 ACEPARM3 EQU ACEPARIT2+1 
0009 83 ACETYPE EQU ACEPARN3+1 
0080 84 ACEMSCL EQU  X‘80' 
0000 85 ACECSCL EQU X'00' 
0040 86 ACEPRIV EQU X'40' 
0020 87 ACEIOCHN EQU X‘20' 

883 ACELOG EQU 

89 ACECPERR EQU 

90 ACEMMAIT EQU 

91 ACEINUSE EQU  X*08" 


CHAIN TO NEXT ACTION CONTROL ELEMENT 
CALLERS TAR VALUE 

MAB ADDRESS (CONTROL STORAGE ACE) 
FIRST IN-LINE PARN 

SECOND IN-LINE PARM 

THIRD IN-LINE PARM 

TYPE OF ACE (CTRL OR MAIN STORAGE) 
INDICATOR FOR MAIN STORAGE ACE 
INDICATOR FOR CONTROL STORE ACE 
INDICATOR FOR PRIVILIGED ACE 
CHAINED [0B INDICATOR 

INDICATOR FOR SYSLOG CALLED 
INDICATOR FOR ASYNC ERROR ACE. 
MULTIPLE WAIT INDICATOR 

WS ACE IN USE 


92 * NOTE: THE FOLLOWING EQUATE MUST BE THE SAME AS QXLOFF IN SVEQU 


93 ACEXLOFF EQU  X‘04' 


ACETYPE+2 


INDICATOR FOR I0B IS IN REAL STORAGE 
INCREMENT QUIESCE COUNTER VALUE 
MASK TO TURN OFF ALL EXCEPT QUIESCE 
CALLERS XR1 VALUE 


97 ACEXR2 ACEXR1+2 
98 ACETCBA EQU ACEXR2+2 
99 ACELEN EQU  ACETCBa+l 


100 *** END OF EXPANSION ** 


CALLERS XR2 VALUE 
TCB ADDRESS 
LENGTH OF ACE 


A06 


#SVAT TCB ATTACH TRAN 


JERR LOC OBJECT CODE 


BESS RUGLOPLC CY UOC RALCTIRULALE SIAL OT LAL LUG ACE 

1725 ® 

1726 NUBTIACE EQU NUALGACE+NULACE INTERVAL TIMER ACE 
NU@TIACE+NULACE MSP PROC CHECK ERROR HANDLER ACE 


NUGMACE+NULACE ACE FOR SWAP [0B 


1732 NUBPIXACE EQU — NUGSWACE+NULACE ACE FOR MS XIENT SCHEDULER 
1733 * 

1734 NUATEACE EQU — NUGMXACE*NULACE ACE FOR DISKETTE ERP 

1735 * 

1736 NU@CSETC EQU  NUG@IEACE+NULACE CS TASK-TASK ERROR ACE 


B07 
GE 3: VO9/11/81 12/08/81 21:28] |#SVAT TCB ATTACH TRANSIENT PAGE 4 VO9/11/81 12/08/81 21:28 si @SVAT TCE ATTACH TRANS! 
01 
ERR LOC OBJECT CODE ADDR STNT SOURCE STATEMENT ERR LOC OBJECT CODE 
00430000 | 02 102 * ACHEQ 00450000 | 9 

RIOR IIR 103 RARKRAARAKAKRKARAAARRARKKKRARARAAKAA RAR KRARAKRARARRRRRKARERERRRERRA IRI, 
: 7 104 * EQUATES USED BY THE SET ACTION CONTROL WORD ROUTINECNUSET) AND THE * 
* PARIZ * 03} 105 * ACTION CONTROLLERCNUAC) . ® 0 
RIOR RIOR IR: 106 RERERARRARIEIRR RARER AAR RERIER IRE IIII IIR RIAA III III IIIA. 

Fe 107 * EQUATES USED BY THE NUSET ROUTINE 
B x 04 0008 108 SETLOW EQU X‘0B' LOW BYTE OF WORD TO BE SET 04 
RRAR RII 0004 109 SETNM EQU  x‘04" NUMERIC PORTION OF BYTE TO BE SET 


® 110 * SHORT EQUATES USED TO DEFINE THE BIT TO BE SET IN THE ILSW fl 
‘ENT 05} 0000 111 SW ACWO IS TO BE SET 0 
0001112 SW ACWL_IS TO BE SET 
0002 113 SUZ ACWZ IS TO BE SET 
06 0003 114 SB ACU3 IS TO BE SET 06 
0080115 x80 USED TO SET BIT 0 OR 8 
0040 116 x40 USED TO SET BIT 1 OR 9 
) 07 0020 117 x20 USED TO SET BIT 2 OR 10 07 
0010118 x10 USED TO SET BIT 3 OR 11 
0084 119 x08 “+SETNUN USED TO SET BIT 4 OR 12 
08 0044 120 X04 X'40'+SETNUM USED TO SET BIT 5 OR 13 OS} 
0024 "121 x02 X'20'+SETNUM USED TO SET BIT 6 OR 14 
0014 (122 x01 QU X‘1O‘+SETMUM USED TO SET BIT 7 OR 15 
09 : *. 123 RKKERKKKRR AAA KR RK RERKK RRR RARKKRA AER ARRAERRARE KARA KKK EK IK RAR IR RIT, 9 


124 * ACTION CONTROL WORD ZERO EQUATES CACWO) 2 
125 RRAKAARRAAARKAAARKKRRARRERKAARERRRERHR RE RH RARER AEE RRA RARER AKER EAR, 
qu 10 126 * ILSW 10 
AGE 127* BIT 
0080 128 ACSWSIF EQU  X80+SUO 3 RESERVED (SIF DEV AID) 0 
CE 11 0040 129 ACSWFDSA EQU  X40+SUD FDIOS SPINDLE A 
0020 130 ACSWFDSB EQU —_ X20+SWO FDIOS SPINDLE B 
0010 131 ACSWFD EQU  x10+SWo DISK SVC 
12 0084 132 ACSUNSCH EQU X08+SuD WORKSTATION [OCH INTRPT HNDLR 
0044 133 ACSINSVC EQU —_X04+SWO WORKSTATION SVC 
0024 134 ACSWTMR EQU  x02+SuO TIMER 2) LEVEL INTERRUPT HNDLR 
3 0014 135 ACSWCACH EQU  X01+SWO COMMUNICATI.ss OCH 
0088136 ACSWFDSC EQU _X80+SWO+SETLOW 7 FDIOS SPlm.c C 8 
0048-137 ACSWFDSD EQU  X40+SWO+SETLOW 7 FDIOS SPINDLE D 9 
4 0028 138 ACSWPTIN EQU  X20+SWO+SETLOW PRINTER [OCH INTERRUPT HANDLER 10 14 
139 * EQU _XIO+SWO+SETLOU = * u 
140 * EQU XOS*SWOSETLON = * 12 
15 O04C 141 ACSWIOXI EQU X04+SWO+SETLOW I/O XIENT IOCH INTERRUPT HNDLR 13 15 
002C_142 ACSWIOXN EQU _X02+SWO+SETLOW I/O XIENT SVC 4 
143 * QU XOI*SWOSETION = 5 
16 144 * SPECIAL EQUATES FOR TURNING ON MORE THAN ONE BIT AT A TIME 16 
0060145 ACSWDISK EQU _ ACSWFDSA+ACSWFDSB 
146 * EQUATES FOR I/O TRANSIENT AREA DEVICES 
Vv 002C 147 ACSWBDCH EQU ACSWIOXN 2501 READER v7 
002C_ 148 ACSHMISV EQU AC LOSE PEADEE vo uNTa: 


O08 MS ACURA ED ~~ 1255 READER CINTERRUPT ENTRYD 


1 


NOAM &® WINK eH 
ay 


18 mw MEH ERKKRRRARAKAARERRARARE RRR ERA RERR ERE RRRER IRI IRI I III IORI IIR 18 
A ee 7 151_* ACTION CONTROL WORD ONE EQUATESCACH1) k 
- 7 rs 152 RARKAERAKAAERARRAA AK RAR AKER AE RK RKARKRARAAAKAA REAR RE AA RARIK ER RIAA ERR, 
1y| 153." ILSW n 
154 * BIT 


> : 155 *RESERVED X80+SW1 THIS LOCATION IS RESERVED FOR SOFT ERRORS 0 


A07 


09/11/81 12/08/81 21:28 


=e » BD 


ON Se ee 


00450000 


2000 1777 NUALOADI EQU NUBMSSQS+MILMSSQS LOAD ADDRESS WHEN [PL DISKETTE 
1778 * 
1779 *** END OF EXPANSION ** 


BOS 


#SVAT TCB ATTACH TRANSIENT PAGE = 5: VO9/11/81 12/08/81 21:28 
01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 0041 156 ACSWPTSV EQU — X40+SWI PRINTER SVC 02) 
157 * QU X20+SUI * 
158 * EQ X10+SWi x 

03 0085 159 ACSWIOCH EQU  X08+SWI DISKETTE I0CH 03 


0045 160 ACSWIOS EQU — x04+Sin OISKETTE SVC 

161 * EQU  x02+SWI s 6 

04 162 * EQU  X01+SW1 . 7 04 
0089 163 ACSWFDCA EQU — X80+SW1+SETLOW FOIOCH SPINDLE A (ALT. SECTOR) 8 
0049 164 ACSWFDCB EQU = X40+SWI+SETLOW FOIOCH SPINDLE 8 ALT. SECTOR) 9 


05) 0029 165 ACSWFDCC EQU X20+SWI+SETLOW 7 FDIOCH SPINDLE C (ALT. SECTOR) 10 05) 
0019 166 ACSWFDCD EQU X10+SWI+SETLOW 7 FDIOCH SPINDLE D (ALT. SECTOR) 11 
008D 167 ACSWNPRT EQU XO8+SW1+SETLOW LINE PRINTER ERP 12 
06) 004D 168 ACSWHCER EQU X04+SW1+SETLOW MAIN STORAGE PROCESSOR ERP 3 06 
169 * EQU XOZ+SWIYSETLOW ® 4 
170 * EQU  X01+SW1+SETLOW i 5 
07 LD] RRRRRRRARAR RARER ARERR RARER IERIE IIR IIIT IIR RII RIE IT IIR 07 
172 _* ACTION CONTROL WORD TWO EQUATESCACW2) * 
1733 RRARAKKAARAARAARARAAARRARARAKRAKARRKRRKERAKKKRARRAAKAAAARKAKARARARKARRAKK 
08 174 * ILSW 03 
175% BIT 
176 ACSWERR EQU NUCLEUS ERROR HANDLER 0 
09 0042 177 ACSWCSCQ EQU CONTROL STORE COMPLETE Q HANDLER 1 09 
EQU * 2 
. 3 
10) - 4 10 
* 5 
* 6 
11 * 7 ai 
7 38 
= 9 
12 = 0 4 
OO1A 187 ACSWAD EQU X10*SW2+SETLOW ALTER/DISPLAY TO WORKSTATION 
OO8E 188 ACSWKBTR EQU X08+SW2+SETLOW KEYBOARD TRACE 
3 OO4E 189 ACSWLOG EQU X04+SW2+SETLOW SVC TRACE LOGOUT TO DISK 1 
OO2E 190 ACSWIR EQU X02+SU2+SETLOW ALTER/DISPLAY INSTRUCTION TRACE 14 
191 * EQU  X01+SW2+SETLOW ® 5 
14 192 AAKKKKKAAREARRAARAKKAAERARRAREKAARKARARREREAAARAERRRERERKKRAKER ELAR RIR 14 
193 * ACTION CONTROL WORD THREE EQUATESCACH3) i 
194 RREKRRAKRRAREARERKRARARAERARAKRAREAKARKERARARERAKKKEAAKKRARKAKAKRERRAKARER 
5 195 * su 1g 
196 * MIT 
197 * EQU = X80+SW3 * e 
16 198 * EQU  X40+SW3 " 1 16 
199 * EQU — X20+SW3 & 2 
0013 200 ACSUCX EQU — X10+SU3 CONTROL STORAGE XIENT SCHEDULER 3 
7 0087 201 ACSUK FQU X08+SU3 MAIN STORAGE XIENT SCHFOULER 4 i 
0047 202 ACSULDR EQU x04°S3 MAIN STORAGE RELOCATING .GADK®  § 
a0?) 203 ACSWTWA EQU KO2*38 “TASK WORK AREA access “eo ee oe eS 
19) 0017 204 ACSWSWAP EQU  X01+SW3 SWAPPER ‘ 1 
205 * EQU — X80+SW3+SETLOW x 8 
004B 206 ACSWGP EQU X40+SW3+SETLOW GENERAL POST 9 
19 002B 207 ACSWSQP EQU X20+SW3+SETLOW SECTOR ENQUEUE/DEQUEUE POST CP 10 I 
208 * EQU X10+SW3+SETLOW id ul 
209 * EQU — X08+SW3+SETLOW ® 12 


SSVAT TCB ATTAC! 


ERR LOC OBJECT CODE 


B09 


v09/11/81_ 12/08/81 21:28 ji SSVAT CB ATTACH TRANS IE PASE 6 VOS/1i/81 12/08/81 21:28 fs SSVAT CB ATTACH TRANSIENT 

ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR ST 
0 OO4F 210 ACSWKTST EQU X04+SW3+SETLOW TRANSIENT ROUTINES TEST AND SET 13 O2 2 
O02F 211 ACSWMSTS EQU _ X02+SW3+SETLOW WORKSTATION TEST AND SET ENTRY 14 0008_2 
OOIF 212 ACSWECS EQU  XO1+SW3+SETLOW ECS RETURN TO SCIENTIFIC 5 O00 2 
03) OOF? 213 ACSWCOMB EQU X'FO'+SETNUM+SW3 COMBINATION MX, SWAP, TWA AND LOR 0 0080 2, 
214% | 0040 2; 
215 *** END OF EXPANSION ** 0020 2 
4 04 z 
0010 27 
z 
05 05 0008 2; 
2 
0004 22 
0 06 0002 22 
0001 23 
OOEC 23 
07 0? 0004 23 
0090 23 
0000 2 
(0's) 08 000E 23 
0010 23 
0010 23 
09 09 0014 23 
0015 23 
0080 24 
10 10 0040 24 
0020 24 
O10 24 
u ll 0008 24 
0004 24 
0002 24 
12 12 0001 24 
0016 24 
018 24 
B 1 0019 25 
5 
35 
1 1 25 
25 
Bi 
15 15) 0001 25 
0002 25 
Bi 
16 16 0003 25% 
26 
261 
17 7 0004 267 
0005 26: 
Soe ee See Se Traine ie Sit al Pee a ae 
18 u 9007 265 
264 

19 


A09 


6 VO9/11/81 12/08/81 21:28 


B10 


SSVAT TCB ATTACH TRANSIENT 
01 
ERR LOC OBJECT CODE ADDF 


02 


#SVAT TCB ATTACH TRANSIENT PAGE = =©7 09/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


217 * ATACH V-EQU 
000B 218 SATLOAD EQU  X‘0B' LOADER PARM LIST OFFSET 
Q00C 219 SATFLAG EQU  SATLOAD+1 FIRST FLAG BYTE OFFSET 


03 0080 220 SATCREAT EQU X'80' CREATE A NEW TCB 0. 
0040 221 SATREAL EQU Xx'40' LOGICAL = REAL TO LINK a 
0020 222 SATTUBAS ©QU X'20° ON - TUBa PASSED IN PARM LIST 
223 * OFF- JCBA PASSED IN PAR LIST 04 
0010 224 SATNONAM EQU  X'10' ON - DON'T ASSIGN JOB NAME 
225 * OFF- ASSIGN JOB NANE 
0008 226 SATDATA EQU xX‘08" PUT DATA TO SESSION WORK AREA 06 
227 * ALSO, DUPRY UP INVITE 
0004-228 SATPRIV EQU X‘04" TASK 1S PRIVILEDGED 
06 0002 229 SATNSWAP EQU§ X‘02' TASK IS NOT SWAPPABLE 06 
0001 230 SATFRPRM EQU  X'O1' FREE ATACH PARM LIST 
OOEC 231 SATINIT EQU  SATCREAT+SATREAL*SATTUBAS*SATDATA*SATPRIV START INIT 
07 0004 232 SATSPOOL EQU SATCREAT*SATREAL+SATNONA'HSATPRIV START SPOOL 07 
0090 233 SATBATCH EQU SATCREAT+S$ATNONAM START BATCH 
0000 234 SATMSSIZ EQU  SATFLAG*1 2K BLOCKS OF MAIN STORAGE 
08 OOOE 235 SATPRIOR EQU SATNSSIZ+1 PRIORITY OF NEW TASK 08 
0010 236 SATTUBA EQU  SATPRIOR+2 TUB ADDRESS 
0010 237 SATJCBA EQU  SATTUBA JCB ADDRESS 
0014 238 SATSSSN EQU SATTUBA+4 © SSSN VALUE OF NEXT TRANSIENT 09 
0015 239 SATFLAG] EQU SATSSSN+1 SECOND FLAG BYTE 
0080 240 SATRFRSH EQU X‘d REFRESH UNCOND. IF ATACH SUCC. 
10 0040 241 SATCOMON EQU § X‘40' PROG. HAS COMMON 10 
0020 242 SATOKINT EQU  X'20° PASS CONTROL TO INITIATOR 
0010 243 $ATINCIC EQU X10" INCREMENT JOB COUNT 
11 0008 244 SATSYSTK EQU  x‘08" SYSTEM TASK ul 
0004 245 SATNRTUB EQU  X'04° REQ. TUB, BUT NOT OWNER 
0002 246 SATNCNIQ EQU X02" DISALLOW CANCEL OR INQ 
12 0001 247 $ATACHER EQU  x‘01' ATTACHERCMRJE) INDICATGR 12 
0016 248 SATTSKID EQU  SATFLAGI+1 ‘TASK ID OF TASK ATACHED 
0018 249 SATDATAA EQU  SATTSKID+2 ADDRESS OF DATA TO PUT 
13 0019 250 SATLENG EQU SATDATAd+1 — LENGTH OF ATACH PARNLIST 1 
251 * 
252 * ERROR RETURN CODES IN XR1 IN FORMAT OOXX, WHERE XX: 
1 253 * IF ATTACH WAS SUCCESSFUL, XR1 RETURNS WITH ATTACHED TASKS TCB 14 
254 * ADDRESS. 
255 ® 0000 
15 0001 256 SATERROI EQU NOT ENOUGH STORAGE 1 0001 
0002 257 S$ATERROZ EQU TASK NON-SWAPPABLE, AND NOT 0002 
258 * ENOUGH STORAGE 9003 
16 0003 259 SATERRO3 EQU X'03' TASK NON-SWAPPABLE, AND ITS 16 0004 
260 * STORAGE REQUIREMENTS WILL 0005 
261 * PUT A SWAPPABLE TASK 10 SLEEP 0006 
7 0004 262 SATERRO4 EQU  X'04" ASSIGN FAILURE ON TCB V7 0007 
0005 263 S$ATERROS EQU  X‘05' ASSIGN FAILURE ON RB 
0006 264 $ATERROG EQU  X'06" ALLOCATE FAILURE FOR SWAP AREA 0000 
ic 0007 265 $SATERRO? EQU X‘O7" ALLOCATE FAILURE FOR USWA 18 0004 
266 *** END OF EXPANSION ** 
19 a 
0008 
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00470000 


WAN 1926 AAIDACR QU LABLNIDTL 2K _GLOURS OF USER STORAGE 
1853 * 
OOOE 1854 SCAMAXRG EQU SCAMS#2K+1 = 1 SWAPPABLE TASK REGION SIZE 
1855 * 
OOOF 1856 SCASDISK EQU  SCAMAXRG+1 DISK CONFIGURATION 
0080 1857 SCAMDUAL EQU X'‘80" . MULTIPLE SPINDLE DISK IR7| 
0080 1858 SCA2SPIN EQU X'80' : 2 SPINDLE DISK 1R7| 
0020 1859 SCA3SPIN EQU X‘20° ‘ 3 SPINDLE DISK 1R7| 
0010 1860 SCAASPIN EQU X'10° A 4 SPINDLE DISK 1R7| 
0040 1861 SCADKCFG EQU  X'40" - DISK CONFIG FLAG 1R3| 
1862 * ; O- SMALL CAPACITY DISK 
1863 * . 1 - LARGE CAPACITY DISK 
1864 RRRRKRAARKRAAARAERARKARARAR KAA ARK RAR RARER KRARKRRARRRRER ERR RRR IR 
1865 * THE FOLLOWING DISK CONFIGURATION FLAGS ARE VALID ONLY FORA SMALL * 0002 1919 SCAM 
1866 * CAPACITY DISK, ONE WITH 60 SECTORS PER TRACK. ® 0001 1920 SCAN 


1867 RRRKRARRARAARAKRARRARARAAARAERRAAAARARAKRRAR RA ARK ARERR AAARAEKK RARER RI 1921 ® 


0081 1868 SCANDSKS EQU  X'81' : 0014 1922 SCAN 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOU 
269 RAARAAKAAAAARARAARRARAAARARRARAARARAARA RAK ARERR ARARA RA RRA AIR IR III 000A 322 DIX 
2710 RARARRAARARARARRARARARARARARARAARRAA AAR ARKARRKAARAR RAR ARARARRARRARRRRRR 000B 323 DIC 
03 271 ** DIRECT STORAGE AREAS USED PRIMARILY BY THE CTRL STG NUCLEUS * 03 000C 324 DIW 
272 RARARAAARAAARARRARARARARAARRAAARRARRARAERARRARAKRARARAR AAR RAR RARER, 0000 325 D1I 
273 RARERARARARARRARARARARARRAAAAARARARA RAR AREA ARARARARRARARARRARARRRERRRAR 326 ® 
04 327 RRR 
328 * Pl 
275 RRRRRAKRARARERAARARRAARARARARRARARRARAARAA RARER ARK AARAAARARARARRRR RRA 329 xxx 
276 * NOTE: THE LABELING OF ITEMS AS ‘CONSTANT’, OR ‘NON-CONSTANT IS : 05 OOOE 330 015) 
277 * EXACT AND MEANINGFUL. THAT IS, ITEMS IDENTIFIED AS ‘CONSTANT’ * 331 * 
278 * ARE EITHER INITIALIZED AT ASSEMBLY TIME OR ELSE FILLED IN AT * 332 ** 
06 279 * IPL TIME AND ARE NOT MOFIFIED BY ANY OTHER FUNCTION. i 06) 333 * 
280 * ITEMS. IDENTIFED AS 'NON-CONSTANT' MAY BE MODIFIED BY CTRL * 334_**) 
281 * STG NUCLEUS FUNCTIONS OR [/0 FUNCTIONS. * 335 * Tr 
282 * ® 07 0080 336 DIPE 
283 * NOTE: THERE [S A ‘TRADE-OFF' THAT CAN BE MADE AS TO WHERE TO PLACE * : 337 * 
284 * A FULL WORD CONSTANT THAT IS REFERENCED ONLY ONCE: * OOOF 338 DIN 
285 * x 08 339 * 
286 * 1 CONSTANT CAN BE PLACED IN DIRECT AREA AND REFERENCED : 340 _***9 
287 * WITH A ‘L' INST ~ THUS REQUIRING 2 CTRL STG WORDS TOTAL * 341 * SY 
288 * ® 09 342 xxx 
289 * 2 CONSTANT CAN BE PLACED IN REG BY 2 IN-LINE ‘LI‘ INSTS * 0010 343 DIIN 
290 * WHICH HAVE THE LEFT AND RIGHT BYTES OF THE CONSTANT - a 0010 344 DICS 
1 291 * EMBEDDED IN THEM - THUS REQUIRING 2 CTRL STG WORDS TOTAL * 10 345 * 
292 * x 346 RRR 
293 * THE STRATEGY FOLLOWED IS TO ALWAYS USE ALTERNATIVE 1 (UNTIL * 347 * SY 
11 294 * DIRECT AREA [S EXCEEDED) SINCE THIS CONSIDERABLY SIMPLIFIES * ll 348 *RRH 
295 * THE PROCESS AND ERROR RISKS REQUIRED TO GET AN ADDR x 0080 349 DMPR 
296 * CONSTANT SPLIT INTO A LEFT BYTE AND RIGHT BYTE FOR THE LI * 350 * 
12 297 * INSTS. * 1 351 * 
298 RARRKRARRARAKKKAAAKAARRRARKARAKRARAARARKARAKRAREKAARAEAKKKKARKRKRAK KKK AK 0040 352 OI 
353 * 
3 30D RARRRAAAAARAKAARARAARARARAARARAARAERARAARARRARERRRRARRRIAR EAR IIR IRI IIR, 3 354 * 
301_* ‘NON-CONSTANT* NUCLEUS TRANSIENT AREA WORKSPACE. i 0020 355 DPS 
302 * THESE EIGHT WORDS MUST START AT THE FIRST WORD IN THE DIRECT AREA  * t 356 * 
14 303 * BECAUSE THEY ARE ALSO COMMON TO THE IMPL WRAP ROUTINES » 14 357 * 
304 RRRAAAARRAKRRAARRAAAARAARAKARKAAARAAKRAKRAH KK KKRRKAKKARK AK KHAKI IIR IR IR 358 *« 
0000 305 DINUXNTO EQU 0 XIENT WORK SPACE # 0 0008 359 MPIO 
15 0001 306 DINUXNT1 EQU DINUXNTO*+1 © XIENT WORK SPACE # 1 1 360 * 
0002 307 DINUXNT2 EQU DINUXNT1+1 —_XIENT WORK SPACE # 2 361 * 
0003 308 DINUXNT3 EQU DINUXNT2+1 = XIENT WORK SPACE # 3 0004 362 PSIP 
16 0004 309 DINUXNT4 EQU  DINUXNT3+1 XIENT WORK SPACE # 4 16 0002 363 PSIP 
0005 310 DINUXNTS EQU  DINUXNT4+1 —_XIENT WORK SPACE # 5 0001 "364 MLCA 
0006 311 DINUXNT6 EQU DINUXNT5+1 = XIENT WORK SPACE # 6 365 **** 
V7 0007 312 DINUXNT? EQU DINUXNT6+#1 = XIENT WORK SPACE # 7 V7 366 * CO 
313 x 367 RKRK! 
0000 314 DIDSKTAB EQU —DINUXNTO DISK EXTENT TABLE CUSED BY IPL ONLY) 368 * 
18 0004 315 DIDSKTBL EQU 4 LENGTH OF A DISK EXTENT TABLE ENTRY 1 369 ***R! 
316 * 370 * ‘Ct 
317 ARRARERARRRERR EERE KARR ER RAKE A AERA RRR RRR OKRA RR OR RRR RAPER OR Pal wee 
19 318 * “UNUSED WORL> ; 9 acl) gre res 
319 REKRAKRRRRAKKKKAARKERARE KAA ARRAN OEE SED RE Dee eee ees Wide ‘$73 GIS 


0008 320 DIUNUSO8 EQU = DINUXNT7+1 — UNUSED 


| eas 0013 374 DISU 


All 


VE LMS SU CW A UE . AVE - REPORT JUG AT LPL WH * 

14 1905 * ‘ IF NOT IPL, INPUT JOB QUEUE 1959 * 
1906 * : HAS BEEN POSTED 1960 * 

0001 1907 SCAMSPB EQU X'Ol' , X'O1' - ALLOCATE FILE ON ‘B* OO1A 1961 SC 

15 1908 * OOIC 1962 SC 
0013 1909 SCADCFG2 EQU  SCADCFGI+1 1 SSP_ CONFIGURATION OPTIONS 1963 * 
0080 1910 SCAMCNAT EQU X'80' : COMTAND LANGUAGE OOIE 1964 SC. 
16 0040 1911 SCAMPWSF EQU  X'40' 5 PASSWORD SECURITY 0020 1965 SC. 


1966 * 

0022 1967 SC 

0023 1968 SCI 
1969 * 


0020 1912 SCAMJOBQ EQU X'20' 
0010 1913 SCAMSPOL EQU  X‘10' 5 
0008 1914 SCAMMDMK EQU X'08' . DISPLAY STATION DM TRANSIENT 
0004 1915 SCAMDMR EQU  X‘04' DISPLAY STATION DM RESIDENT 


17 


1916 * F NOTE: IF ‘WOMK WONR' BOTH =1° 0025 1970 SC 

18 1917 * s THEN RESIDENT /TRANSIENT 0027 1971 SC 
1918 * : VERSION OF DSOM SELECTED. 1972 * 

0002 1919 SCANKMSG EQU X‘02' A KEEP INFO. MESSAGES AT EOJ [R4] 0029 1973 SCf 

1 0001 1920 SCANCMDE EQU  X‘O1' : COMMAND LANGUAGE IS ENGLISH 002B 1974 SCI 

1921 * 0020 1975 SCF 


0014 1922 SCADCFG3 EQU SCADCFG2+1 1 COMMUNICATIONS FEATURES 1R3} 


B12 


711/81 12/08/81 21:28 #SVAT TCB ATTACH TRANSIENT PAGE =©9 O9/11/81 12/08/81 21:28 


, #SVAT CB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT_S 


00490000 | 02 0009 321 DIASSAVA EQU DIUNUSO8+1 BEST FIT ASSIGN SAVE AREA 8 02 0014 375 D 
OO0A 322 DIXANSWI EQU DIASSAVA+1 EXAM SWAP IN CANDIDATE 6 0015 376 D 
0008 323 DICURX28 EQU  DIXANSWI+] CURRENT CEXAYa - 26) 6 0016 377 D 
03} OO0C 324 DINSCAF EQU DICURX28+1 STORE FEATURE INFORMATION FOR ATOM  a255 03 0017 378 D 
0000 325 DIIOLDAR EQU DIWSCAF+1 SAVED LOGICAL DISKETTE DATA ADDRESS aals4 0018 379 D 
326 * 380 * 
327 RHKRKKRARKAAARARRAARRAARAARAAARRERAAAKAAAAAAAAAAAAARAKAAREKRARAARAR ARIA O04 381 RI 
328 * POINTER TO SME SIO COUNTER AREA IN MAIN STORAGE ® 382 * 
329 RRAKKRKARAAKAAAAAARAARAKRAAARAKAAAAARAKAAK KARA AKAAAAKKAAKRARAKAARARAAARRAAAARK 383 Ry 
05 OOOE 330 DISMFA EQU DIIOLDAR+! — ADDR OF SMF SIO COUNTER AREA IN MAIN STG. 05} 0019 384 DI 
331 * OO1A 385 DI 
332 RAARAKKRAAAAAAAARRRRAKRRARAKAKAARAKAKAARKAKARARARAAAA ARK AARARAAKKAKRRARARA 0018 386 0) 
06 333 * MAIN STORAGE SIZE AND BAD 2K PAGE COUNTER WORD * 06 OO1C 387 D1 
334 RAAKRAAAKRRAKRAARRAARAAAAARAKAARAARAKAKARAAAAARAAKAAKKAAAR ARAKI RIKI 388 ® 
335 * THE FOLLOWING BIT [S SET IN THE HIGH BYTE IF NECESSARY 389 * 
07 0080 336 DIPGFULL EQU  X'80° BAD 2K PAGE ELEMENT IN M.S. IS FULL 07 0010 390 DI 
337 * NUMBER OF BAD 2K PAGES CHIGH BYTE) OOlE 391 01 
OOOF 338 DINSIZE EQU  DISMFari MAIN STORAGE SIZE IN 2K PAGES (LOW BYTE) OO1F 392 DI 
08 339 * 08 0020 393 D1 
340 RARAARAAAAAKRAAARAERAARAAARAAKAERARAAAHK RAR AAAKAERKRARRARAERRARER KARIERRE IR 0021 394 01 
341 * SYSTEM INDICATOR WORD FOR SEGMENT ONE ® 0022395 D1 
342 RARAAAKRRAKRAAAAKRRAKARAKRARAARAAAARRARAAKKAAARAKAAKRATKARAKRAEAKAK RK AKK IRR 09 396 ® 
0010 343 DITNOR1 EQU  DIMSIZE+1 SYSTEM INDICATOR WORD FOR SEG 1 0023 397 D1 
= 0010 344 DICSIZE EQU  DIINORI CONTROL STORAGE SIZE CLOW BYTE> 398 * 
1 345 * 10 399 *x 
346 RRAKRAAKAAAARAKRAKARAAKAKRAKRAKKRARAAARAKAARARA AR AAAKKRA RARER AERA RRR 400 caf 
347 ® SYSTEM INDICATOR WORD BIT EQUATES CHIGH BYTE) ® 401 ** 
ll 34GB KAARRAAARAAARARARRARARAKRAAARAAKRARRARRARARRARARAAERRERAARRA ARE RARER 11 0024 402 D1 
0080 349 DMPROTCT EQU X‘80' OUMP FILE PROTECTED INDICATOR 403 * 
* 0 - THE DUMP FILE [5 NOT PROTECTED 404 * 
12 * 1 - THE DUMP FILE IS PROTECTED 12 0040 405 DS 
STORAGE DUMP CURRENTLY IN PROGRESS 0020 406 XA 
353 * ® 0 - NO DUMP IN PROGRESS 0010 407 DS 
13 354 * * 1 - STORAGE DUMP IN PROGRESS 13 0008 408 DS 
0020 355 DMPSUSAC EQU  X'20' SUSPEND TASK FOR ADDRESS COMPARE DUMP 0004 409 DS 
356 * * 0 - DONT SUSPEND TASK FOR DUMP 3 0002 410 DS 
1 357 * *® 1 ~ SUSPEND TASK AFTER DUP 3 14 0001 411 DS 
358 * EQU_X'10" UNUSED 412 * 
0008-359 MPIOBERR EQU X08" MULTI-PURPOSE [0B ERROR INDICATOR 413 * 
15) 360 * * 0 ~ NO ERROR IN MULTI-PURPOSE I0B 1 414 ** 
361 * * 1 - PERM DISK ERROR IN M.P. 10B 4s * | 
0004” 362 PSIPLFI EQU  x‘04" IPL FROM DISK INDICATOR 416 ** 
16 0002 363 PSIPLI1 EQU X'02' IPL FROM DISKETTE INDICATOR 16 0025 417 Di 
0001 "364 MLCA32K EQU X‘01" MLCA 32K CONTROLLER 8 418" 
365 RARKRKRARERRAAARKAKKARARRARAKAA AAA KAAAKRK A AAR AKAKRAR KRHA RRARKAARAERRARRARR AK 419 x 
17 366 * CONTROL STORAGE SIZE IN SECTORS (LOW BYTE) * 7 acu * 
367 RRRKRERRRRERRRRAARERR RAR IR ICRI III IIIT IOI TOR TOR POI 9080 421 ADE 
368 * aa “0040 422 AD! 
18 369 ARERAERRARERERRAER ERR RARER AR REI RRE REE R RR ER TRE  ee ie 0020 423 AD! 
= 370 * ‘CONSTANT " POINTERS TO CONTROL STORAGE ITENS 0010 424 ADI 
ar 37] FARARAR RRR RRRR AER RRR RRR ERAO RANA NATE RR ORR O DOU UTE OO REDE O TDAH EES ORK ER aE 425 * 
19 O01) 372 Sha 0 TLaNURet. = ADDR OF START OF REG STACK 19 0008 426 ADI 
_= : wile 373 DISVC IMG EQU_DISTKa+l ADDR OF IMMEDIATE SVC TABLE 0004 427 ADs 
0013 374 DISWPMIN EQU  DISVCIMA+] — MINIMUM NUMBER OF PAGES TO PARTIAL SWAP 0002 428 AD! 
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1957 * POSSIBLE THE SS HAS BEEN DEFINED AS A 2 BYTE FIELD. THESE 
1958 * FIELDS ARE ORDER DEPENDENT AND DESCRIBE A ONE-TO-ONE 
1959 * RELATIONSHIP WITH THE SYSTEM CONFIGURATION RECORD, PART-1. 
1960 * 
OO1A 1961 SCASSTWA EQU SCADCMTR+2 = 2 SS OF TASK WORK AREA 
OOIC 1962 SCATWASZ EQU SCASSTWAX2 2 SIZE OF TASK WORK AREA 
1963 * 
QO1E 1964 SCAFVTOC EQU SCATWAS2+2 2 SECTOR ADORESS OF DISK VTOC 
0020 1965 SCAFVTON EQU SCAFVTOC+2 2 SIZE OF DISK VTOC 
1966 * 
0022 1967 SCAIVTOC EQU SCAFVTON+2 = 2 SS OF DISKETTE VIOC WORK AREA 
0023 1968 SCAIVTON EQU SCAIVTOC+1 = 1 SIZE OF DISKETTE VTOC WORK AREA 
1969 * 
0025 1970 SCASIOSS EQU SCAIVTON+2 = 2 SS OF SIO TABLE DIRECTORY 
0027 1971 SCALOGSS EQU SCASIOSS*2 2 SS OF ERROR TABLE DIRECTORY 
1972 * 
0029 1973 SCADSSMS EQU SCALOGSS+2 2 SS OF MAIN STORAGE DUMP AREA 
0028 1974 SCADSSCS EQU SCADSSMS+2 2 SS OF CONTROL STORAGE DUMP AREA 
002D 1975 SCADSSIO EQU  SCADSSCS+2 2 SS OF 1/0 PROCESSOR DUMP AREA 
1976 * 
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ERR LOC OBJECT CODE 0 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


8 02 0014 375 DILATRA EQU DISUPNIN'! ADDR OF LOAD ATR ROUTINE IN SEGMENT 0 02 00 
0015 376 DIREGPTR EQU  DILATRA+? ADDR OF START OF NSP REGISTER SAVE AREA 
0016 377 DISEC@ EQU DIREGPTR+1 SYSTEM COUNTER TABLE ADDRESS 
4255 03 0017 378 DITMVALA EQU DISECa+1 ADDR OF HARDWARE TIMER VALUE 03 
aa1s4 0018 379 DISWTCBO EQU  DITMVAL@+1 —_ SWAPOUT TCB ADDRESS. 
n 
RRR RRR a RAAAAAAAAAAKRARAAAAARAAAAARARAARRAEARRAAARAAAAAAKKRAARAAARKRARAARAKAAAAKK 04 00 
® 382_* ‘NON-CONSTANT' CONTROL STORAGE POINTERS AND WORDS ” 00. 
RRRKKR 383 RARAKRKRAAAAAARRAARKARRAAARRARARRRKKAAAKRARAAAAARAAAAARARAAAAAARAARAR ARRAN 00; 
STG. 0019 384 DIERRMIC EQU DISWTCBO+1 JOB TERMINATION ERROR MESSAGE NUMBER V 
OO1A 385 DIERRTCB EQU  DIERRMIC*+! JOB TERMINATION ERROR TCB ADDRESS 
RARER 001B 386 DIERRACE EQU DIERRTCB+] JOB TERMINATION ERROR ACE ADDRESS 00) 
® 06 OO1C 387 DISTKPTR EQU DIERRACE+1 — ADDR OF CURRENT REGISTER STACK ENTRY 06 
RRRIKK 388 * 
389 * THE FOLLOWING 6 WORDS ARE THE CURRENT LOADER PARM LIST VALUES 
07 0010 390 DILDSS QU DISTKPTR+1 HIGH AND MIDOLE BYTE OF SS FIELD o7 
OOLE 391 DILOSN EQU _DILDSS+1 LOW SS BYTE AND NUMBER OF TEXT SECTORS 
TE) OO1F 392 DILDLINK EQU  DILOSN¢] LINK-EDIT ADDRESS 
08 0020 393 DILDSTRT EQU DILDLINK+1 START CONTROL ADDRESS 03 003 
RRR 0021394 DILORTOT EQU DILDSTRT+1 —_RLD DISPLACEMENT AND NUMBER OF TOTAL SECS 
® 0022 395 DILDLOAD EQU § DILORTOT+1 — MODULE LOAD ADDRESS 008 
cRARRK 09) 396 * OY 008 
0023 397 DIACVERS EQU  DILDLOAD+1 —_A/D ADDRESS COMPARE VERIFY ADDRESS oa 
x 
10} ta RARKRAAAARARAKAARAARAAARARAAAAKKRAAARA RK RAK AARAARAARARAARAKAARARAKKARAARAR ERA 10 004 
RARER 400 * TASK DISPATCHER CONTROL WORD * 002 
ry 401 RARRAARARRARAAKRARAARARAKKRRAAAKRARAAAARARAKRARKAARRKAARAKRA KAA RAK KAARRAK 001 
RRRER ll 0024 402 DIDSPFLG EQU DIACVERA+] = TASK MANAGEMENT FLAGS. 1 000 
403 * HIGH BYTE 000 
404 * EQU X'80° UNUSED. 
12 0040 405 OSPRGRST EQU X‘40" TASK REGISTER RESTORE REQUIRED. 12 
0020 406 XAREAREF EQU  X'20° TRANSIENT AREA REFRESHABLE. 
0010 407 DSPADACT EQU xX"30" DISABLE TASK DISP, ALTER/DISPLAY ACTIVE. 
13 0008 408 DSPFCUR EQU xX‘08' FORCE SWAPOUT OF CURRENT TASK. 3 
3 0004 409 DSPERPND EQU X'04" DISABLE TASK DISP, MSP ERR PENDING = 
3 0002 410 DSPHOLD EQU x*02' TEMPORARY REQUEST TO HOLD DISPATCHING 
3 1 0001 411 DSPEXAM EQU xX‘'O1' EXAM INDICATOR 6 14 
412 * LOW BYTE 
413 * 
15 414 RRRAARARRERARARRAREREARARARARARARA RAR ARRARER ARERR ERR REE Oe 15] 
415 * ALTER/DISPLAY CONTROL WORD ® 
416 ®XRRRRERARARRRARREKRARARARRARA ARORA HOMO ORK SHRRERRARRARRARARARRARRRRK 002 
16) 0025 417 DIADCNTL EQU DIDSPFLG+1 AL TER/DISPLAY CONTROL WORD 16 008 
8 418 * 004 
RRRRE 419 * nigh BYTE CONTROL BITS 002 
® 7 4a * 7 001 
ROKK 9080421 ADEXIT —EQU_X'80" EXIT ALTER/DISPLAY. 000: 
0040 422 ADSYSDMP EQU X*40" ALTER/DISPLAY SYSTEM DUMP REQUEST. 0001 
saree x“ 0020 423 ADINQURY EQU  X'20' DISPLAY A/D OPTION MENU. 13 
, 0010 424 ADTRACE EQU X‘10' INSTRUCTION TRACE, STEP, ADDRESS COMPARE 
saane aes 425 * ENTRY INTO ALTER/DISPLAY. 002 
19 0008 426 ADWAITNG EQU  X'08' ALTER/DISPLAY WAITING. 19 002 
0004 427 ADACTIVE EQU  X'04' ALTER/DISPLAY ACTIVE. 002! 
hp 0002 428 ADITRMOD EQU  X‘02" A/D IN INSTRUCTION TRACE MODE. ra 
2 
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REA 


VE. 


RRR 


RE. 


0053 2009 SCADBSCT EQU  SCAD*TUB+1 
2010 * 

0055 2011 SCADVICE EQU SCADBSCT+2 2 ADDRESS OF DEVICE ALLOC TABLE 
2012 * 

0057 2013 SCADSEUA EQU SCADVICE*2 2 ADDRESS SEU PENEER CHAIN 

0059 2014 SCADSEUQ EQU SCADSEUR2 2 SEU QUEUE HEADER 

0059 2015 SCAIPLWS EQU  SCADSEUQ 2 IPL WORK AREA 


1 NUMBER OF USERS OF BSC 0M 


13 


15) 2016 * 
005A 2017 SCADSLOG EQU SCADSEUQ+] 1 SYSLOG ASSIGNED INDICATOR 
OOEO 2018 SCAMPRT EQU  X"EO" . SYSLOG ASSIGNED TO PRINTER 
16 0010 2019 SCAMCRT EQU X'10' . SYSLOG ASSIGNED TO WORK STATION 
2020 ® 
0058 2021 SCASYS1 EQU  SCADSLOG+1 1 SYSTEM CONFIGURATION BYTE 5 
17 0080 2022 SCAHFERR EQU  X'80' . X80" ~ ERROR IN HISTORY FILE 
0040 2023 SCAMIPLC EQU  X'40' .___ X40" - IPL-PROCESSING COMPLETE 


0020 2024 SCAOVER EQU  X'‘20' 
0010 2025 SCAMIPL EQU X‘10° 
0008 2026 SCAMRBLD EQU 
0004 2027 SCANEJCT EQU 
0002 2028 SCANCLOK EQU 
0001 2029 SCAMPREP EQU 


X"20° - IPL-OVERRIDE RECEIVED 
X'10' - IPL-SIGN ON COMPLETE 
X'03' - IPL-FILE REBUILD 
X'04* - SYSLOG EJECT AT EOJ 
X'02" - CONFIG RECORD LOCK {R31 
X‘O1' - PREPARE REQUEST ISSUED 
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01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 0001 429 ADSTPMOD EQU X‘0l' A/D IN INSTRUCTION STEP MODE. 02 
430 * 
Bi * LOW BYTE CONTROL BITS AND OFFSET INTO SADINIT 
03 432 * OXREF TABLE THAT HAS DISK ADDRESSES OF 0. 
433 * A/O TRANSIENTS. 
434 * 
0080 435 ADSTOPN EQU X'‘80° LEAVE STOP LATCH ON WHEN EXITING A/D. 04 
0040 436 ADSCO960 EQU X'40' 960 CHARACTER CRT SCREEN 
0020 437 ADRSTOMP EQU X20" ON - RESET START DUP. aa224 
05) 438 * OFF - SYSTEM DUMP. aa224 05 
439% USED IN CONJUNCTION WITH ADSYSDYP. aa224 
0010 440 ADSTPTSK EQU X10" INSTRUCTION STEP BY TASK IS ACTIVE. aas44 
06) 441 * 06) 
LOW ORDER 4 BITS IS OFFSET INTO SADINIT OXREF TABLE. 
07 ‘444 RRKAKKRAARAAAARAAAKRRRAAAKRAAAKRAAKKKRKAAAAAAARKARAERAERRAARAARAAARAAAAAAAAKKRK 07 
445 * SYSTEM FLAG WORD ® 
08 0026 447 DISYSFLG EQU DIADCNTL+1 SYSTEM FLAGS. 08 
448.* HIGH BYTE 
0080449 TRALOAD EQU  X*80° MS XIENT AREA LOAD IN PROGRESS. 
09 0080 450 SWAPIO. =EQU  X'80' SWAP 1/0 IN PROGRESS. 9 
0080 451 TWALOAD EQU  X‘80' TASK WORK AREA LOAD IN PROGRESS. i 
0080 452 LDINPROG EQU X80" M. 5. LOADER ACE IN PROGRESS. 
10 0040 453 LOFCHREQ EQU X‘40" CURRENT M.S. LOADER REQ IS A FETCH 10 
0020 454 GETPANYP EQU x '20' NS GETP ANY PAGE 
0010 455 GETPHSIC EQU K'l0° NS GETP HAVE SWAP-IN-CANDIDATE 
11 0008 456 GETPNOTC EQU X98" NS GETP NOT COMPLETE ll 
0004 457 EXAY =—EQU.X'04" EXAM! INDICATOR FOR NS GETP XIENT 6 
458 * EW xX*02" UNUSED. 
12 459 * equ X‘Ol' UNUSED. 1 
460 * LOW BYTE 
461 * EQU. X80" UNUSED. 
B 462 * 13 
463 * 
l 14 
15 1 
0027 470 DIASRFLG EQU  DISYSFLG+] ASSIGN RECOVERY FLAG ” anes 
16 0080 471 ASGNERR EQU xX'80' PERMANENT ASSIGN FAILURE HAS DCCURRED. 16 
0040 472 AFINPROG EQU  X‘40' ASSIGN RECOVERY IN PROGRESS. 
0020 473 ASGNSEQ EQU  X‘20" ASSIGN RECOVERY SEQUENCE HAS BEEN STARTED 
7 0010 474 ASGNPAGE EQU X'10‘ A PAGE HAS BEEN ASSIGNED. iu 
0008 475 ASGNWATR EQU  X‘08" ASR WAITER OUTSTANDING MUST RECOVER 
OOOF 476 ASGNRTRY EQU  X‘OF MAXIMUM NUMBER OF RELOOPS 
13 4q7 * LOW BYTE USED FOR A COUNTER 13 
478 * 
0028 479 DITIMAB EQU  DIASRFLG+! TIMER MAB SAVE AREA. 
19 0029 480 DITPTOXH EQU DITIMAB+] —TOX OF FIRST TQE ON QUEUE CHIGH.> 19 


002A 481 DITPTOXL EQU  DITPTOXH+1 — TOX OF FIRST TQE ON QUEUE CLOW.) 


SSVAT TCB ATTACH TRANSIEN 


ERR LOC OBJECT CODE A 


RiQ SS PS OS SIS & RIS @ elie o ole vo colo o 


RRRIR2R2L2& 


SSZei2ze 


S8Sssisex 


482 * 


Al4 


1/81 


12/08/81 21:28 


Ew EU OU oh LE 


0080 2074 SCAMCPL EQU  X'‘80° 
0040 2075 SCAMALL EQU x‘40° 
0020 2076 SCANSJE EQU X‘20' 
0010 2077 SCAMUSE EQU  X‘'10' 
0008 2078 SCANSST EQU X'08' 
0004 2079 SCAMQS EQU X‘04' 


0002 2080 SCANSEC EQU  X‘02' 
0001 2081 SCAMERP EQU X‘O1' 


mre tivo 


2082 * 


0071 2083 SCADCPS2 EQU  SCADCPS1+] 


SwiiuE Vill Ut 


.__ STOP COMPLETE MESSAGE SENT 


NO JOBS CAN BE INITIATED 
SPOOL WRITER/JOBQ EOJ REQUIRED 
WSDM SEND E0J COMPLETION CODE 


. SPOOL WRITER HAS BEEN STARTED 


JOBQ HAS BEEN STARTED 
SECURITY IS ACTIVE 


- CALL 1/0 ERP TRANSIENT 


SWITCH BYTE TKO 


0080 2084 SCAMKEYS EQU  X'‘80' . KEY SORT ALL FILES AT SHUT DOUN 
B15 


H aes TCB ATTACH TRANSIENT 


ce LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


PAGE 
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483 KRRKRAAARRAAARARAAAARRAKRKRARARKAARARRARARARARERKRARRARAERAERRARERRERRAR 


484 * ‘CONSTANT’ POINTERS TO MAIN STORAGE ITEMS 
GQ) RRRAARRARRERARAAARRARRARAARARERRARRRRARRARREANARARRRRARARRARRRRRRRARARR 
002B 486 DITCBHOR EQU = D1TPTOXL+1 
002C_ 487 DIMSATRS EQU _DITCBHOR+) 
002D 488 DIFREEPT EQU DINSATRS+1 
04 OO2E 489 DIMKNTPT EQU  DIFREEPT+1 
0O2F 490 DIDSTQE EQU DIMXNTPT+1 
0030 491 DITRSAVE EQU  DIDSTQE+1 


0031 492 DIMNTQE EQU  DITRSAVE+1 


0032493 DLXNTBL EQU _ DIMNTQE+) 
0033 494 DIKACEA EQU DIXNTBL+1 


07) 


0034 495 DIMPIOBA EQU DIMKACE@+1 


0034 498 DIMXIOBa EQU DIMPIOBa 


0034 499 DILDIOBa EQU  DIMPIOBa 
0035 500 DISWACE EQU  DINPIOBa+1 


0080 
0040 
0020 
0010 
10 


1l 


0037 
0038 
0039 
0039 
003A 
0038 


12 


13 


14 


15 


16 003F 


0040 


7 


18 0041 


0042 


502 _* 
503 ASGNFATL EQU 
504 FOFAIL QU 
505 TASFAIL EQU 
506 USQSFAIL EQU 
507 * EQU 
508 * EQU 
509 * EW 
510 * EQU 
511* 

512 DISTKSAV EQU 
513 DIQHSAVE EQU 
514 DLIPIOBa EQU 
515 DITRACEA EQU 
516 DITRIOBA EQU 
517 DITIACEa EQU 
518 * 


0036 501 DIGPFLAG EQU D1SWACEa+1 
HIGH BYTE 


80" 
40 
K'20' 
X10" 
x08" 
K'04" 
x02" 
K'01' 


DIGPFLAG+1 
DISTKSAV+1 
DIQHSAVE+1 
D1IPIOba 

DLIPIOBA+1 
DITRIOBa+1 


ADDR OF MAIN STORAGE TCB QUEUE 
ADOR OF MAIN STORAGE ATR MAP 
ADOR OF MAIN STORAGE FREE AREA 


ADDR OF MAIN STORAGE TRANSIENT AREA 
ADDR OF MAIN STORAGE DISPATCHER TQE 


SVC TRACE ADDRESS SAVE AREA 


ADDR OF MAIN STORAGE MIDNIGHT TQE #aaaw 


ADDR OF MAIN STORAGE XIENT TABLE-4 
ADOR OF MAIN STORAGE XIENT ACE 


ADOR OF MAIN STORAGE MULTI-PURPOSE I0B. 
0034 496 DISWIOBA EQU  DIMPIOBa ADDR OF MAIN STORAGE SWAP 10B. 
0034 497 DITWIOBA EQU DIMPIOBa ADOR OF MAIN STORAGE TASK WORK AREA I0B. 


ADDR OF MAIN STG XIENT SCHEDULER 108. 


ADDR OF MAIN STG RELOCATING LOADER 108 


ADOR OR MAIN STORAGE SWAP ACE. 
GENERAL POST FLAG WORD 


SQS FAILURE INDICATOR 

DISK ENQUEUE FAILURE INDICATOR 
TEST AND SET FAILURE INDICATOR 
WSQS FAILURE POST CODE. 
UNUSED. 

UNUSED. 

UNUSED. 

UNUSED. 


STACK POINTER SAVE AREA 


SAVE AREA IN QUEUE ROUTINE FOR Q HEADER 


ADDR OF IPL _I10B (VALID DURING IPL) 


ADDR OF DISK TRACE ACE CVALID FOR TRACE) 


ADDR OF TRACE 108 
ADDR OF MS INTERVAL TIMER ACE 


519 RRARAARAAKARARAARARAARARAAAERRARAKRARRERRARRA RRA ARAERA RAR ARAARARAR RARER 


520 _* ‘CONSTANT’ AND ‘NON-CONSTANT' POINTERS TO MAIN STORAGE ITENS 


§21 RAKRAARKRAKKRARKARERKAKAKARRRAK EARAARKRARRAKRAARARREAKRRARRKKRKRKKKKHKKAKAK, 


525 DIQUEVEA EQU 
526 DIRTTABL EQU 
527 * 


003C 522 DIFRCTCB EQU DITIACEA+] 
0030 523 DIDSPTCB EQU DIFRCTCB+1 
OO3E 524 DICURJCB EQU DIDSPTCB+1 


DICURJCB+1 
DIQUEUES+1 


FORCE OUT CURRENT TASK TCB ADDRESS 
CURRENT MAIN STORAGE TCB ADDRESS 
CURRENT JOB CONTROL BLOCK ADDRESS 
QUEUE HEADER START ADDRESS 


RESOURCE TABLE ADDRESS IN MAIN STORE 


528 XRRARKRAAKRAARAAAARRARRAAARARKARRA KERR AARA RAR KARA ERRERE RRR KARRI E ERIK 


529 * 


531 DIIUSWRK EQU 
532_DISAVEIN EQU 


0043 
0044 
0045 


19 


533 DITARS EQU 
534 DICURTCB EQU 
535 DIXTCBa EQU 


DIRTTABL+1 
DIILSWRK+1 
DISAVEIN#1 
DLIARS+1 

DICURTCB+1 


0046 


536 DILDACEA EQU 


DIXTCBa+1 


“NON-CONSTANT* POINTERS TO MAIN STORAGE ITEMS 


53Q RARAAAAAARRAARAKARARRAERAARRAK RAK RELA AR AAR RR AAA ARRAR AKA RAR IR IR 


WORK AREA FOR USE ON IL5 

POST ROUTINE INPUT SAVE AREA 
SAVE AREA FOR INPUT IAR VALUE 
ADDR OF MAIN STORAGE WORKING TCB 
MS_XIENT AREA OWNER. 


ADDR OF ACTIVE M.S. LOADER ACE 


Al5 


“SVAT TCB ATTACH TRANS 
01 


« 


05} 


07 


09 


10 


11 


7 


1g 


ERR LOC OBJECT CODE 


ADOR STINT SO 


0047 


REREE 8332 


g 


g 


537 D1 
538 01 
539 DU 
540 01 
541 LO 
542 ® 

543 O1 
544 01 
545 01 
546 DV 
547 01 
54g * 

549 x 
550 * 
‘551 Re 
552 Ou 
553 * 

554" 

555 Olt 
556 Ol 
557 DL 
558 DIC 
559 DIC 
560 DiC 
561 O1P 
562 * 

563 *Re 
564 * 


11/81 12/08/81 21:28 


2126 * 

0084 2127 SCACSATB EQU —SCADCPWa+2 
2128 * 

0085 2129 SCADXSLT EQU  SCACSATB+1 

008A 2130 SCADSLOT EQU  SCADXSLT+5 
2131 _* 

0088 2132 SCADNQNT EQU  SCADSLOT+1 
2133 * 

OSC 2134 SCADCSP1 EQU  SCADMONT+1 

0080 2135 SCAN255 EQU X‘80" 

0040 2136 SCAMARNR EQU  X*40' 
2137 * EQU. X‘20' 

0010 2138 SCAMACDV EQU  X‘10° 


0020 21 
0010 2181 SCA 


2 CONTROL STORE ALLOCATE TABLE 


1 [2 SLOT NUMBER CHEX) 
5 12 SLOT NUMBER DECIMAL 


{R31 
(R31 


1 MESSAGE Q COUNT 


1_ CSP > NSP_INTERFACE BYTE 
. NICR ATTACHMENT ON SYSTEM (R2| 
« 12 DISKETTE ATTACHMENT 1R31 
«RESERVED FOR ADDR COMPARE DUMP 
ERROR ON OUMP - PARTIAL DUMP TAKEN 


B16 
#SVAT TCB ATTACH TRANSIENT 4SVAT CB ATTACH TRANSIEN| 
1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STNT Si 
0047 537 DISWICBI EQU DILDACE@+1 © SWAPIN TCB ADDRESS. 0061 591 0 
0048 538 DITWICBa EQU DISWTCBI+1 TASK WORK AREA TCB ADDRESS (SHARED) 0062_592 0 
0048 539 DILOTCBA EQU  DITWICBa RELOCATING LOADER TCB ADORESS (SHARED) 593 * 
03} 0049 540 DILOGPT EQU DITWICBa+1 — ADDR OF NEXT TRACE LOG OUT ENTRY 0 0063 594 01 
OOFF 541 LOGTFULL EQU  xX'FF’ STORAGE TRACE TABLE FULL 595 
542 * CH) = X"FF’ TRACE BUFFER IS FULL 96 * 
04 004A 543 DILOGLIM EQU DILOGPT+1 END ADORESS OF TRACE BUFFER 04 97 
0048 544 DICURAQE EQU DILOGLIM*] — CURRENT AQE 0064 598 DI 
004C 545 DiASRTQE EQU DICURAQE+1 ASSIGN RECOVERY TQE ADDRESS. 0065 599 0] 
05 0040 546 DIAQEWRK EQU DIASRTQE+! © RESOURCE ENQUEUE/DEQUEUE WORK AREA 05 0066 600 DI 
004E 547 DIQSAVE EQU DIAQEWRK+1] — SAVE AREA FOR MAB IN QUEUE ROUTINE 0067601 01 
548 * 0068 602 D1 
06) 549 RRAAERARARAKARRARAARAARRERRARARKRAAAKRAARRAKRARRAKRAARARRKAKRARKRLKKK RRR, 06} 0068 603 01 
550 * ‘NON-CONSTANT' DISK ADDRESS POINTERS * 0069 604 D1 
5§1 RRRARRARRAARRRAKKRAARAHRARARARRARARRRKRAKRRKKRARRRRRAKAKAAAKRAARREARRAAARAARAAR 0069 605 01 
07 OO4F 552 DILOGSSH EQU DIQSAVE+1 | SECTOR ADORESS OF TRACE FILE, BUFFER SIZE 07 006A 606 D1 
553 * CH) = SECTOR ADDRESS (L) OF TRACE FILE S07 * 
554 * CL) = SIZE OF TRACE BUFFER CN) 608 * 
08 0050 555 DILOGSS EQU DILOGSSH+1 — SECTOR ADDRESS OF TRACE FILE CH, 03 609 * 
0051 556 DILOGSIZ EQU DILOGSS+] TRACE FILE SIZE 610 *" 
0052 557 DILOGUSD EQU DILOGSIZ*+1 TRACE FILE CURRENT POINTER (OFFSET) 0068 611 Di 
09 0053 558 DICURXNT EQU DILOGUSD+1 DISK ADOR OF XIENT CURRENTLY IN MS AREA 09} 612 * 
0054 559 DICSDUMP EQU DICURXNT+1 — CONTROL STORAGE DUMP FILE SECTOR ADDRESS 613 ** 
0055 560 DICURTRB EQU DICSDUMP+1 CURRENT REQUEST BLOCK 614 * 
10) 0055 561 DIPREVRB EQU  DICURTRB 10} 615 ** 
562 * 616 * 
563 RRKKKKRAKKRAAKARAARRAARKAKRARAAAKRAEARARRRERARKAKK ARR ARAKRAKKRARARARARRAK 617 2. 
ll 564 * MS. PROCESSOR REGISTER SAVE AREA ® ll 618 * 
565 RAAERAKARAAKAAARERRKRARARERAKRERARAAKRRARRKKKRAARERRAAARREKAARAAARKAEKRKAK 0060 619 01 
0056 566 DIXR]  EQU OICURTRB+]  XRI 0060 620 Di 
12 0057 567 DIXR2 QU DIXRI+1 XR2 12 621 * 
0058 568 DIARR EQU _DIXR2+1 ARR 006E 622 DI 
0059 569 DITAR  EQU  DIARR+] TAR 006F 623 Di 
3 005A 570 DIPMRPSR EQU  DIIAR+1 PMR AND PSR 13 624% 
0058 571 DIRQ  _EQU _DIPMRPSR+] —_—R_ AND Q BYTES 0070 625 DI 
005C 572 DiINL12 EQU  DIRQ+1 INLINE PARAMETERS 1 2 626 * 
14 0050 573 DIINL34 EQU DIINL12#1 _ INLINE PARAMETERS 3 4 14 0030 627 RC 
574% me 628 * 
575 RARRAAKARRAKKKKLKRRKRERERKKAKKRKRAKRARAARERKAARAARKKRRAAKKKLAAKAKKAKAARAKAN 6. we 
1 5)o * '!5 WORK AREAS OR HPIOCH ® 15 630 * | 
577 RARER OSE HARREERERERRRERRAREEKERKKRAREREARERRRRARERKERAARERR RARER KER 631 aK 
OO5E 578 DIUNUSSE EQU 7) INL 34-1 >>>>>° UNUSED <«xc< 632 * 
16 OO5F 579 DIILSPCR EQU DiUNUSSF+1 — CMR/PCR SAVE AREA. 16 0071 633 D1 
0060 580 DIHPCSDA EQU DIIL5PCR+: MSP CONTROL STATUS -  CHNL DEVICE ADDR 634 * 
0080 581 HPASGERR EQU ‘80° “AL. coN FOTLURE HAS OCCURRED. 0072 635 Dit 
7 0040 582 HPSTART EQU X‘40' START THE MOF SFFORE EXIT 7 636 * 
0020 583 HPIZSVCA EQU  x'20' POST SVC FROM iL. °~ IN PROCESS 637" 
0010 584 HPCSSVC EQU  xX*10° CS SVC REQUEST = 638 | 
18 0008 585 HPNOTBSY EQU x‘03" MSP NOT BUSY (NO TASK AVAILAB: - 18 639 
0004 586 HPWAITNG EQU  X‘04" MSP WAITING FOR START KEY 640 * 
0002 587 HPNOSTRT EQU  X‘02' SUPPRESS START OF MSP - a 0073 641 D1 
14 0001 588 HPERRPND EQU  X‘O1' ERROR PENDING, RECOVERY IN PROCESS 


589 HPHALTED EQU 


HPNOTBSY+HPWAITNG+HPERRPND DO NOT START MSP | 


590 * 


Al6 


0080 2178 SCAMLINI EQU  X‘80" « COMMUNICATIONS ON LINE 1 
0040 2179 SCAMLIN2 EQU  X'40" COMMUNICATIONS ON LINE 2 {R31 


0020 2180 SCARLINS EQU X'20° ~ COMMUNICATIONS ON LINE 3 1R61 

16 0010 2181 SCAMLING EQU  X‘10' . COMMUNICATIONS ON LINE 4 1R61 
2182 * 

0008 2183 SCAMACU] EQU  x‘03" ~ AUTO CALL ON LINE 1 1R6! 

7 0004 2184 SCAMACU2 EQU  X'04' . AUTO CALL ON LINE 2 1R64 

0002 2185 SCAMACU3 EQU X‘02' AUTO CALL ON LINE 3 1R61 

0001 2186 SCAMACUS EQU” xX‘OT" ~ AUTO CALL ON LINE 4 (R61 
13 2187 * 


0088 2188 SCANK211 EQU X‘88° «_X.21 ON LINE 1 {R81 
2 


1 
0044 2189 SCAMK212 EQU  X"44° » X.21 ON LINE 2 1R8] 
0022 2190 SCAMK213 EQU X'22' + X21 ON LINE 3 {R81 
0011 2191 SCANX214 EQU X‘11° -__X.21 ON LINE 4 18! 
B17 


W09/11/81 12/08/81 21:28] {SVT TCB ATTACH TRANSIENT PAGE 14 O9/11/81 12/08/61 21:28 ss *SVAT TCB ATTACH TRANSIE 
0 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STF 
¥ 0061 591 DIHPCSTK EQU DIHPCSDA+! CURRENT STACK POINTER FOR CS SVCS FROM IL2 0 0080 6 
0062 592 DIHPSTK EQU  DIHPCSTK+1 — STACK POINTER FOR CS SVC REQUESTS FROM 112 0040 
593 ® UOLZ0 
0063 594 DIRNQSAV EQU DIHPSTK+1 RESOURCE ENQUEUE/DEQUEUE SAVE AREA 03} 0010 6 
595 RARARAAAARAARARRARRARRARRARRARARRARAAARAAARRARAEARARRARAE REAR RER RAR R 0008 64 
596 * “ACE BUILD AREA x 0004 6 
597 RRAAARKRARRARKRARARAAARAARAKRKAARRRRRAAAAAARRRKRRRAKRAKRRRRAARRARKRAARKR NK O4 0002 65 
0064 598 DIACEIAR EQU DIRNQSAV+1 ACE TAR VALUE 0001_ 65 
0065 599 DIACENAB EQU  DIACEIAR*] ACE MAB VALUE 65 
0066 600 DIACE12 EQU DIACEMAB+] — IN-LINE PARIS 1 AND 2 0} 6 
0067 601 DIACE34 EQU  DIACE12+1 IN-LINE PARMS 3 AND 4 OOFC 65 
0068 602 DIACEXRI EQU  DIACE34*1 ACE XRi VALUE 6 
: 0068 603 DIACEIOB EQU DLACEXR1 ACE 108 @ VALUE 06 65 
: 0069 604 DIACEXR2 EQU DIACEIOB+1 ACE XR2 VALUE 65 
(0069 605 DIACEPLa EQU  DIACEXR2 65 
006A 606 DIACETCB EQU DIACEXR2+1 —TCB ADDRESS o7 a 
607 * 
608 RARKKRAAAAKKKRAKRRARAARAAAAAAAAARAARAAAAAKKKKAKAKAARKARERAAAKRARRKRAKRRRER 0076 66 
609 * ENTRY POINTS FOR ROUTINES IN THE FIRST SEGMENT OF CONTROL STORAGE * 08 56 
610 KAKRARKRARRARARAKRARRRARARKKAA KAKA AAR RERAKKKKRAARAAAKRRRERAAAARRER ARR 
0068 611 DISETSWa EQU  DIACETCB+! SET ACTION CONTROL WORD ENTRY POINT 
612 * 09 
613 RAARRAARAARKRARARKRAAKAAKRAARRAARRKAKKKRAKRAAKAARRRARRKRARRARKRARAAAAKRAKRRR 
614 * MISCELLANEOUS CONSTANTS ® 
615 RAKRRRARRAARRAKAKARRAKAKRRAKAKRAARKARARAARKK AAKAAAKRARRERERARARARA RARE RARER 10 
616 * 
617 * Q AND R BYTE PARMS FOR DISK READ/URITE FUNCTIONS CUSED BY NUDIO) - 
. 618 * 
006C 619 DIRDS EQU DISETSWa+1 —_Q/R BYTES TO READ INTO MAIN STG 
006D 620 DIRDCS EQU  OIRDMS+1 Q/R BYTES TO READ INTO CTRL STG 
621% 
OO6E 622 DIVRMS EQU  DIRDCS+1 Q/R BYTES TO WRITE FROM MAIN STG 
OO6F 623 DIWRCS EQU  DIWRMS+1 Q/R BYTES TO WRITE FROM CTRL STG : 
624 * I 
0070 625 DIDSTIME EQU  DIWRCS+1 DISPATCHER/ SWAP TIME INTERVALS 
626 ® >> TASK TIMER INTERVAL: “ 
003D 627 RCTMINT EQU 61 >> 61 TIMER UNITS = 499.712 MSEC.  <s#sttaw 14 
628 * 
629 REKRKKRAAAAKRARARRA ARE RKRERAKRAKARARKAKKARKAKRRKKRKAAKAARARKRERAKRAAKKKK 
630 * NON CONSTANTS FOR MSP ERROR RETRY STORAGE CORRECTION x 1 
631 RRAKKAKRAKKKKRARKRERRKKERKEKKER ARERR RA RRR REAR AHI RRR IRI IIR IE 
632 * 
633 DIHCSTGa EQU © DIDSTINE+1 FAILING MS ADDRESS . 16 - 
634 * 
0072 635 DIHCSTGD EQU  DIHCSTGa+l CORRECTION FLAG / CORRECTED DATA , 
636 * 
637 RRRARAARKKEAAERAAKKRAR ARE K RAK RAAKKRRARKRERLE KER AAREK RAR RAIA IKARIA IIR 
638 * ALTER/DISPLAY WORDS FOR ADDRESS COMPARE/VERIFY FUNCTION x 
639 RAKRRAKKRAKRKRERRERKAARKRAKRKKKAKEKRARAEKERKRARAA REE RRERRERE RARER EAI IRIN 18) 
640 * 
Pea! Sea, 0073" 641 DIACVERD EQU DIHCSTGD+1 A/D ADDRESS COMPAGE VERIFY DATA 
0074 642 DIACTSKa EQU DIACVERD+1 A/D ADDRESS COMPARE TASK ADDRESS 19 


__.0075 643 DIACCNTL EQU__DIACTSKa+1 A/D ADDRESS COMPARE CONTROL UDRD 
4a * HIGH BYTE 


Al? 


LE MUOTURT Tale Vinay. IP OO 


21 * Fi! 
15 OOA2 2232 SCADRSEC EQU SCADCFG7+3 3“ RESERVED FOR SECURITY USE 5 oR? Kod , 
2233 * | 
O0A4 2234 SCADHFIK EQU  “SCADRSEC+2 ~ 2° “SECTOR OFFSET OF VTOC ENTRY: 183i 1 | OORT 2288 
16 2235 * . HISTORY OVERFLOW FILE, SHISTOVE 6 278 
2236 * 000d | 
OOA6 2237 SCADURKA EQU  SCADHFUK+2 2 ADDRESS COMPARE UDRKAREA ADOR 1R3/ OBO 3291 
VV 2238 * i 2202 | 
OOA7 2239 SCADCFGS EQU SCADMRKA+1 1 SSP CONFIGURATION 1R31 2293 | 
2240 * EW X"80" > RESERVED 2708 
18 0040 2241 SCAMRUSP EQU  X‘40° . USE WORK STATION PRINTER 1R6| g 2 | 
2242 * EQU_X'20' ._ RESERVED 2206 | 
2243 * EW X"10° ~ RESERVED er 
19 2244 * EQU X‘08" . RESERVED 1RO} 19 2298 | 
2245 * EQU X‘04" .__ RESERVED 2299 | 
2246 * Eq X02" ~ RESERVED TR} OC? 7300 

O} AD 

B18 


VO9/11/81 12/08/81 21:28 SVAT TCR ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


ERR LOC OBJECT CODE ADOR STP 


2 02 0080 645 ADCTASK EQU X‘80' STOP IF TASK ACTIVE 02 66 
2 0040 646 ADCREAL EQU X'40' REAL VERIFY ADORESS 0000. 66 
0020 647 ADCVERFY EQU  X'20° VERIFY STOP 0080 66 
03 0010 648 ADCMATCH EQU  X'‘10° STOP IF DATA MATCHES 0040 66 
| a - 0008 649 ADCTBN EQU  x’08" STOP IF BITS ARE ON 0020 _ 66 
0004 650 ADCTBF EQU  X'04" STOP IF BITS ARE OFF 0021 6% 
04 0002 651 ADCFOUND EQU  X‘02' ADDRESS COMPARE FOUND ON IL5 0022 671 
0001 652 ADCDMPRQ EQU X‘01' ADDRESS COMPARE DUMP REQUEST 0023 67; 
653 * 0024 67" 
05 654 * EQUATE FOR SETTING OFF THE SOFTWARE ADORESS COMPARE CONTROL BITS 3 0025 67: 
OOFC 655 ADCRESET EQU _ ADCTASK+ADCREAL +ADCVERFY+ADCMATCH+ADCTBN+ADCTBF 3 0026 67" 
656 * 0027 67 
06 657 * LOW BYTE TASK ATR ADDRESS OF VERIFY DATA 0028 67) 
658 * 0001 678 
659 RAKRKRAAKKRKRERRAARAKKAKKERRAAKKRKRARKKKKRAKKKTRRARRAAKKAKAAKRAKKKAKRAAARAR AR 9080 679 
07 660 * END OF DIRECT AREA ” 0040 680 
661 RAKKRAAAKKRAAKAKAKRKAKAKAKARAKKAAAKREKKRRERKEKKRAAAKRAKRAKAKKRRARKARRERR IRR 681 
" 0076 662 DIENDA §=EQU DIACCNTL+1 LABEL FOR NEXT AVAILABLE WORD IN DRCTI 0010 682 
, 08 663 *** END OF EXPANSION ** 683 
x 684 
685 
09 686 
¥ 0003 687 
0090 688 
10 10 0040 689 
690 
11 ll 
12 
13 13 
7 14 1 
7 
. 15 15 
7 
16 sa 16 
7 7 
. 
18 13 
19 ae, 


Als 


THE 

7 

ne 
R8| 19 
R8| 

10 
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2283 * DATA MANAGEMENT ROUTER, *DLOr. 
0085 2284 SCAMIDB3 EQU SCADMDBT+9  ---> \0B3 STORAGE ADDRESS = iR4i 
2285 * €QU « SCADUDET+11 RESERVED 
0087 2286 SCADWDBR EQ! SCADCFGS+12 12 SOM BRANCH TABLE CHIGH SIDE) 
2287 x 
OOBF 2285 SCADRSPC EQU SCADWDBR+S 8 REST SVED 
2289 ® 
00CO 2290 SCADCPS4 EQU — SCADRSPC+1 1 _ COMMAND PROCESSOR SUITCH 4 RS) 
0080 2291 SCAMWHLD EQU = X‘80" . VERY HIGH LEVEL DEDICATION 
2292 * FQ xX‘40' . RESERVED 
2293 * fQU X‘20° .__ RESERVED 
2294 * EWU x10" . RESERVED 
2295 * EU X08" . RESERVED 
2296 * EQ X‘04' . RESERVED 
2297 * EQ X‘02' . RESERVED 
2298 * FQU. Xx'oI' . RESERVED 
2299 x 
00C2 2300 SCADXMID EQU = SCADCPS4*2 2 EXT. ADDRESS MAPPING CEXAD  {R6! 


#SVAT TCB ATTACH TRANSIENT 


TR. PRAPRE DS UP PTR MAUR, TPE Ta 


B19 
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16 VO9/11/81 12/08/81 21:28 * @SVAT CB ATTACI 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR 
02 665 * ECM 00510000 | U 
0000 666 ECMPARM EQU 0 PARM BYTE OFFSET 0001 
0080 667 ECMNSKIP EQU  X'80° DO NOT SKIP ON MULT. WAIT INDICATOR 
10 0040 668 ECMREAL EQU x'40° DATA ADDRESS IN [0B IS REAL INDICATOR 0 002 
0020 669 ECITTC QU x'20' TASK-TASK COMMUNICATIONS INDICATOR 
0021 670 ECMIOERR EQU  X‘21° 1/0 ERROR INDICATOR 0003 
04 0022 671 ECNINQ EQ X'22' INQUIRY INDICATOR 04 00RD 
0023672 ECHTRN QU X'23' 0BQ DETACH INDICATOR 0080 
0024 673 ECNTINER EQU  X'24" TIMER ECM INDICATOR 
05) 0025 674 ECMCPOCL EQU  X‘25' OCL COMMAND INDICATOR 05) 0003 
0026 675 ECMTAS QU X'‘26' TEST AND SET INDICATOR 
0027 676 ECMCSB EQU. X‘27" CSB TRANSFER INDICATOR 0004 
06) 0028 677 ECMSYSLE EQU X'28" SYSLOG INDICATOR 06 0080 
0001 678 ECMPASK EQU 1 ECM - EVENT CONTROL MASK OFFSET 0040 
0080 679 ECMACTV EQU  X'80° ~ EVENT ACTIVE 0020 
07 0040 680 ECMCMPL EQU x‘40° ECB COMPLETE 07 010 
681 * EQU x'20' ._ RESERVED O0FO 
0010 682 ECMLOCK EQU  X‘l0' LOCK BIT 
08) 683 * EQU X'08" ® 08 
684 * EQU_X'04' * COMPLETION CODE 
685 * EQU X‘02" * 
09 686 * FQU X'OL' ® 09 0007 
0003 687 ECMGW =FQU 3 ECM - GENERAL WAIT MASK FIELD 0006 
0080 688 PREEMPT EQU  x‘80" ~ DO NOT PREEMPT BIT 0005 
10 0040 689 PLIFO  €QU x'40' . LIFO QUEUE REQUEST 10 0004 
690_*** END OF EXPANSICN ** 0003 
ll ll 
000F 
12 NM 
0005 
0080 
13 1 0040 
0020 
14 14 0010 
15 1b 
0008 
16 16 0004 
7 7 0003 
0002 
0001 
13 10 
19 A 0001 


Ald 


CHECKPOINT/RESTART CONF IGURED 
RESERVED 


0020 2337 SCANSYFC EQU X'20° . SMF FEATURE CONFIGURED 
0010 2338 SCAMDFA EQU X‘10° : OUMP FILE ANALYSIS 
3 . [EXCHANGE 1R6 
0004 2340 SCAMGUBS EQU X'04" : SUBCONSOLE SUPPORT {R51 
0002 2341 SCAMUASF EQU  X‘02" : SPOOL FILE ACCESS {R51 
0001 2342 SCAMEDOM EQU X01" : EXTENDED DISK DATA NAN. 1R6| 
2343 * 
00C6 2344 SCADICSA EQU SCADCFG6+2 2 ICS COMPMINICATION AREA ADOR  {R4/ 
2345 * 
OOCE 2346 SCADRFTR EQU 
2347 * 
0006 2348 SCADUCFG EQU 8 UDT CONN CONFIGURATION 1R31 
0005 2349 SCADUDT1 EQU LINE 1 CONFIGURATION (BYTE 0) {R31 
0003 2350 SCADUDT2 EQU «LINE 2 CONFIGURATION (BYTE 0) 1R31 
0001 2251 SCADUDT3 EQU LINE 3 CONFIGURATION (BYTE 0) {R6/ 
OOCF 2352 SCADUDT4 EQU - LINE 4 CONFIGURATION (BYTE 0) [R61 
2353 * 
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ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR ‘ 


692 * ERR 02 
0001 693 ERBDCHN EQU 1 CHAIN FIELD 0001 
694 x 
0002 695 ERBDDVI EQU ERBOCHN+] DEVICE ID 03} 
0000 696 ERBDISKT EQU  X"DO' DISKETTE; DEVICE ID 12/6/79 RJB 0006 
00C3 697 ERBGATJT EQU x'C3° GAIsi TASK 1D 0006 
ORO 698 ERBDISK EQU X'‘AO' DISK; DEVICE ID 12/6/79 RIB 04 0001 
0080 699 ERBMLCA EQU  X'80' DEVICE 10 ADDED FOR MLCA 0000 
700 * 
0003 701 ERBDQHD EQU ERBDDVI+1  Q HEADER DISPLACEMENT 0 0008 
702 * 
0004 703 ERBOCTL EQU ERBOQHD*] ERP CONTROL 0009 
0080 704 ERBBUSY EQU X'80' THE ERB IS IN USE, AWAITING MS ACTION 06 00FO 
0040 705 ERBCDONE EQU  X'40' C.S. ROUTER OPERATION COMPLETED 0080 
0020 706 ERBDONE EQU  X‘20° "1.5. ERB OPERATION HAS BEEN COMPLETED 0040 
0010 707 ERBERR2 EQU X‘10° READY RESPONSE WAS A 2ND ERROR 07 0020 
OOFO 708 ERBMCTLM EQU  X‘FO' MASK TO SET OFF ZONE BITS TO CHECK FUNC. 0010 
709 * THE LOWER 4 BITS OF THIS BYTE ARE ENCODED WITH THE FUNCTION 10 BE 0008 
710 * PERFORMED. CURRENTLY THE X‘08' BIT IS NOT BEING USED. HOWEVER IT 08 0004 
7L1L_® IS RESERVED FOR USE AS PART OF THE FUNCTION ENCODING SCHEME IF WE 0002 _ 
712 * NEED TO ADD MORE THAN 2 FUNCTIONS TO THE EXISTING SET. 0001 
0007 713 ERBMHIC EQU 7? GET ERROR MIC # 09 : 
0006 714 ERBMERCY EQU 6 PERFORM ERROR RECOVERY 0008 
0005 715 ERBMYGG EQU 5 TSSUE PESSAGI | 
0004 716 ERBMNRR EQU 4 WAIT FOR NOT-READY TO READY OR NSG RESPNSE 10 0008 
0003 717 ERBMPUR EQU 3 PURGE MESSAGE 000c 
718 * EU 2 UNUSED 
719 * EQU 1 UNUSED 1] 
720 * EQU 0 INVALID FUNCTION (DO NOT USED 
OOOF 721 ERBMERR EQU  X ‘OF ERR IN PROCESS IF ANY BIT ON ; 
722 * 
0005 723 ERBDFLG EQU ERBOCTL+1 FLAG 
0080 724 ERBTRMTD EQU x ‘80" PLACE TERMINAL ID IN THE MESSAGE 
0040 725 ERBMERRC EQU X'40' PLACE 4 BYTE ERROR CODE IN THE LAST FOUR 13 
726 * POSITIONS OF THE TEXT MESSAGE 
0020 727 ERBYNRSP EQU  X‘20° NO RESPONSE REQUIRED FOR INFO MESSAGE 
0010 728 ERBYNLOG EQU X‘10° DO NOT ATTEMPT TO LOG THIS ERROR 14 
729 * NOTE: IF ANY DEVICE REQUIRES A DEVICE DEPENDENT BIT IN THIS FLAG 
70 * BYTE, PLEASE ASSIGN YOUR BITS STARTING WITH X‘01° AND WORK 
71 * UP FROM THAT END. 15 
732 * WORKSTATION ERROR RECOVERY 
"0008 733 ERBMPOST EGU K‘08" TUB POSTED COMPLETE WITH ERROR CCP ONLY) 
0004 734 ERBMIRCY EQU” x‘04" THIS ERB IS IN RETRY MODE - 


735_* THE FOLLOWING TWO BITS (X'O2' AND X‘O1" ARE ENCODED TO DEFINE 3 ERROR 
736 * CONDITIONS. THE 4TH CONDITION IS UNUSED. 


0003 737 ERBMRERR FQU 3 RESOURCES UNAVAILABLE 
0002 738 ERBMHERR EQU 2 HARDUARE FPPOP 
000] 739 ERBMPERR EQU PROGRATING EPROP eg eS Cl 
740 * EQU 0 UNUSED 
’4, * 
~~ i4é* DISK , DISKETTE , AND 1255 ERROR RECOVERY 
0001 743 ERBPTASK EQU  X‘O1' POST TASK HAVING I/O ERROR TO CALL THE 
744 -* 1/0 ERROR TRANSIENT BACK INTO STORAGE. 
745 * 
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9 RJB 


‘9 RUB 


OMPLETED 7 


R 

CHECK FUNC. 
TON TO BE 
MEVER IT 
EME IF WE 


R MSG RESPNSE 


AGE 
E LAST FOUR 


#SVAT TCB ATTACH TRANSIENT 
1 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


746 * MLCA ERROR RECOVERY 
0001 747 ERBCELOG EQU X‘O1' 
148 * 
749 *® 
0006 750 ERBDCPA EQU ERBDFLG+1 
0006 751 ERBDERA EQU  ERBDCPA 
0001 752 ERBIOER EQU X'‘O1' 
0000753 ERBNORM EQU  X‘00' 
154% 
0008 755 ERBDMIC EQU  ERBDCPA+2 
156 * 
0009 757 ERBOOPT EQU  ERBDMIC+) 
OOFO 758 ERBSOPD EQU X‘FO' 
0080759 ERBSOPO EQU  X'80' 
0040 760 ERBSOP] EQU X'40' 
0020 761 ERBSOP2 EQU X‘20' 
0010 762 ERBSOP3 EQU  X'l0° 
0008 763 ERBAOPO EQU X'08" 
0004 764 ERBAOP] EQU X'04' 
0002 765 ERBAOP2 EQU  X‘O2' 
0001 766 ERBAOP3 EQU X'Ol' 
167 * 
000A 768 ERBDLNI EQU ERBDOPT+1 
7169 * 
0008 770 ERBDACE EQU  ERBDOPT+2 
O0OC 771 ERBDLEN EQU ERBOACE+1] 
772 *** END OF EXPANSION ** 


B21 


IF ON LOG TO CE TRACE AREA 
IF OFF LOG TO USER TRACE AREA 


C PAID COLD EQUATE VALUE) 
ERROR AID BYTE (NEW EQUATE VALUE) 
1/0 ERPOR HAS OCCURED 

NORMAL_ER AID BYTE VALUE 


NIC NUMBER 


MIC OPTIONS 

‘D’ OPTION WAS TAKEN TO MESSAGE 
OPTION 0 WAS SELECTED 

OPTION 1 WAS SELECTED 

OPTION 2 WAS SELECTED 

OPTION 3 WAS SELECTED 

OPTION 0 IS ALLOWED 

OPTION 1 IS ALLOWED 

OPTION 2 IS ALLOWED 

OPTION 3 1S ALLOWED 


LENGTH OF WS TUB ERB 


ACE ADDRESS 
LENGTH OF ERB 


MESSAGE 
ROR 
HIS FLAG 
AND WORK 


R CCP ONLY) 


FINE 3 ERROR 


CALL THE 
STORAGE . 


SSVAT TCB ATTACH 
01 
ERR LOC OBJECT CODE 


05} 


09 


10 


ll 


OOIF 2425 SVCTIH =EQU. X'IF* * TIMER INTERRUPT HANDLER 
1 0020 2426 SWCQS = EQU.sX'20" ALTER QUIESCE COUNTER 
0021 2427 SVCRENQ EQ X'21' RESOURCE ENQUEUE 
0021 2428 SVCRDEQ EQU  SVCRENQ RESOURCE DEQUEUE 
15 0022 2429 SVCDUNP «EQU X22" DUMP MAIN STORAGE/TERMINATE TASK 
0023 2430 SVCTEST EQ X‘23' TEST AND SET 


0024 2431 SVCPRIQ EQU  X'‘24' 
0025 2432 SVCROYCK EQU X‘25° ASYNCHRONOUS TASK READY CHECK. 
0026 2433 SVCPREP EQU  X'26" PREPARE PRINTER OUTPUT 


16 


0027 2434 SVCDSPCH EQU X'27" DISPATCHER 
7 0028 2435 SVCRPT EQU X‘28' REMOTE PRINTER SET UP. 
0029 2436 SVCSQ. EQ X‘29° SECTOR ENQUEUE /DEQUEUE 
002A 2437 SVCMOVE! EQU  k‘2A‘ FOVE DATA BY ID 
18 0028 2438 SVCPOSTI EQU  X'2B' POST TASK BY ID 
002C_2439 SVCQUAIT EQU X‘2C' QUIESCE COUNTER WAIT 
002D 2440 SVCXAF EQU  X‘2D" TRANSLATED ASSIGN/FREE 
1 OOZE 2441 SVCTOD QU X'2E' RETURN TIME-OF-DAY IN TIMER UNITS 
2442 * 
2443 * *-INDICATES NOT USEABLE FROM MAIN STORE 
B22 
18 VO9/11/81 12/08/81 21:26 SSVAT TCB ATTACH TRANSIENT PAGE 19 VO9/11/81 12/08/81 21:28 oi SVAT TCB ATTACH TRANSI 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
02 714 * #6QU 00536000 | 0 
775% 
0001 776 XRI Eu i REGISTER ONE 
03 0002 777 XR2 Eq 2 REGISTER TWO 0! 
0004 778 PSR EQ 4 PROGRAM STATUS REGISTER 
0008 779 ARR EU 8 ADDRESS RECALL REGISTER 
04 0010 780 IAR EU 16 INSTRUCTION ADDRESS REGISTER 04 


0001 781 108 EQu 1 [0B POINTER 


0002 782 DIF EU 2 DIF POINTER 
05 783 * 05 
0000 784 # FQ 0 ALTERABLE CODE 
0000 785 a FU 0 ALTERABLE CODE 
06) 0002 786 a FU 2 LENGTH OF ADDRESSES 06 
787 * 
0040 788 BLANK EQU C'° BLANK CHARACTER 
07 0000 789 ZERO FU 0 mR 07 
0001 790 ONE —QU1 Lal 
0002791 TWO EQU 
08 0003 792 THREE  EQU 08 
0004 793 FOUR QU 
0005 «794 FIVE EQU * SELF DEFINING TERMS 
09 0006 795 SIX EQU 09 
0007 796 SEVEN EQU 
797 EIGHT EQU 
10 798 NINE  — EQU 10 ; 
199 rd { 
0010 800 TRUE EU TRUE CONDITION CODE | 
ll 0090 801 FALSE EQU FALSE CONDITION CODE ll | 


0087 802 UNCOND _EQU UNCONDITIONAL CONDITION CODE 


803 * | 
12 0080 804 .NOOP EQ X'80° NEVER BRANCH 1 
0000 805 NOBIT QU xX'00' NO BITS MASK 
OOOF 806 NUMBITS EQU  X‘OF° NUMERIC BITS ONLY MASK 
3 OOFO 807 ZONEBITS EQU  X'‘FO' ZONE BITS ONLY MASK 1 
OOFF 808 ALLBIT EQU X‘FF' ALL BITS MASK 
0080 809 BITO  EQU  x"80° MASK FOR BITO- X....... |! 
14 0040 810 BITI EQU  X‘40° MASK FOR BIT 1- .X...... 14 |! 
0020 811 BIT2 QU x'20' MASK FOR BIT 2- ..X..... |! 
0010 812 BITS  EQU X10" MASK FOR BIT 3 - ...X.... 
15 0008 813. BIT4  EQU x‘08" MASK FOR BIT 4 - .... l 
0004 814 BIT5 = EQU. X‘04° MASK FOR BIT5 - ..... X.. 
0002 815 BIT6  eQU x02" MASK FOR BITO- ...... x. 
= 16 0001 816 BIT? EQU x‘ol' MASK FOR BIT 7 - ....... xX” t6 
817 * 
0008 818 TARX  EQU X08" TAR TRANSLATED 
7 0004 819 OP2 EQU  X'04" OP2 TRANSLATED 17 
_ 0002 820 OP1 EQU X'02" OP1 TRANSLATED 
Bes G000 821 PRV FQU  K'00" TASK PRIVELEDGED 
18 WH ODD NPOY a? he ane TASK NOT PPIVELFOGED aT 
0080 823 DSABL EQU x du et NG TARE 
824 *** END OF EXPANSION ** _ 
19 
20) 


A22 
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00536000 


TRL) UNC VULUNTART OWAPROLE Wel | 
NOT CHANGE PRIORITY ON WAIT 


EEG Naty CM rg eet 
0018 2479 QNCHPRI EQU  QNQ*Q4AIT 


0009 2480 QSPEC = EQU «= QPMAIT+QWAIT SPECIFIC WAIT ON NON-ECH. 
1 2481 * 
OOF4 2482 SVCOPEQU.SOX'F4° SVC_OP CODE VALUE 


OOF5 2483 SVCXFR EQU  X‘F5' 
2484 *** END OF EXPANSION ** 


SVC TRANSFER OP CODE 
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en LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


826 * FIEQU 00550000 | 0. 


oe , 
830 * OISK FORMAT-1 
831 * x 


832 RRAAAKRARKAAAARAAAAARAKARRARAARAARARRARARARRARRRERRER RIK RII IRR IM 


a LOC OBJECT CODE 


03 


0000 834 FIADDFLG EQU 
O05C 835 FIAMLTST EQU 


0 
cs 


LATEST DATE INDICATOR 
FILE HAS LATEST DATE FOR THIS LABEL 


0008 837 FIADLABL EQU FIADDFLG*8 = FILE LABEL 


06) 0001 838 FIAMSYSF EQU X‘O1' “SYSTEM FILES’ MUST HAVE A LABEL WHICH 
839 * BEGINS WITH X‘O1" 
07 0008 841 FIADDATE EQU FIADLABL+3 CREATION DATE 
0008 843 FIADSDIR EQU  FLADDATE LIBRARY - START OF DIRECTORY 
08 
OO0C 845 FIADTYPE EQU FIADDATE+1 FILE TYPE 
0080 846 FIAMINDX EQU  X*80° BIT ON = INDEXED FILE 
09) 0040 847 FIAMCONS EQU xX‘40' BIT ON = CONSECUTIVE FILE 
0020 848 FIAMDIRC EQU  X'20' BIT ON = DIRECT FILE 
0010 849 FIAMRDFL EQU  X"10' BIT ON = 11 UNIT, BIT OFF = Fi UNIT 
10 0008 850 FIAMPERN EQU  X‘08' BIT ON = PERMANENT FILE ('P*) 
0004 851 FIAMTENP EQU X'04' BIT ON = TEMPORARY FILE ('T') 
0002 852 FIANJOBR EQU  X‘02' BIT ON = JOB FILE C‘J‘) 
at 0001 853 FIAMSCRT EQU  X‘O1' BIT ON = SCRATCH FILE (°S') 
0000 855 FIADSFLG EQU FIADTYPE+] FLAG BYTE 
12 
857 KRRKKKKERARKRAKKRAKRKKKRKKAKKRHERKRERKKKKERARKAAAKAKKAAKARKKERAAKRAEKRAAAAARRA RK 
858 * THE FOLLOWING FOUR BIT MASKS ARE VALID ONLY IF ‘FIANINOX’ [S ON * 
3B 859 KRRKRAREAAERAKKAAK AR KKKAAKKA RRA KKK RARAAKKERAAARKKKAKRKRAKKKA RAHA RAK RIAK RN 
0080 861 FLANSORT EQU  x‘30° BIT ON = SORT KEYS 
14 0040 862 FIAMRGE EQU xX‘40' BIT ON = MERGE KEYS 
0010 863 FIAMDPCK EQU  X‘10° BIT ON = UNORDERED LOAD 
864 * (CHECK DUPLICATE KEYS) 
15 0008 865 FIAMXNFG EQU X‘08' BIT ON = INVALID INDEX 
866 * C(KEYSORT MAYBE IN PROCESS) 
t6 868 RERKAAAKARAKAKKKKAERKRAKRAE RR RAT RAERERKRARERKRARRERERAKAERER ERE RARER 
869 * THE FOLLOWING BIT MASKS FOR X‘80' ARE VALID ONLY IF ‘FIAMINDX’ IS * 
870 * OFF s * 
7 871 JERI IO TOIITORI OI IU ORIITIIT IURITIUTIIOT EOE IID IIDC OCOD 
0080 873 FIANSCND EQU  X"30° CECTIR ERR ARN. ” : 
10) aq sit FLAMLBFL’ 1S OND 1 00) 
oo 3080 875 FIAMSCLB EQU  X'80" SECURE LIBRARY 
876 * CIF FIADRECL = X*0000") 002 
19 1 003 
0020 878 FIANNEW EQU  X'20° BIT ON = NEW FILE 004 
0004 879 FIAMSPAL EQU  X‘04" SPINDLE Al REQUESTED ORIGINALLY 007 


0} 


A23 


2523 _ "58 ‘i * i i ® 0002 257 


2524 * (OOSK Tw * * Asa * xT * 0001 257 
1] 2525 RRKKKRAKRKRAKRAAARAAAAKRAKARRARRE RAAKRAAKRRRAAKARERAKAAARRAAKRAKKARRKRRARKK | 
2526 *60 , 0003 257 
220 * Tae 7 
161 2528 RAKKKRKKAAKRARRARAARRARAARRRRERKKKAKAARAARAAA RAK RAAAKRARAAKRRAKRARRARA RRA 16 0080 258) 
most FH ® ‘of 0040 258: 
2530 * SQBCT * LCKMK * SSTID * TOKIO * *  PRIQ _* STATA * STATS * 0020 258: 
17 2531 RARKKAAAARAARARRKRARARAAAAERARARR RRAARAAKKAAARAKKKRARRARRAARKRA RAR 17 0010 258: 
2532 ®70CATM x x * x *® x J ® x 0008 258! 
2533 * ACT * CAT * RTFM * NSCNT * * CNONT * IQCNT * ARQCT * STATO 0004 256 
18 2534 KRKAARARARARARAARAARARRAKRAAKKAKARARK RAAAAKRKAKARAKRAKRARAARKAKRRARARRKARK 1g 0002 258) 
2535 78 x x ® x * Ld * 2588 
2536 * BAT * SUSPS*®  SrePT.*  * TwST*® x 
19 2537 RAKRAARKKRARRAKRAARRAAARARAERARRR RAKRERAAKRARARRARKKRAEKAAARER RRR 19 0004 25K 
0080 259; 
Ph 
B24 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR S 
00550000 0002 880 FIANSPA2 EQU X‘02' SPINDLE A2 REQUESTED ORIGINALLY 
KERR 882 * IF BOTH OF THE PREVIOUS TWO BITS ARE OFF, THEN NO ORIGINAL SPINDLE 
x 03 883 * PREFERENCE WAS SPECIFIED 0 OOlE | 
K 
® 0001 885 FIAMLBFL EQU X'01' BIT ON = LIBRARIAN FILE 
RKRK 04 04 


QOOF 887 FIADRECL EQU  FIADSFLG+2 —_ RECORD LENGTH 


05 0010 889 FIADHIGH EQU FIADRECL+1 HIGH ORDER BYTE OF BLOCKS/RECORDS FIELD 
0080 890 FIANBLRN EQU  X‘80' BIT ON = FILE ALLOCATED WITH BLOCKS, 
891 * BIT OFF = FILE ALLOCATED WITH RECORDS 
06 0012 892 FIADBLKN EQU FIADRECL+3 BLOCKS USED TO ALLOCATE THE FILE a 
0012 893 FIADRECN EQU  FIADRECL+3 RECORDS USED TO ALLOCATE THE FILE 
0020 
07 0011 895 FIADLBOW EQU FIADRECL+2 LIBRARY - OWNER QUEUE POINTER 0080 | 
0012 897 FIADLBUS EQU  FIADLBOW+1 =~ LIBRARY - COUNT OF CURRENT USERS 0021 | 
08 
0015 899 FIADLSTR EQU FIADRECN+3 RELATIVE RECORD NUMBER OF NEXT RECORD 0022 | 
= 0080 ‘ 
09 0015 901 FIADSMEM EQU FLADLSTR LIBRARY - START OF MEMBERS 0040 
0020 
0015 903 FIADRFST EQU  FIADLSTR START SSS OF RESERVED AREA FREE SPACE ‘ 
10 904 * (3 BYTES) 10) 0010 § 
‘ 
0018 906 FIADSTOA EQU FIADLSTR+3 SSS OF START OF DATA ; 0008 
BI 1 ‘ 
001B 908 FIADENDA EQU FIADSTDA+3 SSS _OF END OF EXTENT 0004 5 
‘ 
12 001D 910 FIADVTOC EQU FIADENDA+2 RELATIVE S/D OF VTOC ENTRY 12 0002 $ 
ARK 0001 $ 
® 912 8------ + - 5-2 non nnn nn ne an an nea , 
REN 13 913 -* H 
914 * RE-DEFINITION OF 'FIADVTOC' FOR RELEASE 8 0023 9 
915 * $ 
14 916 * BYTE 0 1 14 $ 
917 * 0080 
918 * 0040 5 
15 919 * 1 0020 9 
920 *RESERVED | 06 Stuy x eas! eo : 0010 5 
921 *OFFSET eee aa 0008 9 
RI 16 922 *RESFRVED a 16 
S ” ‘as ie, : > grt are 2 TP NUMBr is a a ee 1 y - 7 
* . 324 * 
nee ae 925 * WHERE ‘XXX" IS DEFINED BELOW: 
926 * Li 
2 927 * vw 
13) 0010 928 FIAWIST EQU B'00010000° FIRST FORMAT-1 IN SECTOR aa4i9 
929 * ALSO INCREMENTS OFFSET) aaG13 
0020 930 FIAMV2ND EQU 800100000" SECOND FORMAT-1 IN SECTOR aa4i9 
19 0030 931 FIAMV3RD EQU B'00110000' THIRD FORMAT-1 IN SECTOR aa419 
0040 932 FIAMV4TH EQU _B'01000000' FOURTH FORMAT-1 IN SECTOR aa419 
0070 933 FIAMVALL EQU  B‘01110000° CLEARS OFFSET aaai9 
20 


A24 


SECOND WAIT MASK 


0003 2579 TCBMMSK2 EQU  TCBUMASK+] 


x 


RRR ERR 0080 2581 TCBPTRWT EQU X‘80° + PRINTER ALLOCATE FAILURE 

* 0040 2582 TCBLINIT EQU X‘40' «COMM. LINE ALLOCATE FAILURE 
STATS * 0020 2583 TCBOKTWT EQU  X'20' . DISKETTE ALLOCATE FAILURE 
deialolalaiais 0010 2584 TCBDSKWT EQU X'10' « DISK SPACE ALLOCATION FAILURE 

id 0008 2585 TCBDEWT EQU X‘08' «OTHER DEVICES ALLOCATION FAILURE 
STAT6 * 0004 2586 TCBICKWT EQU X'04' . ICS TRANSIENT WAITOR 
ARERR 0002 2587 TCBASRWT EQU X'02' . ASSIGN RECOVERY FORCED WAITER 

® 2588 * EQU X‘01' ._ RESERVED 


® 
RAKKRAK 


0004 2590 TCBSTAT3 EQU TCBWMSK2+1 — TCB STATUS BYTE 3 
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01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


~ SPINOLE 
OO1E 935 FIALIVTA EQU FIADVTOC+1 — LENGTH OF THE FIRST VTOC AREA 

937 RRRARAAKKKAAKARKAAAAAKAAAAKRAKRAARARAKRARRARKAAKRKKRAKAKRAERRR AIR IRR IRR IRR 

938 * 

939 * THE FOLLOWING FIELDS ARE ONLY SUPPORTED IN THE AFA FORMAT-1 

940 * —CEXCEPT WHERE NOTED OTHERWISE) : 
) FIELD gal * 05 
KS, 942 RRKRAAARRAKRAARARARAAAKRARAAKERRAAKRRKKRAKRAAARAARARAERRKE KRHA AR KIER RRR IKK 


CORDS 
OO1F 944 FIADFCHN EQU FIADVTOC+2 — FORWARD CHAIN POINTER 06 


0020 946 FIADATT] EQU FIADFCHN+] = ATTRIBUTE BYTE ONE 


0080 947 FIANXTND FQU  X'80' EXTEND CAPABLE FILE 07 2 
0021 949 FIADCONT EQU FIADATT1+1 © COUNT OF CURRENT USERS 09 
09 
CORD 0022 951 FIADATTR EQU  FIADCONT+1! ATTRIBUTE BYTE THREE 
0080 952 FIAMOTAD EQU  Xx'80' BIT ON = FILE OPENED AS OUTPUT OR ADD 
09 0040 953 FIAMKBPR EQU  X'40' BIT ON = KEY BUCKET HAS BEEN PRIMED O09 
0020 954 FIAMINFR EQU  X‘20' BIT ON = INDEXED PORTION OF F1 HAS BEEN 
PACE 955 * FREED BY ALLOCATE 
10 0010 956 FIAYHKAS EQU X'10° BIT ON = HIGH KEY BUCKET ASSIGNED 10 
957 * (NOT TO BE USED BY TERMINATION) | 
0008 958 FIAMNREC EQU  X‘08' BIT ON = NON-FORMATTTED FILE 
i 959 * CVALID IN THE VTOC) 1] ! 
0004 960 FIAMDNFG EQU  X'04' BIT ON = INVALID DATA AREA | 
961 * (VALID IN THE VTOC) 
12 0002 962 FIAMRFIL EQU  X‘02' BIT ON = FILE ALLOCATED IN RESERVE AREA 12 
0001 963 FIAMOLMV EQU X‘O1' BIT ON = OFF-LINE MULTI-VOLUME FILE 
====90419 964 * (VALID IN THE VTOC) 
aaai9 13 3 
aaai9 0023 966 FIADATT2 EQU  FIADATTR+1 ATTRIBUTE BYTE TWO - THIS BYTE IS |! 
wa419 967 *® SUPPORTED IN BOTH THE AFA AND THE VTOC 
aaa 14 968 * EXCEPT FOR A LIBRARY FORMAT-1 14 { 
agg 0080 969 FIANSCFL EQU  X'80' SECURE FILE 
9a419 0040 970 FIAMCKPT EQU  X"40' CHECKPOINT ACTIVE FILE 
aaal9 15 0020 971 FIAMDLTC EQU  x‘20° DELETE CAPABLE FILE 15 
aaa9 0010 972 FIAMIFIL EQU  X'10' IMMEDIATE ACCESS FILE CIFILE) 
~ eye 0008 973 FIANGASK EQU  X‘08" TFILE GAPS ADDED SINCE LAST KEYSORT ; : 
ais 9 16 £ 6 ig 
waa’ 5 ot 0025 975 FIADOUNR EQU  FIADATT2+2 OWNER QUEUE POINTER 
aay ee “0027976 FIADEDFQ EQU  FIADOUNR+? EDF QUEUF POINTER 
aa4a9 i 7 
aa41g By TE TADPLED FQU FADED FAD SSS OF RESERVED AREA FREE PACs ae ers —_ 
aa419 "979% ec see 
18 19 
T) «aaG13 QQ] RAAARAAARRARAR ARIK ARRERIKR RRARRRRERAR RARER RARER AERO OTERO RT Ee penee 
982 * ® 
19 983 * THE FOLLOWING FIELDS ARE ONLY SUPPORTED FOR INDEXED FILES * 19 
984 * ® 
985 * NOTE: THIS AREA MUST BEGIN ON AN 8 BYTE BOUNDARY BECAUSE IT IS * 
20 0 


A25 
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a a ee es 


TOW PRIORITY 


0006 2639 TCBTTINE EQU  TCBPRIOR+1 — TASK RESIDUAL TIME INTERVAL. 


0007 2641 TCBQCNT EQU TCBITIMNE+!  QUIESCE COUNTER 
0009 2642 TCBCMPLQ EQU  TCBQCNT+2 TASK EVENT CONTROL QUEUE HEADER 
2643 *AAAAAAAAAAAAA THE ABOVE FIELDS ARE ORDER DEPENDENT ARAAAAAAAAAAAAAAADA 


0008 2645 TCBPUSH EQU  TCBCNPLQ+2 PUSH ELEMENT Q-HEADER 


00D 2646 TCBCHAIN EQU = TCBPUSH+2 SYSTEM EXISTENCE QUEUE CHAINING FIELD 
B26 


SSVAT TCB ATTACH TRANSIENT 


01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0028 990 FIADKEYL EQU FIADEDFQ+1 


FIADKEYL+2 KEY LOCATION 04 


0031 996 FIADSTIX EQU  FIADLSTK+3 


SSS OF START OF INDEX 


0035 998 FIADLSTP EQU FIADSTIX+4  SSS/D OF LAST PRIME KEY 06 


0039 1000 FIADHOKY EQU  FIADLSTP+4 —SSS/D OF HIGHEST KEY IN OVERFLOW AREA 


0012 1002 FIAL2VTA EQU  FIADHOKY-FIADEDFQ LENGTH OF THE SECOND VTOC AREA 


1004 RAARAAAALAAKRAAKRAAAARARRARRA AA RARER RRA RHR ARAR RARE RRR RR EIR III , 


FOR INDEXED FILES 


10 10 


003B 1011 FIADKBKT EQU  FIADHOKY+2 KEY BUCKET POINTER 


ll 0030 1013 FIADPCBQ EQU FIADKBKT+2 FILE POSITION CONTROL BLOCK POINTER 11 


OO3F 1014 FIADRES3 EQU  FIADPCBQ+2 RESERVED FOR FUTURE USE 


12 


0028 1016 FIALLGCD EQU 
1017 * 


FIADEDFQ+] LENGTH OF A FORMAT-1 FOR CONSECUTIVE AND 


DIRECT FILES ¢40) 


13 


1019 FIALLGIN EQU  FIADRES3+1 LENGTH OF AN Fl FOR INDEXED FILES (64) 


1021 FIALLGLB EQU  FIADFCHN+] = LENGTH OF A LIBRARY FORMAT-1 (32) 


1023 RRRAARARAARAAAARAARARAAAAK AAA RRARARR RAR K ARR ARA RA AR ARAA AA RAR ARR AAA 


15) 1024 REKKAKAKARAAAAAEKAAARARAKRARERRA RARE RARER RERRARRRRA REIKI IIIR IRI IIR, 


1025 ** THE FOLLOWING LABELS ARE USED BY $PACK TO INDICATE THAT A SYSTEM ** 
1026 ** FAILURE OR PERMANENT I/O ERROR OCCURRED BEFORE SPACK HAD COrP- 


16 = 1027 ** LETELY MOVED THE FILE, WHERE PART OF THE FILE MAY HAVE BEEN - ** 16 
1028 ** OVERLAYED DURING THE MOVE OPERATION. AB 
1029 RR ae 
7 1030 ** IF SPACK IS ABLE TO MOVE THE FILE SUCCESSFULLY, THESE FIELDS APE ** 
_ 1031 ** SET TO ZERO. ie 
103? ae — * 
1G "C37 "* THE VALUES STORED IN THIS AREA ALLOW SPACK TO RESTART wi [HOL™ oe 
1034 ** LOSING ANY DATA IF THE ABOVE ERROR(S) SHOULD OCCUR DURING gia 
1035 ** EXECUTION. ia 


1036 RRARRRRRRARRARARRARRRERR ARERR RARER RRR IRR III IORI TI IR SIR IO TORR IO 
1037 RRXRRRARRERARRARRARARRARARARRERRERA RARER ERR RRE ERE RIE IRI TOR IT III IIE 
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#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


ADDR STMT 


OO1E 1039 


005D 2689 TCBASGNQ EQU TCBINVCT+2 ASSIGNED ELEMENTS QUEUE 

OO5F 2690 TCBEXIT EQU  TCBASGNQ+2 ASYNCHRONOUS EXIT ADDRESS. 

005F 2691 TCBAFAIL EQU  TCBEXIT CP ASSIGN FAILURE INDICTOR BYTES 
0067 2692 TCBTQE EQU TCBEXIT+8 = TIMER QUEUE ELEMENT. 

0068 2693 TCBSQBCT EQU  TCBTQE+1 COUNT OF SECTOR QUEUE REQUESTS 
0069 2694 TCBLCKMK EQU TCBSQBCT+1 © COUNT OF LOCK REQUESTS 


17 


18 0080 2695 TCBLCKDI EQU ‘80° INTERLOCK FOR DEDICATION 
R 0040 2696 TCBLCKSI EQU  X'40° INTERLOCK FOR SCHEDULER 
NARAAAAAAADA 0020 2697 TCBLCKVI EQU  X'20° INTERLOCK FOR VTOC 
1 0010 2698 TCBLCKSI EQU  X‘10° INTERLOCK FOR FORMAT 5 
0008 2699 TCBLCKPI EQU X‘08' INTERLOCK FOR PROC NANE 
S FIELD 0004 2700 TCBLCKHI EQU X04" INTERLOCK FOR HISTORY FILE 
B27 
PAGE 23 VO9/11/01 12/00/81 21:28 #SVAT TCB ATTACH TRANSIENT PAGE 24 VO9/11/81 12/08/81 21:28 a1 #SVAT TCB ATTACH TI 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
® OOLE 1039 FIFLAG EQU FIADVTOC+1 — 1-BYTE FLAG INDICATING THAT RESTART OF 
® 1040 * SPACK IS REQUIRED FOR THIS FILE. 
[RARRARRRARARRE OOFF 1041 FIRESTRT EQU X‘FF' SWITCH VALUE THAT IS PLACED IN FIFLAG 
1042 * IF RESTART IS NECESSARY. 
0021 1043 FISSTRT EQU FIFLAG+3 POINTS TO START SSS OF DATA THAT HAS BEEN 
1044 * MOVED BY $PACK. 
0027 1045 FISSEND EQU  FIADEDFQ POINTS TO END SSS OF DATA THAT HAS BEEN 
1046 * MOVED BY SPACK. 
1048 **® END OF EXPANSION ** 
FLOW AREA 
C AREA 
RARRRAEKRRRERIR 
® 
FORMAT-l—® 
® 
* 
RAKAKRKKARKERRK 
POINTER 
SECUTIVE AND 
FILES (64) 
(32) 


RAAARARKRRARRH 
KAARAAAKARRRRK 


| A SYSTEM ** 


i) CoP- 
BEEN = ** 

RR 

Lid 
‘TELDS ARE ** 

Lol 
aetna ati oe tee 
Wi HOLL” ae 
NG RR 


aK 
RRR RR RIOR IR 
RRR IIR IR 


A27 


SRT UVR TU UU ULL 
ATTACH YES 

SYSTEM TASK - NOT SUSPENDABLE 

TASK _IS_IN ABNORMAL TERMINATION 
RECURSIVE TERMINATION DUE TO SWC 22 
CANCEL PENDING 

C.P. CALLED FOR TWA RECOVERY 

ERROR ON DUMP - PARTIAL DUMP TAKEN 
DUNP PENDING ON CANCEL 


NN STS Te Ligw behhachedl 
0040 2742 TCBATTCH EQU X*40' 
0020 2743 TCBSYSTM EQU § X'20' 
0010 2744 TCBABTRN EQU X'10' 
0008 2745 TCB22RCS EQU  X'‘08' 
0004 2746 TCBCNLPD EQU X‘04' 
0004 2747 TCBTWACL EQU  X'04' 
0002 2748 TCBHOYPT EQU  x‘02' 
0001 2749 TCBOMPPD EQU  X'Ol' 


OO7A 2797 TC 


O06F 275] TCBSTATS EQU TCBSTAT4+1 STATUS BYTE 5 


TASK HAS BEEN IN TERMINATION 
2 OPTION CANCEL PENDING 


0080 2753 TCBTHBIT EQU X'80' 
0040 2754 TCBCNZ2PD EQU X‘40' 


B28 
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4SVAT TCB ATTACH TRANSIENT 
1 


A28 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT 
1050 * HEADR 003C 1099 

0000 1051 QHONULL EQU § X‘00' NULL QUEUE HEADER VALUE 003E_1100 
0001 1052 QHOHI EQ xX'01' HIGH VALUE FOR QUEUE HEADER ADDRESS 0041 1101 
0020 1053 DEQUEVE EQU X'20' DEQUEUE REQUEST 0042 1102 
0000 1054 QUEVE EQ X'‘00' QUEUE REQUEST 0044 1103 
0080 1055 PRIOR EQU X'80' MASK FOR PRIORITY QUEUEING 0046 1104 
0040 1056 SYS EQU X‘40' SYSTEM QUEUE HEADER REQUEST 0048 1105 
0010 1057 LIFO EQ X‘10' MASK FOR LIFO QUEUEING 004A 1106 
0000 1058 FIFO EQU. X‘00' MASK FOR FIFO QUEUEING 004C 1107 
0090 1059 PRIORL QU PRIOR+LIFO MASK FOR LIFO PRIORITY QUEUEING 004E 1108 
0080 1060 PRIORF EQU  PRIOR+FIFO MASK FOR FIFO PRIORITY QUEUEING 9050_1109 
1061 * 0052 1110 

1062 ** THE FOLLOWING QUEUE HEADERS ARE OFFSETS FROM LOCATION X‘0100' 0054 1111 

1063 ** IN MAIN STORE. THE QUEUE HEADERS HAVE VARIOUS FUNCTIONS 0056 1112 

1064 ** DEPENDENT ON THEIR USERS REQUIREMENTS. ANY USER OF THESE QUEUE 0058 1113 

1065 ** HEADERS MUST ALSO BE AWARE THAT CONTROL STORE MAY ALSO ACCESS OOSA 1114 

1066 ** THE HEADER ASYNCHRONOUSLY. 005C 1115 

1067 * OOSE 1116 

0000 1068 QHOFD  EQU  xX'00' DISK 0S 0060 1117 
0002 1069 QHDIO EQ X‘02' DISKETTE I0CS 0062 1118 
0004 1070 QHOPT PRINTER [OCH 0064 1119 
0006 1071 QHOWSC WORKSTATION IOCH 0066 1120 
0008 1072 QHDCOM COMMUNICATIONS [OCH 0068 1121 
QOOA 1073 QHDIOXNT EQU X‘OA' - 1/0 XIENT AREA 006A 1122 
1074 * EQ x'0c' RESERVED 006C 1123 

1075 * EQU. X'OE' O06E 1124 

1076 * EQU. X'l0' 0070 1125 

1077 * FQU) X'12' 0072 1126 

1078 * EQU X‘'14' | 0074 1127 

1079 * EQU  X'l6' | 0076 1128 

0018 1080 QHDCXNT EQU X'18' CONTROL STORAGE XIENT SCHEDULER CACE) 0078 1129 
OO1A 1081 QHOTWA EQU X'IA' TASK WORK AREA ACCESS CACE) 007A 1130 
OO1C 1082 QHDLOAD EQU  X'IC' M.S. RELOCATING LOADER (ACE) 31 
OO1E 1083 QHDKBTR EQU X‘IE' KEYBOARD TRACE (ACE) OO7E 1132 
0020 1084 QHDPT! EQU  xX'20' PRINTER QUEUE HEADER 1 CACE) 0080 1133 
0022 1085 QHOPT2 QU X'22' - PRINTER QUEUE HEADER 2 CACE) 0082 1134 
0024 1086 QHDPT3 EQU X'24' PRINTER QUEUE HEADER 3 (ACE) 1135 
0026 1087 QHDPT4 EQU X'26' PRINTER QUEUE HEADER 4 (ACE) 1136 
0028 1088 QHDPT5S 0090 1137 
002A 1089 QHDPT6 PRINTER QUEUE HEADER 6 0092 1138 
002C 1090 QHDPT? PRINTER QUEUE HEADER 7 0094 1139 
002E 1091 QHDPTS PRINTER QUEUE HEADER 8 0096 1140 
0030 1092 QHDFDA SPINDLE A QUEUE HEADER 0098 1141 
0032 1093 QHDFDB SPINDLE B QUEUE HEADER OO9A 1142 
0034 1094 QHDFDC 17| SPINDLE C QUEUE HEADER O09C 1143 
0036 1095 QHDFDD {7| SPINDLE D QUEUE HEADER OO9E 1144 
0038 1096 QHDIOA DISKETTE ACTIVE QUEUE OOAO 1145 
1097 * EQU RESERVED OOA2 1146 
OOA4 1147 | 
OOA6 1148 | 
OOAS 1149 | 
OOAA 1150 | 
OOAC 1151 | 
OOAE 1152 | 


15) 
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00570000 


4 
t 


NEN I ee TN UO TD 


TASK SUSPENDED DUE TO ADDRESS COMPARE 1 
TASK SUSPENDED OUE TO WS 1/0 ERROR 


ee ee ey ee: ee 6 ee 


0002 2794 TCBSDTAC EQU § X'‘02" 
0001 2795 TCBWIOSP EQU X‘Ol' 


OO7A 2797 TCBWAFLG EQU TCBSUSPS+1 © WSWA INITIALIZATION STATUS. 16 


2799 * SEE TUB MACRO (BYTE TUBWAFLG) FOR BIT DEFINITIONS WITHIN TCBWAFLG. i 
OO7C 2801 TCBSMFPT EQU  TCBWAFLG+2 SMF POINTER 
2802 * THE FOLLOWING EQUATE IS USED TO SET ON THE X‘80' BIT IN THE HIGH 
2803 * BYTE OF THE SMF POINTER FIELD. CURRENTLY THIS FIELD IS USED AS I 
2804 * A SWAP-IN COUNTER INSTEAD OF AN ADDRESS FIELD. 


0080 2805 TCBSMFON EQU  X'80° 


SSVAT TCB ATTACH TRANSIENT 
1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02) 003C 1099 QHOTIMER EQU X'3C' 
003E 1100 QHOTIMEA EQU X'3E" 
0041 1101 QHOSPTCB EQU x"41° 
03) 0042 1102 QHOXIENT EQU X'42' 
0044 1103 QHOPRIQ EQU X'44' 
0046 1104 QHDTCBQ EQU  X*46" 
04 0048 1105 QHOTTC EQU x'‘48' 
004A 1106 QHOSQE EQU X'4A' 
004C 1107 QHOCNLG EQU x‘4C’ 
05) O04E 1108 QHOCILK EQU X‘4E' 
0050 1109 QHOTRN EQU  X‘50' 
0052 1110 GHORFILK EQUx*52° 
06) 0054 1111 QHOCPOCL EQU  X'54' 
0056 1112 QHOSQB EQU X'56" 
0058 1113 QHOCSCQ EQU  x‘58" 
07 OO5A 1114 QHOTUB EQU X'5A‘ 
005C 1115 QHOCOM! EQU  xX‘5C’ 
OO5E 1116 QHOCOM2 EQU X'S5E' 
08) 0060 1117 QHDCOM3 EQU xX'60' 
0062 1118 QHOCOM4 EQU X‘62' 
0064 1119 QHDDILK EQU X‘64' 
09) 0066 1120 QHDSILK EQU X'66' 
0068 1121 QHOVILK EQU X'68' 
006A 1122 QHOSILK EQU  X‘6A’ 
10 006C 1123 QHDPILK EQU X‘6C' 
OO6E 1124 QHDHIST EQU  X'6E' 
0070 1125 QHDSQSPT EQU  x‘70° 
11 0072 1126 QHOCSB. «EQU  X'72' 
0074 1127 QHDERB QU X'74' 
0076 1128 QHOGW CEQUSCX"76" 
12 0078 1129 QHDSEC EQU X'78' 
OO7A 1130 QHDLOC EQU X'7A' 
1131 * FU X"7C* 
13) OO7E 1132 QHDSNA EQU X'7E' 
0080 1133 QHOWSQS EQU xX‘s0' 
0082 1134 QHDSQS EQU X‘82° 

14 1135 *% = ---- THRU -~-- 
1136 * EQU_ X‘8E* 


SMF HAS PROCESSED THIS TCB 


PAGE 26 09/11/81 12/08/81 21:28 "ad TCB ATTACH TRANSIENT 
¢ 
ERR LOC OBJECT CODE ADDR STI 


INTERVAL TIMER TQE QUEUE CTQED 0, 115: 
INTERVAL TIMER ACE QUEUE CACE) 1154 
CURRENT TASK EXECUTING ¢TCB) 1155 
MAIN STORAGE TRANSIENT SCHEDULER (TCBD 03} 

TCB PRIORITY QUEUE cTCB) 


TCB READY QUEUE 

TASK-TASK COMM 

STATUS QUEUE HEADER 

CONSOLE SYSLOG 

CONSOLE SYSLOG INTERLOCK 
TERMINAT ION/RELEASE 

REJECT FILE INTERLOCK 

OCL COMMAND REQUESTS 

SECTOR QUEUE BLOCKS 

CONTROL STORE COMPLETE QUEUE 
TERMINAL UNIT BLOCK QUEUE (TUB) 
COMMUNICATIONS {INE 1 
COMMUNICATIONS LINE 2 
COMMUNICATIONS LINE 3 
COMMUNICATIONS LINE 4 


CACE) 
(TUB) 
ACE) 


DEDICATION INTERLOCK CAQED 
SCHEDULER — INTERLOCK CANE) 
VTOC INTERLOCK CAQE) 
FORMAT FIVE INTERLOCK CAQED 
PROC NAME — INTERLOCK CAQED 10 
HISTORY FILE INTERLOCK CAQED 
ASSIGNED PAGES QUEUE HEADER CAPE) 
COMMUNICATIONS SPECIFICATION QUEUE (CSB) 11 
ERROR RECORDING BLOCK QUEUE HEADER (ERB) 
GENERAL WAIT QUEUE HEADER CACE) 
SECURITY QUEUE HEADER (PL) 1 
LOCATION OF NODE DICTIONARY (PL_) 
RESERVED 
SNA TASK QUEUE HEADER 1 
WORKSTATION QUEUE SPACE CFQED 
SYSTEM QUEUE SPACE CFQE) ; 
RESERVED 


0090 1137 QHDINQEX EQU  X‘90° INQUIRY EXIT QUEUE 
15 0092 1138 QHDQUAIL EQU x'92" QUEUED ACQUIRE INTERFACE LIST (PL > 1 
0094 1139 QHDRPT EQU  x'94" REMOTE PRINTER QUEUE (ACE) 
0096 1140 QHDSCT EQU  x'96" SUBSYSTEM CONFIGURATION TABLE PLD 
16 0098 1141 QHDTWAF] EQU X'98' TWA EXTENSION F1 CHAIN (Fl) 16 
OO9A 1142 QHDEXTRA EQU X'9A' EXTENDED TRACE CPL) 
009C 1143 QHDSUBCN EQU xX '9C‘ SUBCONSOLE SYSLOG PL) 
7 OO9E 1144 QHDSUBRA EQU X'9E' SUBCONSOLE REASSIGN (PL) 
OOAO 1145 QHDEIB EQU  X‘AO' ERROR INFORMATION BLOCK EIB) Pe . 
OOA2 1146 QHDNSACE EQU  X‘A2' NS GET PAGE ACE CACE) 
19 00A4 1147 QHDGLF EQU  X'‘Ad' GENERAL LOGGING FACILITY PARMLIST (PL ) 13) 
OOA6 1148 QHDEXAM EQU  X'‘A6' EXAM QUEUE CNAs) 
OOAS 1149 QHDNTI EQU X‘AS' MRT TERMINATION INTERLOCK 
19 OOAA 1150 QHDPDLH EQU xX‘AA' MULT SNA LINE INTERLOCK CAQE) 19 


OOAC 1151 QHDSPLK EQU 
OOAE 1152 QHDX21 EQU 


X‘AC' 
X‘AE* 


SPOOL FILE INTERLOCK CAQE) 


(CLA X.21 CACE) 


A29 
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26 VO9/11/81 12/08/81 21:28 : #SVAT TCB ATTACH TRANSIENT PAGE 27 = VO9/11/81 12/08/81 21:28 | |#SVAT TCB ATTACH TRANSIENT 
0 
ERR LOC OBJECT CODE ADDR STMT SOUSCE STATEMENT ERR_LOC OBJECT CODE ADDI 
CTQED 0 1153 * 0 ---- THRU ---- 


CACE) 1154 * EQU X'BE' RESERVED 
CTCB) 1155 *** END OF EXPANSION ®* 


CTCB) 03 


hI 
[ 
CTCB) 
¢TCB) 
CACE) a 0000 
(PL) 9001 
CPL ) 0007 
CAQED } 000: 
(PLD 0004 


CAQE) ie 
CPL ) nee 
(SQB) 007 
CACE) 
(ai) 
CACE) 
CRED 
CACE) 
(ACE) 260 
CARED 0061 
CAQED 0062 
CAQE) 00E0 
CAQED 
CANE) 
CANE) 
CAPE) 
(CSB) 
(ERB) 0020 
(ACE) 0021 
(PL) 0022 
(PL) 0023 
F O024 
0025 
CFQE) 
CFE) 
14 
008 1 
(ACE) pei 
(PL ) 15 oe 
(ACE) = 
cs) ’ 7 se 
1) 16 ~ haa 
(PL) al 
PLD _. — 
(PL ) V pos 
(EIB) seca! be 
CALE) a % * ee 
(PL > 18 eta 
(NAS) me 
OOEE 
CAQED 19 } OOEF 
CAQED o0Fo 
CACED . OFT 


A30 
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‘lei LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


1157 * 
1158 * 


1159 * THESE ARE THE EQUATES FOR INTERFACING TO #ICDB. THE RIB BYTE 


1160 ® PLACED IN THE CALLERS RBSUORKS+1 FIELD HAS ONE OF THE FOLLOWING 
1161 *_ VALUES. 
1162 * 
D4 0000 1163 DBRTNC EQU 0 DB REQUEST RIB BYTES 04 
0001 1164 DBRTNI EQU  DBRINC+] _RELEASE/EOJ OR E0S 
0002 1165 DBRTN2 EQU  DBRTNI*1 ASSIGN FAILURE RECOVERY 
0003 1166 DBRTN3 INPEDIATF DISABLE IN SUB 
0004 1167 DBRTN4 4 
0005 1168 DBRTNS EQU  OBRTN4+1 USER INPui DATA ON DISK 
0006 1169 DBRTNS EQU DBRTNS+1 END OF XACT RETURN CODE 
0007 1170 DBRTN? IML MRT DATA ON DISK IN LSWA 
7 * 
b7 1172 * THESE ARE THE EQUATES FOR INTERFACING TO #ICDC. THE RIB BYTE 0 
1173 *_ PLACED IN THE CALLERS RBSWORKS+1 FIELD HAS ONE OF THE FOLLOWING 
1174 * VALUES. 
1175 * 08 
0060 1176 DCRTNC £QU _X'60" OC REQUEST RIB BYTES 
0061 1177 DCRTN] EQU  DCRTNC+] PERFORM FORMAT PROCESSING 
0062 1178 DCRTN2 EQU OCRTNI+1 ERROR RETURN CODE IS IN SUB 09 
OOEO 1179 DCRTNH EQU _X*E0" ERROR RETURN CODE IN RBSWORK+1 


1180 * 
1181 * THESE ARE THE EQUATES FOR INTERFACING TO #ICDA. THE RIB BYTE 
1182 * PLACED IN THE CALLERS RBSWORKS+1 FIELD HAS ONE OF THE FOLLOWING 


tied TCB ATTACH TRANSIENT 
a LOC OBJECT CODE ADOR ST 


OOF2 121 
121 


1183 * VALUES. 
1184 ® il 
0020 1185 DARTNC  £QU _X'20" DA REQUEST RIB BYTES 
0021 1186 DARTNT EQU DARTAC+1 HANDLE SET TIMER OP-Cu.- 
0022 1187 DARTN2 EQU DARTNI+] © HANDLE ACQUIRE OR GET ATH.“ 1 
0023 1188 DARTN3 EQU DARTN2+1 PERFOR _READ AHEAD 
0024 1189 DARTNS EQU  DARTN3+1 OUTPUT TO AN INVITED SESSION 
0025 1190 DARTNS QU DARTN4*1 © HANDLE INPUT FIH‘S 3 
ug * 
1192 * THESE ARE THE EQUATES FOR THE DIFFERENT HALT CODES 
1193 * 14 
O0E1 1194 OMERRI EQU. DCRTNH+1 —_—_RELEASE REJECTED - SESN INC. 
00E2 1195 DMERR2 EQU  DMERRI*1 SESSION ID UNKNOWN OR UNOWNED 
00E3 1196 DMERR3 EQU DNERR2+1 ‘INVALID GP TO INVITED SESS. 15] 
— O0E4 1197 DMERR4 EQU DMERR3+1 _—_INVALID OPERATION CODE 
OOES 1198 DPERRS EQU  DRERR4*1 EVOKE INVALID TO NON-ACQ SESN 
“OOE6 1199 DMERR6 EQU DNERR5+1 «ICS CQS NOT AVAIL. FOR EVOKE 16] 
O0c7 1200 DER? EQU _DMERR6+1 —_USER OUTPUT LENGTH TOO LONG 
OOES 1201 DMERRS EQU DNERR7*1 PREMATURE EOJ/E0S 
OOE9 1202 DNERR9 EQU DMERRS+1 «IMMEDIATE DISABLE IN PROGRESS 1 
OOEA 1203 DNERIO EQU _DMERR9+1 —_—_DISABLE_ PENDING 
OOEB 1204 OMERI1 EQU  DNERIO+1 ENABLE NOT COPPLETE 
OOEC 1205 DMERIZ EQU OMERII+1 SUBSYSTEM NOT ENABLED 18 
QOED 1206 DMERI3 EQU DMERI2+1 —_—=MAK._ SESSIONS ACTIVE 
OOEE 1207 DMERT4 EQU  DMERI3+1  INSUFF. SQS FOR SUB ALLOCATE 
OOEF 1208 DNERIS EQU DMERI4+1 ——-SUBSYS. HAS PROC. CHECKED 19 
OOFO 1209 DNERI6 EQU _DMERIS+1 —_—_ SESSION NOT ACQUIRED 
OOFT 1210 DERI? —EQU DNERI6+1 SESSION STMT NOT SUPPORTED BY SS 


A31 


15 
16 


17 


18 
19 
0 


PAGE 28 VO9/11/81 12/08/81 21:28 


3 BYTE 
‘OLLOWING 


| BYTE 
OLLOWING 


00582000 


0000 2876 TQETCB €QU  X‘00" INDICATES USER TOE CIN TCB.) 


0001 2877 TQEDSP EQ = X"O1" INDICATES DISPATCHER TQE. 

0002 2878 TQEASR EQU X‘02" INDICATES ASSIGN/FREE RECOVERY TQE. 

0003 2879 TQEMN = EQU._—X‘03" INDICATES MIDNIGHT TQE. 

0004 2880 TQESDLOG EQU  v‘Cs" INDICATES STATISTICAL DATA LOG TQE. 
2881 * x 05° - X‘OF* NOT USED. 

0004 2882 TQETYPL EQU \.SDLOG LAST VALID TQE TYPE VALUE. 

QOOF 2883 TOETYPF EQU X‘OF' TYPE MASK. 


0005 2885 TQETOX EQU TQECC+4 TIME OF EXPIRATION. 
2886 * NOTE: TQETOX IN ALAYS IN TIMER UNITS. 1 


0007 2838 TQEFLNK EQU  TQETOX+2 CHAIN TO NEXT TIMER QUEUE ELEMENT. 1 
B32 
#SVAT TCB ATTACH TRANSIENT PAGE 29 O9/11/81 12/08/81 21:28 01 
1 

ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 

02) OOF2 1211 DMERI8 § EQU  DMERI7+1 GP REJECTED, DATA WAITING 
1212 _*** END OF EXPANSION ** 

‘ ee 
ee ee 
sn 
Sn 
07 
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16 
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18 
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ee 
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PAGE 29 VO9/11/81 12/08/81 21:28 ] |#SVAT CB ATTACH TRANSIENT PAGE 30 VO> "11/61 12/08/81 21:28 * *SVAT TCB ATTACH TRAY 
01 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
02 1214 * iWAEQ 00586000 | 02} 
1216 REKRRARRARARKRAKAAKAAAARARARKKLA RRR, RARRKKRERKAKKRRARRAKKKAKAKAAAAAAK AR 
03 1217 -* ® 03 
1218 * THE INITIATOR WORK AREA istaed 
1219 * RELEASE 8 VERSION OF 09/09/80 * 
04 1220 * ® 04 
1221 RRKAKKKRRARAAKRAAKRAARAAKKKRARAKRAAAKRARRKKKREAARARARRARKARAKAK KERR ARARIR 
05 0000 1223 IWSWICH! EQU 0 SWITCH BYTE 1 05) 
0080 1224 IWLOADST EQU  X"80" LOAD STATEMENT RECEIVED 
0040 1225 IWFILEST EQU "40" FILE STATEMENT RECEIVED 
06| 0020 1226 IWCMPLST EQU  X‘20' COMPILE STATEMENT RECEIVED 06 
0010 1227 IWATMRTM EQU  X‘10° MRTMAX VALUE SET BY ATTR 
0008 1228 IWATNEPA EQU  K*08" NEP ATTRIBUTE SET BY ATTR 
07 0004 1229 IWSNACST EQU  X‘04' SNA COMM STATEMENT RECEIVED 07 
0002 1230 IWINTREL FQU  X‘02" RELEASE WORKSTATION BEFORE 
eo rt 1231 * LOADING PROGRAM 
08) 0001 1232 IWIGCDTA EQU  X‘O1" TGC DATA IN INPUT RECORD 03 
0001 1274 TWSWIC’2 EQU  TUSUTCHI*1 SWITCH BYTE TWD 
09 0080 1235 IMDSPNAN EQU  X'80' DISPLAY NAME FIELD, NOT HEADING 09 
0040 1236 IWONLYER EQU X‘40° DISPLAY ERROR ONLY ae 
0020 1237 TMCOMST EQU X"20" COM STATEMENT RECEIVED 
10 0070 1238 IWNOTERN EQU  X‘10° STATEMENT PROCESSORS SHOULD NOT 1 
1239 * CALL TERMINATION Ot ly 2 a 
0008 1240 IWATRELA EQU  x*08" RELEASE ATRISUTE SET BY ATTR 
ll 0004 1241 [WHISTLE EQU X‘04' LOG OCL STATEMENT TO HISTORY 1 
1242 * FILE 
0002 1243 IWDEDINT EQU  X‘O2" GET DEDICATION INTERLOCK BEFORE 
12 1244 * ACQUIRING REQUIRED WORKSTATION 
0001 1245 IWARTREL EQU  X'01" RELEASE REQUIRED FOR A MRT PROC 


1246 * WITH NO LOAD AND RUN 


0002 1248 IWSWTCH3 EQU  IWSWICH2+1 SWITCH BYTE THREE 
. 0080 1249 IWFSBASN EQU X‘80" FSB SPACE ASSIGNED 
0040 1250 IWNOQUE EQU xX*‘40' DON'T QUEUE CURRENT F1 
0020 1251 [WFITAF EQU  X‘20' MOVE {Y Fl TO A/F AREA 
1252 * EQU X"10' 
1253 * EQU x‘08" 
1254 * EQU X‘04' 
1255 * EMU X02" 
1256 *® EQU X‘O1' 


1258 TWSWICH4 EQU IWSWICH3+1 © SWITCH BYTE FOUR 


1260 IWERROR® EQU  IWSWICH4+2 — ERROR CODE / NIC # 
1261 TWEMODID EQU = IWERROR®+2 = MODULE ID 
1262 IWENDVRB EQU [WEMODID+2 — END-OF-VERB ADDRESS 
1263 IWNASFLD EQU  [WENDVRB+S NAME FIELD 


1265 * CONTROL BLOCK ADDRESSES 


0013 1267 IWMJCBAD EQU [WNAMFLD+2 JCB ADDRESS 


A33 


2926 * 48 =—-* 49 MB HC FQ NE af * 
2927 * ATTRO * RFSS * REN * RFCSS * RFOSP * TUBCMSK ... * 
2928 ®RERRRRARARRERRARARIRRARRRARERERARARRRRRARRRRARRARARA TRE RR RAR RR RR 
2929" 50 =* 51 ® 53* 54*55 * 56 57 * 
2930 * CNSK * FISK * — DEXTa * ATTRA * NSGID * TUBDMATX id 
2G3] RRRRRRERRERRRRERRER RRR RRRANRRRRRRARRE REAR AARR RRA R RRA RR RRA RRR 
2932 * 58 = =* 59 SA* 5B * Sf * 
2933 * ATTRB * TUBDGTUB * ATTRC * RESERVED * 


2934 RARKKRARKARARRARKRAARAAA RAK RARER AERA RERAKAHRR ARERR ARERR 
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01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


0015 1268 INMTCBAD EQU IWMWCBAD+2 = TCB ADDRESS 02 


00586000 02 
0017 1269 TWMTUBAD EQU _IWETCBAD+2 TUB ADDRESS 


RRRARRRRRRRRRER 
* 03 1271 ® ADDRESSES OF INITIATOR MAINLINE ROUTINES U3 
Ld 
O4 


0019 1273 [WLO8000 EQU IWMTUBAD+2 © ADDRESS OF FILE INIT ROUTINE 

0018 1274 TWL50000 EQU IWLO8000+2 = ADDRESS OF CHECK ROUTINE O4 
RARAR RAR RRR 0010 1275 [Wk51000 EQU _IWA50000+2 ADDRESS OF FSB ADD ROUTINE 
Yt OO1F 1276 IWL52000 EQU IWL51000+2 = ADDRESS OF F1 ADD ROUTINE 


05) 0021 1277 TWLERORA EQU 110.52000+2 —ADORESS OF ERROR ROUTINE 
0023 1278 IWLALPHA EQU IWLEROR@+2 ADDRESS OF ALPHA CHECK ROUTINE 
0025 1279 TWLFETCH EQU  {VLALPHA+2  ADORESS OF MODULE FETCH ROUTINE 

06 0027 1280 IWLBINRY EQU TWLFETCH+2 © ADORESS OF CVT TO BINARY ROUTINE 06 
0029 1281 IWLRESO! EQU IWLBINRY+2 RESERVED FOR FUTURE USE 
0028 1282 IWLRESO2 EQU  TWLRESOI+2 RESERVED FOR FUTURE USE 

07 0020 1283 IWLRESO3 EQU [WLRESO2+2 RESERVED FOR FUTURE USE 07 


OO2F 1284 IWRESO4 EQU IWLRESO3+2 RESERVED FOR FUTURE USE 
0031 1285 [WRESOS EQU IVARESO4*2 «= RESERVED FOR FUTURE USE 


1287 * DIRECTORY ENTRY OF MODULE TO BE LOADED 


JING 09 0034 1289 IWPGADDR EQU IWLRESO5+3 DISK ADORESS OF MODULE 09 
0035 1290 IWPGNUNS EQU IWPGADOR+] NUMBER OF TEXT SECTORS 
0037 1291 TWPGLINK EQU  TWPGNUMS+2 — LINK-EDIT ADDRESS 
NoT 10 0039 1292 IWPGSCTL EQU IWPGLINK+2 ENTRY POINT 10 
003A 1293 [WPGRLDD EQU IWPGSCTL+1 —_RLD DISPLACEMENT 
0038 1294 IWPGCRSZ EQU [WPGRLDD+1 © MODULE SIZE 


sl OO3E 1295 [WPGATTR EQU = IMPGCRS2+3 = ATTRIBUTES ll 
003F 1296 IWPGMRTM EQU  IWPGATTR+1 MRTMAX VALUE 
“ORE 0040 1297 IWPGRELL EQU = I[WPGMRTM+: = RELEASE 1 FVEL 
D WORKSTATION 12 0042 1298 [WPGTOTL EQU IWPGRELL+2 TOTAL "DUIS S:cF 2 
ROC 0043 1299 IUPGATR4 EQU  IWPGTOTL+1 = 4TH ATTRIBUTS Bye 
RUN 0044 1300 IWPGXTRA EQU IWPGATR4+1 = RESERVED ; 
13 i 


0045 1302 IWPGSWAP EQU  IWPGXTRA+1] SWAP AREA SIZE 


14 1304 * SOURCE MEMBER INFORMATION 4 


00483 1306 IWSRSTRT EQU IWPGSWAP+3 = START SSS ADDRESS 


15 G04B 1307 IWSREND EQU  IWSRSTRT+3 END SSS ADDRESS 15 
OO4C 1308 TWSRRECL EQU IWSREND+] RECORD LENGTH 

16 1310 * — SYSIN PARAMETER LIST 16 
04D 1312 IVSTFNC! EQU  TWSRRECL+1  SYSIN FUNCTION BYTE ONE 

17 OO4E 1313 IWSISTAT EQU JWSIFNC1#1 — SYSIN STATUS BYTE 7 
OO4F 1314 IWSINEXT EQU  IWSISTAT+1 RESERVED 

ss 0051 1315 [WSIBUFa EQU  IWSINEXT+2 | SYSIN BUFFER ADDRESS 

} 13 

1317. * THE FOLLOWING FIELDS ARE USED BY THE CONVERT TO BINARY ROUTINE 

19 0052 1319 IWLENGTH EQU I[WSIBUF@+1] © PARAMETER LENGTH 19 


0054 1320 IWBINARY EQU  [WSIBUF@+3 OUTPUT FROM CONVERT TO BINARY 


A34 
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ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


02 0055 1322 IVEROPTN EQU IWBINARY+1 — ERROR MESSAGE OVERRIDE OPTIONS 


0059 1324 IWMODSKa EQU =[WEROPTN+4 = —OXREF DATA FOR MODULE FETCH 
0050 1325 TWMODSK1 EQU IWMDOSKa+4 = ©—OXREF DATA FOR IST LEVEL MODULE 


OOCO 1327 IWENCODE EQU 192 START OF ENDODING AREA 


OOC5 1328 TMENCDLN EQU 197 LESSTH OF ENCODING AREA 
0186 1329 TWCOMMAR EQU _IWENCODE+IVENCDLN+1 START OF MODULE COMMUNICATIONS 
1330 * REA 
0079 1331 TMCOPMLN EQU 121 LENGTH OF MODULE COMMUNICATIONS 
E 1332 * AREA - 
pe 06 1334 KRRRAAAKRAKRAARRRAAAKARRKKRARAACRRKRKRARLERRKL KER REE REA ERRARIR IRE IR 


COMMON INITIATOR EQUATES 


C800 1340 IAIRKARA EQU ‘ ADDRESS OF INITIATOR WORK AREA 
CAO7 134] IWENTRY@ EQU  X°CAOT* ENTRY POINT OF @CIML 
CAOB 1342 IWRETRNA QU X‘CADB" RETURN ADDRESS 10 SCIML 


F800 1343 IWAODLDA EQU X"F800 MODULE LOAD ADDRESS 

OCOO 1344 [WBUFFRA EQU  X‘DC0O SYSIN BUFFER ADDRESS 

DOOO 1345 TWSYSINA EQU = X"DD0O SODRESS OF SYSIN ROUTINE 
OD10 1346 IWPPSABA EQU X"DDIO° PPSA BUFFER ADDRESS 

OF20 1347 IWRKBFRa EQU 600 BYTE SYSIN WORK BUFFER 


1349 *** END OF EXPANSION ** 


ROUTINE 


9080 3003 TUBSUERP EQU ~ INDICATES USER DEFINED ERP 


0040 3004 TUBSNIZ EQU X"40° . NO RETURN ON PERMANENT ERROR 
0020 3005 TUBAUTOB EQU X'20" AUTO INPUT BUFFER ASIONENT : 
0010 3006 TUBS EQU X10" Tas NOT ALLOMES OFF VERTICAL TmCHATH 


0008 3007 TUBOM. §EQU X"05" «DEVICE. ONL INE 

0004 3008 TUBRIISU EQU_X°04" _ READ INPUT ISSUED TO Tub 
(0002 3009 TUBRINGH EQU x"O2" ~ READ INPUT MOT COMPLETE 
0001 3010 TUBSOTCS EQ x"DI" . ORTA IN CONTROL STORE 


0003 3012 TUBCTWD £QU 108 COMAND BYTE 


00CO 3014 TUBSOA QU _x*CO" LOCAL UDRK TATION DEVICE ADORESS 
OOEO 3015 TUBSPNAV EQU X"E0" "NATIVE PRINTER DEVICE ADDRESS 

00CO 3016 TUBSEXEC EQU  x"CO’ . EXEC 1/0 OPERATION CODE 

0OC1 3017 TUBSPOLL EQUX°CI" EXEC IWVITE_OPERAT iON 


OOC2 3018 TUBSIDLE QU X°C2° - QUIESCE 4 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 1351 *® JCBEQ a 


1353 RXRRARRRRE RXRRARAR > CRRAAER RARER ERATOR T RE 


03 1354 * . 


1355 * JOB CONTROL BLOCK it - 
1356 * . | 
04) 1357 RRERAAKKAAKREARERARRAEKARE SKEET HT 
0000 1359 JCBDINIT EQU 0 INITIATOR SWITCH BYTE — res 
05 0080 1360 JCBMNTRA EQU  X‘80' IN INTPA MODE CLOAD STATEMENT RECEIVED) / 
0040 1361 JCBMRUNG EQU  x"40" PROGRAM RUNNING CBETUEEN RUN STATEMENT AN, 7 ; 
1362 * TERMINATION) 
06 0020 1363 JCBMNTER EQU X‘20" IN INTER MODE CBETUEEN TERMINATION AND 
1364.* LOAD STATENENT Beteee | a 
0010 1505 JCBMINHT EQU X*10° TGNORE NO-HIST PROCEDURE ATTRIBUTE 
07 0008 1366 JCBMNMRT EQU X‘08' THIS IS A MRT JCB 
RERRAARARRRRR 0004 1367 JCBMNOSC EQU Xx ‘04* NO SOURCE REQUIRED ; 
0002 1368 JCBMILDS EQ x"02° LOAD STMT RECEIVED THIS SESSION * . 
08 0001 1369 JCBMILDJ EQU xX‘O1" LOAD STMT RECEIVED THIS JOB 


0001 1371 JCBDINT2 EQU JCBDINIT+1 — INITIATOR SWITCH BYTE TWD 
09 0080 1372 JCBPREGN EQU X*80" JOB REGION RECEIVED 


0040 1373 JCBARLCL EQU X"40" LOCAL OATA AREA IS IN STORAGE = 
0030 1374 JCBRHIPR EQUx°30° HIGH PRIORITY HAS BEEN SPECIE F 


10 0020 1375 JCBMIDPR EQU  X‘20° MEDIUM PRIORITY HAS BEEN Ser ° 


0010 1376 JCBMLOPR EQU  X"10" _ 
1377 *® Gane = 
i 0008 1378 JCBMIPRC EQU Xx'08' 
0004 1379 JCBMUSLB EQU X"04° PROGR CJCBOPROG: WAS FUND IN USER Sans 
1380 * CIBRARY CCRC ~ ere ee 
12 0002 1381 JCBMRSNP EQU  xX‘G2* ENQUEUE PE SOURCES WITH NEP ATTRIBUTE 
0001 1382 JCBMNRTP EQU  xX‘OI" NRT PROGRAR 


13) 0002 1384 JCBDSCH] EQU  JCBDINTZ+! SCHESULER BYE OME 


0080 1385 JCBMPUCL FQU x '8O" PROGRAM HAS 07 7Y CONTRO, CTATENENT® 
O40 1386 JBRKPFF FQU Sec uy OKRES a> 74 wa ON ye? 
14 3026 1387 JCBMPTWR EQU oe PLT O1GIN RECORD SSN pat 
we RRR BRU ca FS JTILGDY CONTROL STATEMENTS 
fon ets fe == 108 1389 JCBMDEAD QU 0S ~——=s*«SROGRAY 7S“ DEDICAT.D 
9004 1390 JCBPTCD EQU X'0a" Orly DATE - WORLD TRADE 
0002 1391 JCBMDOMD EQU  X‘02" MDY DATE - DOMESTIC 


0001 1392 JCBMYMDD EQU  X‘01" YD DATE - INTERNATIONAL 


0003 1394 JCBDSCH2 EQU JCBDSCH1+1 SCHEDULER BYTE TWD 


0080 1395 JCBMOPCL EQU ‘80° OPEN OR CLOSE ERROR 

0040 1396 JCBNPRTY EQU X'40’ PRTY COMPAND EXECUTED PRIOR TO START OF 
1397 * JB 

0020 1398 JCBMPNEP EQU = x'‘20° PROGRAM IS A NEP 

0010 1399 JCBMBTCH EQU X'10° J08 QUEUE PROGRAN 

0008 1400 JCBMICRC EQU  X'03' INCLUDE STATEENT RECEIVED 

0004 1401 JCBMDPRD EQU '04' ALLOCATE - DONT PREPARE THE DISKETTE 

0002 1402 JCBMINQP FQu x‘0z" INQUIRY LATCH SET 


0001 1403 JCBMNCNI EQU  X'01 NON-INQUIRABLE PROGRAM 


A36 


Lf 2064 * cQU x OO » RECEIVE PARITY CHECK 
: 3065 * FQU  X'04" . RECEIVE LENGTH CHECK 
3066 * FQU. X'02" > NOT USED 
18 3067 * FQU X01" . EVEN/ODD TIME OUT 
000C 3069 TUBSENS2 EQU  TUBSENSI+1 SENSE BYTE 2 
3071 * EQU . DEVICE HUNG BUSY 
3072 * EQU . LINE PARITY CHECK 
C01 
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ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE ADDR STNT SOURCE STATENENT 


02 0004 1405 JCBDSCH3 EQU = 'CBNSCH?- SCHEDULER BYTE THREE 
0080 1406 JCBMSEOJ EQU SYSLOG - SUPPRESS 2 OPTION HALT 
0040 1407 JCBMSOFF EQU xX’ - SYSLIST OFF SELECTED BY HALT OPTION 
03 0020 1408 JCBMSPRT EQU X‘zu' SYSLIST PRINTER SELECTED BY HALT OPTION 
0010 1409 JCBMREST EQU  X‘10' RESERVE STATEMENT RECEIVED THIS JOB 
0008 1410 JCBMSCRT EQU X'‘08' SYSLIST CRT SELECTED BY HALT OPTION 
04 0004 1411 JCBMEOMP EQU X'04' END OF OUTER-MOST PROCEDURE 
0002 1412 JCBMRINQ EQU  X'02' INQUIRY JCB 
0001 1413 JCBMDSRC EQU  X'O1' TERMINATION - DISPLAY RETURN CODE 
05 
a 0005 1415 JCBDINLK EQU  JCBDSCH3+1 SCHEDULER INTERLOCK BYTE 
: 0080 1416 JCBMSLOG EQU X'‘80" SYSLOG TRANSIENT CALLED 
06) 0040 1417 JCBMSYSN EQU X‘40" SYSIN TRANSIENT CALLED 
0020 1418 JCBMDKAL EQU  X'‘20' DISKETTE FILE ALLOCATED, BUT NOT CLOSED 
0010 1419 JCBMRDVC EQU = X'10' DISKETTE VTOC ON DISK 
07 0008 1420 JCBMRDVU EQU X‘08" DISKETTE VTOC UPDATED 
0004 1421 JCBMRCSM EQU  X'‘04' RESUME - CALL #CSIM 
0002 1422 JCBMSELT EQU = X‘02' AUTO-LOADER DISKETTE SELECTED 
08} 0001 1423 JCBMRSET EQU X‘01" RESET STATEMENT RECEIVED 


0006 1425 JCBDUPSI EQU JCBDINLK+1 — UPSI SWITCH BYTE 


09 0080 1426 JCBMUPS! EQU  X'‘80' UPSI SWITCH ONE 
0040 1427 JCBMUPS2 EQU  X'40" UPSI SWITCH TWO 
0020 1428 JCBMUPS3 EQU  X‘20° UPST SWITCH THREE 
10 0010 1429 JCBMUPS4 EQU  X‘10" UPSI SWITCH FOUR 
_ 0008 1430 JCBMUPS5 EQU X‘08" UPSI SWITCH FIVE 
0004 1431 JCBMUPS6 EQU x‘04" UPST SWITCH SIX 
11 0002 1432 JCBMUPS7? EQU  X‘02" UPSI SWITCH SEVEN 
Sas 0001 1433 JCBMUPS8 EQU  X‘O1' UPSI SWITCH EIGHT 
12 0009 1435 JCBDDATE EQU JCBDUPSI+3 SESSION DATE 
OOCE 1437 JCBOPDAT EQU  JCBDDATE+3 PROGRAM DATE 
13 
- OOOE 1439 JCBDSLST FQU JCBDPDAT+2 — SYSLIST INDICATOR - PRINTER ID 
0000 1440 JCBSLOFF EQU Xx ‘0000° X‘0000° = OFF 
14 EEEE 1441 JCBSLCRT EQU  X"EEEE* X'EEEE' = CRT 
0010 1443 JCBDCRLB EQU  JCBDSLST+2 CURRENT LIBRARY Fl POINTER 
15 0012 1444 JCBDFSBL EQU JCBDCRLB+2 LIBRARY FSB CHAIN POINTER 
0014 1446 JCBDFSBF EQU  JCBDFSBL+2 FILE FSB CHAIN POINTER 
16 
_ 0016 1448 JCBDWSBP EQU  JCBDFSBF+2 — WSB CHAIN POINTER 
17 0018 1450 JCBDPSBP EQU  JCBDWSBP+2 PSB CHAIN POINTER 
= 0020 1452 JCBDIPRC EQU  JCBDPSBP+3 NAME OF FIRST LEVEL PROCEDURE 
13 1453 * MRT PROCEDURE NAME IF JCBMAMRT IS ON AND 
1454 THIS JCB IS POINTED TO BY THE NRT'S TCB) 
i) 0028 1456 JCBDPROG EQU JCBDIPRC+3 — PROGRAM NAME 
~ _ 0029 1453 JCBPSTAT EQU JCBOPROG+1 | STATUS BYTE 
20 
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TBM SYSTEM/34 SYSTEM SUPPORT PROGRAM PRODUCT 


29 JANUARY 82 PROGNO 5726-SS1 REL: RO8-MOO 
“COPYRIGHT TBN CORP. 1978 LICENSED MATERIAL - PROPERTY OF IBN 
02 
aaa) aaa Bos) aaaa aaa aaaaaaa 
03 aaa aaa aaaaaadaaaaa agaa aaa aaaasadaaaaa 
aaa aaa aaaadaaaadadda aaaa adda aadasadaaaaada 
aSASARAGAAHARaAA aaaaa aaaaa aaaa aada aaaaa aaaaa 
04 aaaadaaaaaaadaaa aaa aada aaaa aaga aaaa aada 
aaa aaa aaa aaaa aaaa aaaa aaaa 
aaa aaa aadaaaad asada = aia) aaaa aaa 
% aaa aaa aaaaaaa aaaa aada aaaaaaaaaaadadaa 
aaa aaa aaaaa aaaa aaaa aadadadaaaadaaaa 
aaaadaandaaaadas adaa aaa aadaaaad adadaaaaaaaaaaaa 
ow aaaaRaAAAAAAAAGA aaaaa aaaad aged aaaa aaaa 
madAAAAAAAaAAS aaa aaaa aaa 


AAANTRAAAANNAT oe ates ere IEE Vg 


311 * (REFERENCE TUBSENSO BIT1 > 
15 

3113. * €QU X‘01' «INVALID COMMAND MODIFIER 
3114 * EQU X02" . INVALID BYTE COUNT (O OR 4096) 
3115 * EQU  X‘03" . DEVICE ADDRESS NOT FOUND 
3116 * EQU X‘04" «BYTE COUNT 7= ACTUALLY TRANSFERED 
3118 * GRO. 3 - RESOURCES TEMPORARILY NOT AVAILABLE ERRORS 
3119 * ( REFERENCE TUBSENSO BIT2 ) 
3121 * EQU X‘O1" . PRINTER BUSY DURING WRITE ATTEMPT 

0002 3122 TUBSNEAD EQU  X'02" . WS_IN ERROR MODE 
3123 * EQU. X03" . DEVICE OFFLINE ERROR 
3124 * FQU X'04' . PRINTER NEEDS INITIALIZATION 

0005 3125 TUBSNRMD EQU  X‘05' ._NOT READY DUE TO OPERATOR ERROR MODE 
3126 * OR SYS REQ MODE 

C02 
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01 


ERR LOC OBJECT CODE ERR LOC OBJECT CODE 


ADOR STHT SOURCE STATEMENT 

WAITING FOR PRINTER 

WAITING FOR COMMUNICATION LINE 
WAITING FOR DISKETTE 

WAITING FOR DISK SPACE 03 
INITIATOR WAITING FOR RESOURCES 

WAITING FOR A MRT OVER MRTNAX 

HALT PENDING TO SYSTEM OPERATOR 0 
FILE EXTENSION IN PROCESS 


02 0080 1459 JCBMWPNT EQU  X'80" 
0040 '460 JCBMWLIN EQU  X‘40' 
9020 141 JCBMWOKT EQU  X'20' 
0 9010 1’oz ICBMMDSK EQU  X'10' 
Uocl 1463 JCBMINT EQU  X'08' 
0004 1464 JCBMMYIX EQU  X'04' 
04 0002 1465 JCBMSLOP EQU  X'02' 
0001 1466 JCBMEXTO EQU  X'O1' 


05 002A 1468 JCBDRGS2 EQU JCBDSTAT+1 — REGION SIZE (STEP) 05 


0028 1470 JCBDCTAG EQU JCBDRGSZ+1 — CURRENT TAG IN FPSA 


0020 1472 JCBDSLOB EQU  JCBOCTAG+2 —SYSLIST I0B ADDRESS 


07 OO2F 1474 JCRDRTCD EQU JCBDSLOB+2 = RETURN CODE (NIC) 07 


0031 1476 JOBDEXTA EQU JCBDRTCD+2 = JCB EXTENSION ADDRESS 


3 
8 


0033 1478 JCBDPRG] EQU JCBDEXTa+2 
0035 1479 JCBDPRG2 EQU JCBDPRG1+2 
09 0037 1480 JCBDUSR1 EQU JCBDPRG2+2 
0039 1481 JCBDUSR2 EQU _JCBDUSR1+2 
003B 1482 JCBDPGIL EQU JCBDUSR2+2 
10 003D 1483 JCBDPG2L EQU JCBDPGIL+2 
003F 1484 JCBDURIL EQU JCBDPG2L+2 _USER1 LIBRARY FORMAT~1 ADDRESS 
0041 1485 JCBDUR2L EQU JCBDURIL+2 = USER2 LIBRARY FORMAT~1 ADDRESS i 
i 
9043 1487 JCBDMENU EQU JCBDUR2L+2 RELATIVE SS OF MENU MESSAGE MEMBER 
0045 1488 JCBDMENL EQU  JCBDMENU+2 = MENU LIBRARY FORMAT-1 ADDRESS ” 
12 


RELATIVE SS OF PROGRAM! MESSAGE MEMBER 
RELATIVE SS OF PROGRAMZ MESSAGE MEMBER 
RELATIVE SS OF USER] MESSAGE MEMBER 09 
RELATIVE SS OF USER2 MESSAGE MEMBER 

PROGRAM LIBRARY FORMAT-1 ADDRESS 

PROGRAN2 LIBRARY FORMAT-1 ADDRESS l 


0047 1490 JCBDJBID EQU  JCBDMENL+2 JOB NAME (ID) 
13 0048 1492 JCBOLNPG EQU JCBDJBID+1 — LINES/PAGE 13 
004C 1494 JCBDFMNO EQU JCBDLNPG+4 = FORMS NUMBER 


0040 1496 JCBDSLLC EQU JCBDFMNO+1 = SYSLIST CRT LINE COUNTER 


15 OO4E 1498 JCBONFTF EQU JCBDSLLC+1 = NUMBER OF FORMATS FOUND 15 


0050 1500 JCBOFINA EQU JCBDNFTF+2 ADDRESS OF FORMAT INDEX 


0052 1502 JCBDCIBA EQU  JCBDFINA+2 — ADDRESS OF COMPILER INFORMATION BLOCK 


7 0054 1504 JCBDDTFA EQU JCBOCIBa+2 ADDRESS OF FIRS} DIF ON CHAIN VW 


0055 1506 JCBDSLLR EQU JCBDDTFa+! = SYSLIST CRT LINES REQUESTED 


0056 1508 JCBDDFRG EQU  JCBDSLLR+1 REGION SIZE (DEFAULT) 


19 0057 1510 JCBDJBRG EQU JCBDDFRG+! = REGION SIZE (JOB) 19 


OO5E 1512 JCBOMENF EQU JCBDJBRG+7 = MENU FORMAT INDEX (NON-RELEASED WS JOBS) 


B02 
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LENGTH OF MODULE [5 204 


VM fale 


0032 3214 


Sel ee Oe ee BN, PN TEM ee Rt EE ONE PE SU bd 


~ 0015 3165 TUBQHDR EQU TUBDEVID+1  QUFUE HEADER POINTER FOR PRINTER : 0034 3215 
1 
0016 3167 TUBERPCT EQU  TUBQHDR+] ERP CONTROL BYTE 0035 3217 
3169 * 16 
3170 * SEE THE ERBOCTL FIELD OF THE ERB MACRO FOR ASSOCIATED MASKS. 
3171 * 
7 
0017 3173 TUBERBFG EQU  TUBERPCT+1 ERB FLAG BYTE 
0004 3224 
3175 * ] 0002 3225 
3176 * SEE THE ERBDFLG FIELD OF THE ERB MACRO FOR ASSOCIATED fASKS. 0001 3226 
3177 * 
19 0036 3228 
0018 3179 TUBERAID EQU  TUBERBFG+] ERROR AID FLAG BYTE 
OO1A 3180 TUBMIC EQU  TUBERAID+2 ERP NESSAGE 1D CODE “ 
C03 
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01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC_OBJECT CODE ADDR STM 
02 005A 1513 JCBDJQST EQU JCBDJBRG+3 © JOB QUEUE JOB START TINE (JOBQ JOBS) 
005C 1514 JCBDSPID EQU JCBDJQST+2 SESSION PRINTER ID (RELEASED WS JOBS) 
03 0061 1516 JCBDJOBN EQU JCBDMENF+3 JOB NAME (TINE STAMP) 
0062 1518 JCBOSCH5 EQU  JCBDJOBN+] SCHEDULER BYTE FIVE 
04 0062 1519 JCBDLANG EQU  JCBOSCHS LANGUAGE COMPILER BYTE 
0080 1520 JCBMSYLB EQU X'80° SEARCH SYSTEM LIBRARY ONLY 
0040 1521 JCBNSLIG EQU X40" SYSLIST END MESSAGE REQUIRED 
05 0020 1522 JCBMLIST EQU  X'20' LIST RPG 
0010 1523 JCBMNEXT EQU  X'10' SYSLIST 'NOEXTN' SPECIFIED 
0008 1524 JCBNI5CP EQU X08" 15 CPI SPECIFIED ON FORMS STATEMENT 
06 1525 * EQU  X‘04" 
1526 * EQU X'02" 
1527 * EQU. X‘01" 
07 
0063 1529 JCBDSCH4 EQU JCBDLANG+1 SCHEDULER BYTE FOUR 
0080 1530 JCBMTMLK EQU” X*80° JCB TERMINATION INTERLOCK 
08 0040 1531 JCBMFLIS EQU  x‘40° FLUSH INLINE SOURCE 
a, 0020 1532 JCBMPGIS EQU  X'20' PROGRAM HAS INLINE SOURCE 
0010 1533 JCBMINTK EQU  X"10" INITIATOR OID NOT INITIATE THIS TASK 
09 0008 1534 JCBMSRAL EQU  X‘08' SECURED RESOURCE ALLOCATED BY THIS MAT 
0004 1535 JCBMEVPR EQU  X‘04' EVOKED PROCEDURE 
0002 1536 JCBMSPCK EQU  x‘02° SET SPOOL FILE EOF AT LAST CHECK POINT 
10 0001 1537 JCBNEIBA EQU  xX‘Ol' ERROR INFORMATION BLOCK PRESENT (EIB) 


0065 1539 JCBDCSBP EQU JCBDSCH4+2 = CSB CHAIN POINTER 


006D 1541 JCBDUSER EQU  JCBDCSBP+8 —_USER ID 


12 OOGF 1543 JCBDBFRA EQU JCBDUSER+2 — SYSIN BUFFER ADDRESS 
OO6F 1544 JCBDLCLA EQU  JCBDUSER+2 _ LOCAL DATA AREA ADDRESS 


0070 1546 JCBLLNTH EQU JCBDBFRA+] — LENGTH OF A JCB 


15 4R RRRRRRRR IRR RRR RI IIR KIT KR IIR RRR ERED II IIT TPR IR RADII IIIT 


1549 * ® 
Panne 1550 * JCB EXTENSION x 
1551 * 


755.2 REO OIIOR IORI OCIUIICOR TORII TT R RID TR IRIE 


0001 1554 JCBDSSBa EQU 1 SESSION SPECIFICATION BLOCK POINTER 
0003 1555 JCBOCCBA EQU JCBDSSBa+2 — CHECK POINT CONTROL BLOCK POINTER 
0005 1556 JCBOPLST EQU  JCBDCCBa+2 — PHONE LIST CHAIN POINTER 


0006 1558 JCBDLPI# EQU JCBDPLST+1 LPI VALUE 


ed as 0004 1559 JCBNALPI EQU _X'04" 4 LPI SPECIFIED ON FORMS STATEMENT 
0006 1560 JCBNELPT EQUX"06" 6 LPT SPECIFIED ON FORKS STATEMENT 
0008 1561 JCBNBLPI EQU x ‘08" 8 LPI SPECIFIED ON FORNS STATEMENT 


OOOF 1563 JCBDERSV EQU JCBDLPI#+9 ~~ RESERVED AREA 
0010 1564 JCBDELNG EQU JCBDERSV+1 = LENGTH OF JCB EXTENSION 
1565 *** END OF EXPANSION ** 


BO3 


SSVAT TCB ATTACH TRANSIENT 


4500 SYMBOL VERSTON OF THE ASSEMBLER WAS USED. 


ERR LOC OBJECT CODE ADDR STMT 


YOU USED 2438 SYMBOLS. 


TENGTH OF NODULE 1S “2047 


“LO Mm elw no 


14 

15 

16 
MASKS. 

Vv 

18 
MASKS. 


19 


002F 3212 TUBUSER EQU  TUBDRESV+3 


0030 3213 TUBOPSTS EQU TUBUSER+1 
0032_3214 TUBJCBa EQU 
0034 3215 TUBTUB £QU 


TUBOPSTS+2 
TUBICBa+2 


0035 3217 TUBATTR1 EQU  TUBTUB+1 


0080 3219 TUBMCN EQU 
0040 3220 TUBACN EQU 
0020 3221 TUBCMOT EQU X‘20° 
0010 3222 TUBSGN EQU  X‘10° 
0008 3223 TUBTSRQ EQU  X‘08' 
0004 3224 TUBSTPJ EQU X'04' 
0002 3225 TUBLIOFR EQU  X‘02' 
0001 3226 TUBFCNSL EQU  X‘O1' 


X'80° 
x'40' 


0036 3228 TUBATTR2 EQU 


TUBATTRI+1 


OPERATOR ID 

OPERATOR STATUS 

ADDRESS OF JCB 

TUBCHAIN FOR SYS REQ AND INQUIRY 


ATTRIBUTE BYTE 1 


« MASTER CONSOLE 

«ALTERNATE CONSOLE 

. COMMAND TERMINALCOND-DATA TERMCOFF) 
. TERMINAL SIGNED ON 

~_TEST REQUEST MODE 

. JOB INITIATION NOT ALLOWED 

. WSWA FORMATTED WITH L1O DISPLAY 

. CONSOLE MODE FORCED BY I/O ERROR 


TERMINAL MODE AND DISPLAY 


3230 RRAAKAKRARAKKER ARE REAR ARAK RERKRARAIK RE EAR RRR RIERA R ARERR ERIK 


20 


C04 


*SVAT TCB ATTACH TRANS 


Ol 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


01 
JOBS) 02 1567 * $LOAD 00630000 | O 
JOBS) 1568 KRARRARKRAKAAERA KAR RRAAK RRR KERRIER RARER RRIF IS IR III TOIT. 

03 0 


AGE 36 09/11/81 12/08/81 21:28 #SVAT TCB ATTACH TRANSIENT PAGE =37 = VO9/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE 


1569 * MAIN STORAGE RELOCATING LOADER PARAMETER LIST EQUATES x 
1570 DOOYOO OOO IOC R IR IIIT IRR RIOR IR IIT ITI TORII ITO III I IIR i 
0002 1571 $LDDSS EQU 2 

0003 1572 $LDDTEXT EQU  $LDDSS+1 


SS ADDR OF MEMBER 
NUMBER OF TEXT SECTORS 


04 0005 1573 SLDDLINK EQU $LODTEXT+2 — LINK EDIT ADDRESS 04 
0007 1574 $LDDSTRT EQU SLDDLINK+2 START CONTROL ADDR CENTRY POINT) 
0008 1575 $LODRLD EQU  S$LDDSTRT+1  RLO DISP IN THE FIRST SECTOR 
05 1576 * CONTAINING RLDS 05 
0009 1577 $LDDTOT EQU  $LDDRLD+1 TOTAL NUMBER OF SECTORS 
ENT 00081578 SLDDLOAD EQU  SLDDTOT+2 MODULE LOAD ADDRESS 
06 000C 1579 $LDDLEN EQU SLDDLOAD+1 — LENGTH OF LOADER PARM LIST 6 
1581 RREKRKKKKKARAKRARHIAK KAKI RERRAKR RARER AKAN IA ARAKI AK RRA KAK REAR RR 
07 1582 * RIB VALUES FOR THE RELOCATING LOADER * 07 
1583 RARAAKKERARRAAAAKARA KER RAKE ER ERERIRR IIR IR IR IIIT IIIT OR TOIT IE 
1584 * 
08 1585 * RIB BIT EQUATES FOR VARIOUS LOADER FUNCS 03; 
1586 * 
TASK 0001 1587 SLORELAD EQU  x‘OI" BIT FOR ‘REL ADDR LOAD‘ 
1S MRT 09 0002 1588 SLDTOADR EQU x‘02' BIT FOR ‘TO ADDR‘ 09 
0004 1589 SLDFETCH EQU  x'04' BIT FOR ‘FETCH’ 
POINT 0008 1590 SLOSFTCH EQU  xX‘08' BIT FOR ‘SYSTEM REQUEST 
CEIB) 10 0010 1591 SLDAMID EQU x"10' BIT FOR LOADING AN EXAM 10 
1592 * 
1593 * RIB BYTE EQUATES FOR ALL LOADER FUNCS 
am 1594 * 11 
1595 * NOTE: ANY OTHER RIB VALUES WILL CAUSE UNPREDICTABLE ERRORS 
1596 * 
12 0001 1597 $LDMSSLD EQU  SLORELAD LOAD BY RELATIVE SS 12 
0002 1598 $LDMLOAD EQU — SLOTOADR LOAD TO-ADDRESS 
000A 1599 $LDMSLD EQU  SLOMLOAD+$LDSFTCH SYSTEM LOAD 
3 0004 1600 S$LOMFTCH EQU  SLOFETCH FETCH 13 
0006 1601 $LDMFCHA EQU  SLDMFICH+SLDTOADR FETCH TO-ADDRESS 
RRRRRRRARR OOOE 1602 $LDMSFCH EQU  SLOMFCHA*SLOSFTCH SYSTEM FETCH 
® 14 1603 *** END OF EXPANSION ** 14 
* 
* 
IORI 15 15 
TER 
2 16) 16 
7 17 
\T 
iT 
\T 18 1 
19 19 
20) 0 
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#SVAT TCB ATTACH TRANSIENT 


PAGE 1 09/11/81 12/08/81 21:28 


01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


02] 0800 2 #SVAT START X'0800° 0020000 | 0, 
3K cOPYR 00030000 
4 */* COPYRIGHT= 5726-SS1 COPYRIGHT IBM CORP 1977, 1981 *] 

03 5 */r LICENSED MATERIAL - PROGRAM PROPERTY OF IBM */ 0 


UME 2200 TUOLUEL EWU A UL + E UELETC FUNLTIUN f> ALTIVE 


RELEASE INDICATORS 


0039 3272 TUBATTRS EQU  TUBATTR4+1 


0080 3274 TUBORY EQU  X'80" - RESTORE-Y ON OCL STATEMENT 
0040 3275 TUBORN EQ X‘40° . RESTORE-N ON OCL STATEMENT 


V7 0020 3276 TUBLOP EQ X'20' . LAST OP TO THE TUB WAS A PUT 
0010 3277 TUBRSW EQU  X'l0° . RELEASE STOP INV WORKED 
0008 3278 TUBRSF EQU X'‘03' . RELEASE STOP INV FAILED 
18 0004 3279 TUBREL EQU X'04' . TUB HAS BEEN RELEASED 
0002 3280 TUBSRQ EQU X‘02" -_ SRT HAS RELEASED REQUESTOR 
0001 3281 TUBABTRM EQU  X‘Ol' . CALL TERMINATOR PRIOR TO RELEASE 


003A 3283 TUBATTR6 EQU TUBATTR5+1 


C05 


4109/11/81 12/08/81 21:28 #SVAT TCB ATTACH TRANSIENT PAGE = =38 «-VO9/11/81 12/08/81 21:28 o1 @SVAT TCB ATTACH TRANSIEN? 
01 j OU 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT JERR LOC OBJECT CODE ADDR STI 
00630000 1605 * NUCEQ OZ} 16 
7 1606 RXXXRARAARAARARARARAARARAARRA ARERR AR RARRARRRERAARER ER EERE EERIE RRR 16 
1607 * RAIN STORAGE NUCLEUS . 6 
. 1608 ®XARRRARARRAARAARARAKAARRARA RRR ARERR RRERERERR ERE REE E ARERR EIR RIT 03 H 
1609 RRERRANRARAARARARRRARARARARAREARAERE RAR ARR ARERR ERE ER ERE IER AA RIE 1 
1610 * ADDR NE Size CHEX) SIZE (DEC) LABEL * 16 
OL] RRXXARARAAAAAARERARAARRERRA RARER RRA ERA RERR RARER ALAR REE RRR HE KR IER O04 16 
1612 * 0000 _ FIXED NUCLEUS 1000 4096 NUFIXNUC * 1s 
1613 RRRRRRAARAAAAAARARARARARARARARAARA RAR AAR AR AKAROA ARERR AAR RAR AR RRR 16 
1614 RRRRERARARRARRARARAREARRARAARERERRERERRARE REE ERER ERE REI RE IERIE TEBE OF 1s 
1615 * 0000__ SYSTEM COMMUNICATION AREA 0100 256 16 
1616 * 163 
1617 * 0100 ACE QUEUE HEADERS 00co DG 16! 
16) 
16) 
07; 16) 
16) 
16) 
1623 * 0200 COMMAND PROCESSOR TCB 0080 05) 16) 
1624 * 167 
1625 * 0280 TASK WORK AREA INDEX 0023 | 16] 
1626 * 09 168 
1627 * 02A3___TASK WORK AREA QUEUE HOR 0005 } 166 
1628 * = 168 


1629 * 02A8 DISKETTE ERROR LOG AREA 0038 10 
1630 * 

1631 * O2EO SYSTEM LIBRARY FORMAT-1 0020 

1632 * li 
1633 * 0300 A/D TRACE ACE 0010 

1634 * 

1635 * 0310 ALTERNATE SECTOR ACE OO10 

1636 * 

1637 * 0320 STATISTICAL LOGOUT ACE 0010 

1638 * 13 
1639 * 0330 INTERVAL TIMER ACE 0010 

1640 * 

1641 * 0340 MSP ERROR ACE 14 
1642 * 

1643 * 0350 SWAP ACE 

1644 * 15 
1645 * 0360 MS TRANSIENT LOADER ACE 

1646 * 

1647 * 0370 DISKETTE ERROR ACE 16) 
1648 * 

1649 * 0380 ERROR TASK-TASK ACE 

1650 * 17 
1651 * 0390 DISPATCHER TQE 

1652 * 

1653 * 0398 MIDNIGHT TQE 19 
1654 * | 
1655 * 03A0 STATISTICAL LOGGING TQE 

1656 * 19 
1657 * O3AS —_SQS FAILURE TQE 

1658 * 


B05 


SS¥AT CB ATTACH TRANSIENT 


109/11/81 12/08/81 21:28 #SVAT TCB ATTACH TRANSIENT vO9/11/81 12/08/81 21:28 


01 


ERR LOC OBJECT CODE ADDR STI 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


56 * : @8290 - MRJE SUPPORT,USING INCREMENTAL IMPROV FLAG * 00407600 | 
57 8 : @195 - MINOR MAINTAINENCE,$TOO AND LITES "MACROS. * ! 
58 * RELEASE 5: @al85 - MINOR MAINTAINENCE, CHANGE RLD PARATETER ON * 
59 * THE IDMAC MACRO FROM ‘N’ TO ‘D’ TO SAVE RLD SECTOR. * 
60 * RELEASE 6 _: 298 - MINOR MAINTAINENCE,P10606-REQUEST BY HARRIS * 
61 * TO CHANGE INIATOR ADDRESSES TO EQUATES AND TO * 
62* EXPAND THE [WAEQ MACRO. MAB, 10/05/79. " 

4 


63 * RELEASE 7: @a354 - EXPANDED MEMORY,P10704, PRIORITY SUPPORT 


ak pea ng ER a eS ET og ate teen 


31 12/08/81 21:28 


Bl 12/08/81 21:28 


MAGS MRT OU PR Pe 


ATTRIBUTE BYTE 8 


0048 3327 TUBATTR EQU = TUBHELPri+1 


0080 3329 TUBBADGE QU x‘80" 
0040 3330 TUB960 «=FQU  K'40° 
0020 3331 TUBMENU2 EQU  X'20° 
0010 3332 TUBPRTSC EQU  X‘10" 
0008 3333 TUBSVRD EQU x‘08" 
0004 3334 TUBSVER] EQU  K'04" 


. THIS TUB HAS BADGE SECURITY 
. THIS TUB IS FOR A 960 CHAR SCREEN 

~_ DISPLAY PAGE 2 OF MENU ON 960 

. (RT SECURITY SUITCH 

- REJECT IN READY FUNCTION 

-_ ERROR DURING SAVE - STATUS OR ONSL SYSLG 
0002 3335 TUBSVER2 EQU X02" - ERROR DURING SAVE - SYS REQ OR INQUIRY 
0001 3336 TUBRDYPD EQU X‘O1" . READY TASK 1S PENDING 


3338 * REJECT FILE INDEX 
C06 


1659 * 0380 TERMINATION DUMP 108 0020 32 MIADPIOR * 

1660 x * 

1661 * 0300 TERMINATION DUP ACE 0010 16 WUBDPACE * 
0 1662 x * 

1663 * O3EO PERMANENT SWAP ACE 0010 16 WUBSPACE * 

1664 * s 

1665 * 03FO IPL ASSIGN/FREE AREA 0310 784 NUBIPLAF * 

1666 ® * 

1667 * 0700 TRACE LOGOUT BUFFER AND 0100 256 WoaTRBUF * 

1668 ® . 

1669 * 0700 ALTER/DISPLAY WORK AREA 0000 192 (RiGADLK * 

1670 ® * 

1671 * O7CO MPL ERROR LOG SAVE AREA 0040 64 MUaBADIK * O 

1672 * ‘a 

1673 * 0800 MS TRANSIENT AREA 0800 2048 MUaXTENT * 
07 1674 ® * 0 


G75 TRRARAAAARELRARARERAAARRARRARRARAER RE EERE RRRER RARE RRR RTI, 
LETH PXRRRRAAAARARAAARARAARRAR THAR ACRAEARR ERLE RRR RARER RAR ERT IRN, 


1677 * 1000 VARIABLE NUCLEUS NUVARNUC 


GTB XXXRRAAKARARRARARRARARARRRERARERRAR ERA EREERRERER RARER REE RRA 


OG 


RRERAARAKAAARARAARAAARATRAREARARRARRARRAERE RE RARE ROAR ERR RIC 
1679 


1680 * 2000 LOAD ADDRESS FOR IPL DISKETTE WUBLOADI * 


[GB] TRRRAAAAAAAAAAARARARARARAAAARARARRARARRA AREER EEA RIE RETR TER, 


9 


1GB2 XRXRRAKARRAARARRA RRA ARARALAA ELAR REALE RRA EERE REE RAR 


1 ; 


3 


ls6 


SSVAT TCR ATTACH TRANSIENT 


PRE 3 WO9/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


68 * ACE 
69 EREKRAERREK AKA EERE ERE EERE EERE IR ER RE FREER ER 
70% I" bid * st “ Fad 
7" CHAIN, = * TAR * PART * PAR? * 


JZ RRRERARERERIREARIRERER GENER LER IA ARERR EI ERIE IRIE RIE RI TIE IR 


Tr a ag 
74" PARR * TYPE * XRD ORD "18 ‘ 
75 RAK RAAKAAEK AER ELKK EERE EER EE EER ERE RET IIE ERI 
76 x a 


yyy 7) GCoouATAM creiof CUATM TO eiwT act IO oererore oc cerca 


emenrnnsmietiet inne 


ante 


0053 3381 TUBDENT 
3382." MOTE 


3oae * 
0054 3385 TUBATTY 
0080 
008 3387 TUBELOD 
0020 3388 TURNOFE 


OTS FR PGT 


3390 * 
yo * 


0100 1693 Niare 
0020 1694 NULEN 
* 


eee 


O1EO 1006 NUACK 
wor * 
0000 1698 Mac 
0002 1699 INUACP 
9080 1790 NULCP 
von * 
G20 1702 NuBTU 
0023 1703 MULT 
GRAZ 1708 | 
1705 * 
106 * 
1707 
108 * 
i709 * 
O2A3 1730 sinh 
005 1711 MULT 
vwu* 
O28 1713 MRD: 
0038 1714 MELRD! 
i * 
CHS 17S Maes 
OO20 1717 WoL 
vw. 
0300 1719 Math 
QO10 1720 WALACE 
iz * 
O31 1722 NURER 
173 * 
O320 172 NGALGR 
1725 * 
0330 1726 MuaTlA 
72? * 
0340 1728 NU@NAC 
2 * 
0390 1730 Mugs 
wh 
O360 1732 AiarKA 
1733 * 
0370 1734 WuaTEA 
0% * 
0380 1736 WuaCSE 


SURAT TOR ATTACH TRANSTENT 


Vv 


x"or" RESERVED 
TUBFISK +2 RENGTE WORKSTATIONS TUB C8MBTB) 
3382_* NOTE: THE ABOVE EQUATE IS THE DISPLAY STATION TUB POINTER 
3383 * TO THE RUS TUB. SEE PRIJ EQUATES FOR THE PRINTER 
3384 * TUB'S POINTER TO THE RUS TUB. 
0054 3385 TUBATTRA EQU  TUBDEXTa+] = ATTRIBUTE BYTE 10 
0030 3336 TUBCLRAD EQU = X‘80° . CLEAR AIDS 


0040 3387 TUBSLOCK EQU  x*40° LOCK CONTROL 
0020 3388 TUBMOFF EQU  X‘20" ._ OFF OCL STATEMENT RECEIVED Peer 
0010 3389 TUBPHOLD EQU = X*10° . HOLD PARAMETER FOR GFF COMMAND (OND 

3390 * NOTE THAT IF THIS BIT [5 NOT OW 

3391 * IT INDICATES THE OROP PARAETER 


09/11/81 12/08/81 21:28] | *SVAT TCB ATTACH TRANSIENT 5 ; 8) ‘ SUAT TCO ATTN THOT ON 
01 1 01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | [ERR LOC OBJECT CODE HOR STH 
0 1684 * * 02} 00 17h 
0000 1685 NUFIXNUC EQU — X"000° TAIN STORAGE NUCLEUS - FIKED AREA ‘one 17% 
1686 *  eimearracacecmemiacs | 
0 0000 1687 NUASCA QU —NUFIXNUC SYSTEN COMMUNICATION AREA a3 0998 1741 
0100 1688 MASCA EQ 256 * _CUENGTH OF AREA) ths 
1689 * CHO 17a) 
0 0100 1690 NUACEQH EQU —NUASCA+NULSTA SYSTEM QUEUE HEADERS 0 ithe 
O0CO_1691 NULACEQH EQU 192 * _CLENGTH OF AREAD ORB Ta 
1692 * Va 
05 O1CO 1693 NUAMPIOB EQU  NUAACEQH+NULACEQH MULTI-PURPOSE 108 05) 03RD 174) 
0020 1694 NULENIOB EQ 32 * _CLENGTH OF A DISK 108) 17a 
1695 * TO 178 
06 O1EO 1696 NUACXIOB EQU  NUAMPTOB+NULENIOB CS TRANSIENT LOADER 108 | 06) 1750 
1697 * NEO 1751 
0200 1698 NUBCPTCE EQU  NUACXTOB+NULENTOS COMMAND PROCESSOR TCE Pi 
07 0002 1699 NUACPT@H EQU  X°02" COMMAND PROCESSOR TCB HIGH) 0 O3FO 1753 
0080_1700 NULCPTCB EQU 128 * _CLENGTH OF AREA) 17s 
1701 * 175 
08 0280 1702 NUATUAXL EQU NUACPTCB+MULCPTCB TASK MORK AREA INDEX CLEFT) 08 17% 
0023 1703 NULTWAX EQU 35 (LENGTH OF AREAD(280 ENTRIES) 9B00_1757 
O2A2 1704 NUATUAXR EQU “NUBTUAXL*NULTUAX-1 TASK MORK AREA INDEK (RIGHT) ono 173 
09 1705 * #9 10 
1706 * _NOTE: TASK WORK AREA SPACE IS INDICATED BY 8 TRACKS PER 1] Ov 1760 
~ io ; BYTE. THE RIGHT BYTE INDICATES THE START OF THE TASK O70 1761 
10 1708 * WORK AREA ON THE DISK. 10 1n6z 
1709 * D700 1763 
O2A3 1710 NUATWAQ EQU NUSTUAXL+NULTUAK TASK UDRK AREA QUELE ELETENT O00 1764 
ll 0005 1711 MLTUAQ EQU 5 CLENGTH OF AREAD 1 1965 
1712 * 700 1766 
O2A8 1713 NUARDIO’ EQU  NUSTUAQ+NULTUAQ SYSTEN DISKETTE [OB/LOGOUT AREA Per 
12 0038 1714 NULADIOB EQU 56 * — CUENGTH OF AREA) 2 OFRD 1768 
1715 * 1789 
O2E0 1716 MUBFLBF1 EQU ~~ NUGROIOB+NULRDIOB *LIBRARY RESIDENT FORMAT-1 1799 
B 0020 1717 MULALBF1 EQU 32 * (LENGTH OF AREA) GB wn 
1718 * 10001772 
0300 1719 MUBTRACE EQU NUS*LBFI-NULS|BF1 TRACE LOGOUT ACE 73 
4 0010 1720 MAACE EQU 16 * (LENGTH OF AN ADED 1 wooo 1776 
Wai * 19001775 
0310 1722 NUBERACE EQU  NUBTRACE-NULACE ALTERNATE SECTOR ACE 1778 
5 173 * 19 2om 1797 
0320 1724 NUBLGACE EQU  MURERACE+NULACE STATISTICAL LOGGING ACE { ke 
1725 * 1779 
16 0330 1726 NUATIACE EQU  NUALGACE+NULACE INTERVAL TIMER ACE | 14 
V2 * 
0340 1728 NUBMACE EQU  NUBTIACE+NULACE ASP PROC CHECK ERROR HANDLER ACE 
7 1729 * 1 
0350_1730_NUASHACE EQU  NUANACE-NULACE ACE FOR SUP [0B 
di5}* 
18 0360 1732 NUBPKACE FQU  NURSWACE+NULACE ACE FOR PIS XIENT SCHEDULER 112 
1733 * 
0370 1734 NUBIEACE EQU  NUBPKACE-NULACE ACE FOR DISKETTE ERP 
19 1735 * 119 
0380_1736 NUACSETC EQU  NUATEACE+NULACE CS TASK-TASK SRROR ACE 
137 * 
0} 0 


99/11/81 12/08/81 21:28 SSVAT CB ATTACH TRANSIENT 


104 * EQUATES USED BY THE SET ACTION CONTROL UORD ROUTINECWUSET) AND THE ° 
105 * ACTION CONTROLLERCNUAC). * 
106 REKRERKAERAEREK RARER AREER EERE ERLE AERA IAI IER IT 
107 * EQUATES USED 8Y THE NUSET ROUTINE 

0008 4108 SETLON FQ x‘08" LOM BYTE OF WORD TO BE SET 

0004 109 SETMI FOU x'Da’ MPERIC POOTIO“ OF RVTS Tl a OcrT 


) VO9/11/81 12/08/81 21:28 


AX PRINT POSITION HORIZONTAL” 


PRINTER STATUS BYTE 

. POST USER ON ERROR MESSAGE 

-_ PRINTER PAST READY 

. THIS PRINTER TUB HRS AN ADDITION 
x*10" . RESERVED 
k"08" ._RESERVEN 
roe + RESERVED 


*SVAT TCB ATTACH 


| 
: 
| 
2] 
cae 


[unt Toe ATT 3 
10 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | [ERR LOC OBJECT CODE AOR 
0390 1738 NUBDSTQE EQU 02 
4 6h 
‘0004 
oonG 
9008 
O3FO 1753 NUBIPLAF EQU  NURSPACE+NULACE FIXED NUCLEUS FREE AREA #7) 
1754 * 
1756 * 
0800 1757 NUAXIENT EQU 2048 {5 TRANSIENT AREA j 
0800 1758 NULXIENT EQU 2048 *  CLENGTH OF AREA) 


1759 * 
0100 1760 NULTRBUF EQU 256 LENGTH OF TRACE BUFFER 
0700 1761 NUBTRBUF EQU = NUAXIENT-WULTRBUF TRACE LOGDUT BUFFER 

1762 * | 
0700 1763 NURADURK EQU | NUaTRBU” ALTER/DISPLAY WORK AREA } 


O00D 1764 MULADURK EGU = 192 * CLENGTH OF AREA) 
1765 * 
0700 1766 NUMBADZK £QU  NUGTRBUF+NULADURK IPL STORAGE ERROR SAVE AREA 


1767 * 
0310 1768 NULIPLAF £QU  NUSTRBUF-WU@IPLAF LENGTH OF IPL FREE AREA idl 
1769 * 


2000 1777 NUBLOADI £QU NUGMSSQS+NULTSSS LOAD ADDRESS UMEW IPL DISKETTE 
76 * 
779 *** END OF EXPANSION ** 


1781 * PUPEQ 02} 179 * 
0001 1782 PUSHOCH EQU 1 POINTER TO NEXT PUSH ELEMENT 0001_1797_ Re 
0003 1783 PUSHOSS EQU  PUSHOCH+2 5S OF TWA ALLOCATED OW DISK 0003 1796 8S 

0 0004 1784 PUSHIND EQU PUSHOSS+1 PUSH INDICATOR 0 0005 1799 Re 
0080 1785 PUSHPART EQU X80" * TASK PUSHED PARTIALLY TO DISK 0007 1800 Re 

1786 * NOTE THAT A VALUE OF X‘FF’ IN THIS BYTE INDICATES THAT 0009 1601 at 

1787 * THE CHCOR MACRO HAS NOT EXECUTED. | 04 O00A 1802 RB 
0005 1788 PUSHTSSN EQU  PUSHIND*1 SECTOR VALUE FOR SWAP 
0006 1789 PUSHBEGL EQU  PUSHTSSN+l TASK BEGINNING ATR OFFSET 0000 180 

1790 * OR USER'S BEGIN ADDRESS FOR A PARTIAL PUSH 05) OOOE 1805 Ret 
0007 1791 PUSHCORE EQU  PUSHBEGL+1 — CORE SIZE IN 2K BLOCKS OO0F 1806 ABt 
0080 1792 PUSHNONS EQU  x°80° TASK PUSHED 1S NON-SUAPPABLE QO10 1807 As 
0008 1793 PUSHLEN EQU PUSHCORE+] © LENGTH OF A PUSH ELEMENT 06 0011 1808 Res 

1794 *** END OF EXPANSION ** OO12 1809 ABs 

Oi? 1810 as 
0 OOF 1811 ABs 
0030 1812 ABS 


SSVAT CB ATTACH TRANSIENT 


1/81 12/08/81 21:28 PRE = =96& WO9/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


OO4F 210 ACSUXTST EQU —X04*SU3+SETLOW TRANSIENT ROUTINES TEST AMD SET 13 
OO2F 211 ACSMAISTS EQU — XO2+SU3+SETLOW WORKSTATION TEST AND SET ENTRY 14 
OOIF 212 ACSMECS EQU  X01+SU3+SETLOW ECS RETURN TD SCIENTIFIC 15 
OOF? «213 ACSICOMB EQU  « X“FO'’+SETNHUPHSL3 COMBINATION MX. SUP. TUR A LDF 


42, VO9/11/81 12/08/81 21:28 


00670000 RBEQU 
0001 1797 RBSCHAIN EQU 
0003 1798 RBSXR1 = EQU —RBSCHAING2 


a8 
a3 
HL 
82 
A 


+2 


QO0E 1805 RBSINL1 EQU 0 

OOF 1806 RBSINL2 

0010 1807 RBSII [i 
[i 
0 
oO 
o 
o 
o 
a 
or 
a 
a 
[i 
oO 
x 
a 
a 
x 
O 
[a 
00 
00 
90 
0 
90 
00 


Bid 


6 09/11/81 12/08/81 21:28 “SVAT TCB ATTACH TRANSIENT 


PAGE = 7 O9/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


27 * ATACH V-EQU 
0008 218 SATLOAD EQ X'0B' LOADER PARM LIST OFFSET 


13 VO9/11/81 12/08/81 21:28 


7 VO9/11/81 12/08/81 21:28 


0021 3535 SUBSFAIL EQU X'21' - SESSION FAIL MODIFIER 
0001 3536 SUBSFAIN EQU  xX‘O1" . SESSION FAIL MODIFIER 
0022 3537 SUBSEOF EQU  SUBSEOC . SESSION EOF MODIFIER 
0002 3538 SUBSEOFM EQ SUBSEOCN ~ SESSION EOF MOOIFIER 


0004 3540 SUBCMND EQU  TUBCNOD SUB COMMAND CODE 

0001 3541 SUBSGET EQU X‘O1' «GET OPERATION 

0002 3542 SUBSPUT EQU X‘02" « PUT OPERATION 

0004 3543 SUBSEVOK EQU  X'04" . EVOKE OPERATION 

0008 3544 SUBSRCD EQU X'08' ._ REQUEST CHANGE OF DIRECTION 
0010 3545 SUBSREL EQU X'10" . RELEASE OPERATION 

0020 3546 SUBSACQ EQU X'‘20' . ACQUIRE OPERATION 
0030_3547 SUBSSACQ EQU X'30' . SPECIAL ACQUIRE OPERATION 
0040 3548 SUBSCAN EQU X‘40‘ . CANCEL OPERATION 

0080 3549 SUBSNRP EQU X‘S0' . NEGATIVE RESPONSE 

OOEO 3550 SUBSEOSN EQU  X‘E0" ._NORMAL_END OF STEP OR JOB 
O0FO 3551 SUBSEOSA EQU X‘FO' . ABNORMAL END OF STEP OR JOB 
OOFF 3552 SUBSASF EQU X‘FF' . ASSIGN FAILURE IN ICSSQS 


0006 3554 SUBDATAR EQU — SUBCIND+2 DATA BUFFER ADDRESS 

0008 3555 SUBOUTL EQU SUBDATAR+2 OUTPUT LENGTH 

0008 3556 SUBEFFL EQU  SUBOUTL EFFECTIVE INPUT LENGTH 

OOOA 3557 SUBASGM. EQU — SUBOUTL+2 ASSIGNED OR PREALLOCATED BUFFER LENGTH 


C11 


“SVAT TCB ATTACH TRANSIENT PAGE = 44 09/11/81 12/08/81 21:28 


01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


Qi? 


1815 * SCAEQ 


1816 RRRARARAAARAAAARARARARRARRARAAARERHRARAARARAKARAAKKARAKARRERAAKRARRARRRE NR, 


1817 * 
0: 1818 * SYSTEM ® 03) 
1819 * * 
1820 * CONMUNICATION AREA ® 
1821 * * 04 


1822 RARRAAKAKRARARARAAERRARARARAAARARRAAAAAALARAAARARRARAKA KARA KRRARK ERE 


0000 1824 SCASYS EQU 0 : BEGINNING OF SYSTEM COMM 05) 
1825 * 
0001 1826 SCADOMIC EQU  SCASYS+1 . ABNORMAL TERMINATION ERROR MIC 
06) 1827 * .  CWILL BE SEEN IN DUMP AREA ONLY) 06 
1828 ® 
0000 1829 SCADPSVC EQU — SCASYS 3 ——sCDUMP SVC CLEFT HAND ADDRESS) 
07 0003 1830 SCADXSVC EQU SCADPSVC+3 3 TRANSIENT EXIT SVC CLEFT HAND) 07 
0005 1831 SCADSSVC EQU  SCASYS+5 -___ SYSTEM SVC AREA 
1832 * 
0006 1833 SCAMSIZE EQU SCADSSVC+1 1 = MAIN STORAGE SIZE IN 2K BLOCKS 08 
0080_1834 SCAMZ56K EQU  X‘80' -__X"80" - 256K MAIN STORAGE [R71 
0040 1835 SCAMIZEK EQU  X'40° X40" - 126K NAIN STORAGE 
0030 1836 SCAMS96K EQU X'30" - "30" - 96K MAIN STORAGE 09 
0020 1837 SCAMS64K EQU  X'‘20' -___X'20' ~ 64K MAIN STORAGE 
0018 1838 SCAMS48K EQU X18" .  X*18" - 48K PAIN STORAGE 
1 0010 1839 SCAMS32K EQU  X'10° -  X*10" - 32K MAIN STORAGE 10 
1840 * 
0008 1841 SCA2KBAD EQU SCAMSIZE*2 2 ADDRESS OF BAD 2K BLOCKS SAVE 
u 0000 1842 SCA2KOK QU x*0000' . ND BAD 2K BLOCKS 11 
1843 * 
OOOA 1844 SCADSPIa EQU  SCA2KBAD*2 2 | SPOOL INTERCEPT STORAGE ADORESS 
1845 * 12 
0008 1846 SCADCFSZ EQU SCADSPIa+1 1 CONFIGURATION RECORD SECTORS 
1847 * 
3 OO0C 1848 SCA*2KMS EQU SCADCFS2+1 1 NUMBER OF AVAILBLE 2K BLOCKS mS 3 
1849 * CARIN STORAGE SIZE MINUS NUMBER 
1850 * OF BAD 2K BLOCKS) 
14 1851 * 14 
00D 1852 SCAMS#2K EQU SCAM2KNS+1 1 2K BLOCKS OF USER STORAGE 
1853 * 
1 ODE 1854 SCAMAXRG EQU SCAMS#2K+1 1 — SHAPPABLE TASK REGION SIZE 15 
1855 ® 
OOF 1856 SCASDISK EQU  SCAMAXRG*1 91 ~~DISK CONFIGURATION 
1 0080 1857 SCAMDUAL EQU  X’80° . MULTIPLE SPINDLE DISK 1R7] 16 
0080 1858 SCA2SPIN EQU  X‘80' - 2 SPINDLE DISK {R7I 
0020 1859 SCASSPIN EQU  x'20° . 3 SPINDLE DIK iR7I 
17 0010 1860 SCA€SPIN EQU X'10° . 4 SPINDLE DISK 1R7} 1 
0040 1861 SCADKCFG EQU  X‘40" .__ DISK CONFIG FLAG 1R3I 
1862 * . O- SPALL CAPACITY DIK 
18 1863 * . 1 URRGE CAPACITY DISK 18 
1864 RALEAERAAAARKRARKARARKRRLARKRARAAARREARERRAAAAAERAERLAAKEKEKAKAKERAEKERIR 
1865 * THE FOLLOWING DISK CONFIGURATION FLAGS ARE VALID OMLY FORA STALL * 
1 1866 * CAPACITY DISK, ONE WITH 60 SECTORS PER TRACK. x 19 


1867 TXRRAAKARAARAARRARRERAARARRARERRER AREER RREKRRERARAREARARREREEARER ARAKI 


0081 1868 SCAPDSKS EQU  X'81' DISK STATUS BITS 


Bll 
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ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


head kd tl ee st te 


“SVAT TCB ATTACH TRANSIEN 


ERR LOC OBJECT CODE ADOR 


BS TE PUN TREE QE lh 


SUBASGNL AND SUBASGNa ARE THE LENGTH 
AND ADDRESS. 
0001 3596 SUBDFRSP EQU  X'01" . DEFINITE RESPONSE - DON'T DO READ AHEAD 
3597 * THIS BIT IS SET ON BY THE SUBSYSTEM 
3598 * TO PREVENT ICFDM FROM DOING A READ 
3599 * AHEAD GET OPERATION WHEN CD NOT REC. 


0013 3601 SUBCHAIN EQU  TUBCHAIN SUB CHAIN FIELD 
0014 3602 SUBSTSKI EQU SUBCHAIN*¢] — SUBSYSTEM TASK ID 


0016 3604 SUBXFACT EQU SUBSTSKI+2 PAD TO ADD TO BUFFER LENGTH 
3605 * . LEFT HAND BYTE IS FOR INPUT 
3606 * . RIGHT HAND BYTE IS FOR OUTPUT 


0018 3608 SUBXPRMG EQU  SUBXFACT+2 ADDRESS OF OPERATION PARM LIST 
0019 3609 SUBSRES1 EQU  SUBXPRMa+1 © RESERVED FOR SUBSYSTEN USE 


VO9/11/81 12/08/81 21:28 


s 2 Be OH FF 


Sn ee et Be 


VO9/11/81 12/08/81 21:28 


00710000 


C12 


#SVAT CB ATTACH 


ERR LOC OBJECT CODE 


0001 1869 SCAMDSIZ EQU  X‘O1' : X*O1' - DISK FILE SIZE 
1870 * O- 8 MEGABYTE DISK 
1871 * 1- 12 MEGABYTE DISK 


0 0081 1872 SCAMZ7NG EQU X°‘81' : 27 «MEGABYTE DISK 0 
0001 1873 SCAN3MG EQU 1 : 13 MEGABYTE DISK 
0000 1874 SCAMLOMG EQU 0 : 8 MEGABYTE DISK 

1875 * U4 


1876 RRARKRRARKARARARARAAARAARAAAKARAAAAKRARRARAARAAAKAARAARAAERRERAKARRARRAKARRA 


1877 * THE FOLLOWING DISK CONFIGURATION FLAGS ARE VALID ONLY FOR A LARGE * 


1878 * CAPACITY DISK, ONE WITH 64 SECTORS PER TRACK. * 09 
1879 RRAAKKARAARAAAARRARAARARARARAAKRRRARARARARRAAARRRARARARKRRLAERKRRERRRKREKRRK 
0040 1880 SCAM62PC EQU X'40' . LARGE CAPACITY DISK 1R3| 
06) 0001 1881 SCAM6SMG EQU X‘O1' a 65 MEGABYTE DISK 1R3| 6 


0041 1882 SCAMOGSM EQU  X'41' 
GOCT 1883 SCAMI3ON EQU X°C1® 
OE] 1884 SCANIOSH EQU  X'El' 
0001 1885 SCAMZ6OM EQU_X‘DI' 
1886 * 
0010 1887 SCADPIND EQU SCASDISK+l 1 ——-SYSTEN/DURP_ INDICATOR 
QOAS 1888 SCARDPOK EQU _X‘A5* VALID Dune 
OO5A 1889 SCADPUS EQU_X°5A° ~ WALID DUMP - HAS BEEN ACCESSED 


: 65 MEGABYTE DISK {R71 


1890 * 09 
0011 1891 SCACSIZE EQU SCADPIND+1 1 CONTROL STORAGE CONFIGURATION 
0004 1892 SCACSI6K EQU  X*04" ; X‘04" -16K CONTROL STORAGE 
af 1893 * 10 


1 SPOOL AND JOBQ INDICATORS 


0012 1894 SCADCFG1 EQU  SCACSIZE+1 
0080 1895 


0020 1897 SCAMSPGP EQU X‘20' : 
0010 1898 SCAMSACT EQU  X‘10' . X*10" - SPOOL IS ACTIVE 


12 1899 * SUPPORTED NOT CANCELLED) 
0098 1900 SCAMCRAN EQU  X'08' - X08" - SPOOL COMPRESS RUN 
1901 * CREFORMAT SPOOL FILE AT IPL) 
13 0004 1902 SCAMJQHD EQU  X'04' z X‘04* - HOLD JOB QUEUE 1 
1903 * (DO NOT START AT IPL) 
0002 1904 SCANUOFN EQU  X‘02° : X°02* ~ REFORMAT JOBQ AT IPL 
14 1905 * 3 IF NOT IPL, INPUT JOB QUEUE 14 
1906 * ; HAS BEEN POSTED 
0001 1907 SCAMSPB EQU  xX‘Ol' ; X01’ - ALLOCATE FILE ON ‘B° 
1 1908 * 5 
0013 1909 SCADCFG2 EQU SCADCFGI+1 1 SSP CONFIGURATION OPTIONS 
0080 1910 SCAMCNAT EQU X80" . COMMAND LANGUAGE 
1 0040 1911 SCAMPUSF EQU x'40' " PASSWORD SECURITY 16 
0020 1912 SCAMJOBQ EQU X'20' : JOB QUEUE 
0010 1913 SCAMSPOL EQU  X"10" 5 SPOOL 
W 0008 1914 SCAMMDMK EQU X'08' ° DISPLAY STATION DM TRANSIENT 17 
0004 1915 SCAMMDMR EQU  X‘04' - DISPLAY STATION 0M RESIDENT 
1916 * . NOTE: IF “WORK WOMR BOTH =1° 
18 1917 * : THEN RESIDENT/TRANS [ENT 18 
1918 * : VERSION OF DSDM SELECTED. 
0002 1919 SCAMKMSG EQU  X‘02" : KEEP INFO. MESSAGES AT EO] (R4/ 
1 0001 1920 SCAMCMDE EQU xX‘OI' . COMMAND LANGUAGE IS ENGLISH 19 
1921 * 
! 0 
B12 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


0009 321 DIASSAVA EQU DIUNUSO8+1 = BEST FIT ASSIGN SAVE AREA 
O00A 322 DIXAMSWI EQU  DIASSAVa+] EXAM SWAP _IN CANDIDATE 6 
0008 323 DICURX28 EQU DIXAYSWI+1 CURRENT (EXAM - 28) 6 
O00C 324 DIWSCAF EQU DICURK28+1 STORE FEATURE INFORMATION FOR ATOM aa255 
000D 325 DIIOLDAR FQU DIWSCAF+1 SAVED LOGICAL DISKETTE DATA ADDRESS aals4 


vats 
TANS | 


ADDR STH 


0015 193 
0080 193. 
0040 19; 

0020 193: 
0010 193 
0006 193; 
0004 193 


#SVAT TCB ATTACH TRANSIENT PAGE =—9)--VO9/11/81 12/08/81 21:28 *SVAT TCR ATTACH TRANSIENT 


WY JON0 OU LAr CW TUDL 
15 3649 * BITS 4-7 NOT DEFINED 


0038 3651 SUBLIN® EQU  TUBATTR4 


0000 3653 SUBLINI EQU 0 
0001 3654 SUBLIN] EQU 1 
0002 3655 SUBLIN2 EQU 2 


0039 3657 SUBATTRS EQU  TUBATTRS 


«© PUTUPPRUP UNVIIE 


LINE NUMBER OF SESSION 

«LINE NUMBER FOR INTRA SUBSYSTEM 
. LINE NUMBER 1 

. LINE NUMBER 2 


ATTRIBUTE 5 


VO9/11/81 12/08/81 21:28 


0020 3659 SUBEOXR EQU  TUBLOP 
0004 3660 SUBREL EQU  TUBREL 
0002 3661 SUBSRQ EQU  TUBSRQ 


0001 3662 SUBABTRN EQU  TUBABTRM 


#SVAT TCB ATTACH TRANSIENT 
1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0080 1923 SCAMBSCA EQU X'80" 
0020 1924 SCAMSRJE EQU  X'20' 
0040 1925 SCAMMRJE EQU  X'40' 
0010 1926 SCAMSNA EQU X'10' 
0008 1927 SCANRWS EQU X‘08' 
0004 1928 SCANICS EQU X‘04' 
0002 1929 SCAMLCAF EQU X'‘02' 
0001 1930 SCAMDTTO EQU X‘01' 
193] * 


0015 1932 SCAMBSV EQU  SCADCFE3+1 


0080 1933 SCAMMD32 EQU X'80' 
0040 1934 SCAMSHFM EQU  X'40' 
0020 1935 SCANSMF EQU  X'20' 
0010 1936 SCANCLOG EQU X'10° 
0008 1937 SCAMSFLE EQU X‘08' 
0004 1938 SCAMCFGS EQU X‘04" 
0002 1939 SCAPIE EQU X'‘02' 
0001 1940 SCAMDEAD EQU  X‘Ol1' 
1941 * 


0016 1942 SCADREL® EQU  SCANBSV+1 
0017 1943 SCADMOD* EQU = SCADREL#+1 


1944 * 


«END OF TRANSACTION CODE RECEIVED 
. SESSION RELEASED 

. SRT RELEASED REQUESTOR 

- CALL TERMINATION PRIOR TO RELEASE 
3663 * OTHER 4 BITS ARE NOT DEFINED 


0018 1945 SCADCHTR EQU  SCADMOD*+1 1 


0080 1946 SCAML4TX EQU X‘80' 
0040 1947 SCAML3TX EQU X*40° 
0020 1948 SCAL2TX EQU X'20° 
0010 1949 SCAMLITX EQU  X‘10' 
0008 1950 SCAML4TR EQU X‘08' 
0004 1951 SCAML3TR EQU  X‘04' 
0002 1952 SCAMLZTR EQU  X‘02' 
0001 1953 SCAMLITR EQU  X‘O1' 


THE FOLLOWING FIELDS DESCRIBE THE DISK ADDRESS (SS) AND 
SIZE (SECTORS) OF VARIOUS WORK AREAS ON THE DISK. WHERE 
POSSIBLE THE SS HAS BEEN DEFINED AS A 2 BYTE FIELD. THESE 
FIELDS ARE ORDER DEPENDENT AND DESCRIBE A ONE-TO-ONE 
RELATIONSHIP WITH THE SYSTEM CONFIGURATION RECORD, PART-1. 


OO1C 1962 SCATWASZ EQU SCASSTWAr2 


1963 * 


OO1E 1964 SCAFVTOC EQU SCATWASZ+2 = 2 


0020 1965 SCAFVTON EQU SCAFVTOC+2 


1966 * 


0022 1967 SCAIVTOC EQU SCAFVIONK2 = 2 
0023 1968 SCAIVTON EQU SCAIVTOC+] 1 


0027 1971 SCALOGSS EQU SCASIOSS+2 


0028 1974 SCADSSCS EQU 
002D 1975 SCADSSIO EQU 


C13 

PAGE 46 «VO9/11/8i 12/08/81 21:28 01 #SVAT CB ATTACH TRANSIENT 
ERR LOC OBJECT CODE ADOR S 
OO2F 1 
iH 
0031 1! 
0033 1 
0035_1! 
1 
0038 1 
0038 1: 
OO3E 15 
1 SSP CONFIGURATION OPTIONS 0041 1 
X'80' - SINGLE PROGRAM MODE i 
X'40' ~ MLCA SME ACTIVE 0044 15 
X‘20' - SMF ACTIVE i 
X"10' - 0047 15 
X‘08" - 15 
X"04" - BUILD CONFIG RECORDS 19 
: X*02" - PID MODEL INDICATOR 15 
X*O1* - DEDICATED EXECUTION 15 
1s 
1 SYSTEM RELEASE LEVEL 1 
1 SYSTEM MODIFICATION LEVEL 19 
0049 19 
COPPEINICATIONS TRACE INDICATORS 008 19 
. EXTENDED TRACE LINES 1R6| 2 
. EXTENDED TRACE LINE3 1R6] 004) 20 
. EXTENDED TRACE LINE2 1R4] 0040 20 
. EXTENDED TRACE LINE] 1R4] 20 
e TRACE COMMUNICATIONS LINE 4 [R6) O04F 20 
: TRACE COMMUNICATIONS LINE 3 1R6! 20 
¢ TRACE COMMUNICATIONS LINE 2 1R3] 0051 20 
. TRACE COMMUNICATIONS LINE 1 0052 20 
20 
0053 20 
2 
0055 20 
2 
0057 20 
0059 20 
Ri 0059 20 
2 SIZE OF TASK WORK 20 
005A 20 
SECTOR ADDRESS OF DISK VTOC OOEO 20 
2 SIZE OF DISK VTOC 0010 20 
20 
SS OF DISKETTE VIOC WORK AREA 0058 20 
SIZE OF DISKETTE VTOC WORK AREA 0080 20 
0040 20 
SS OF SIO TABLE DIRECTORY 0020 20 
SS OF ERROR TABLE DIRECTORY 0010 26 
0008 20 
SS OF MAIN STORAGE DUMP AREA 0004 20; 
SS OF CONTROL STORAGE DUMP AREA 0002 20; 
SS OF 1/0 PROCESSOR DUMP AREA 0001 20; 
20: 


VO9/11/81 12/08/81 21:28 #SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0014 375 DILATRa EQU 
0015 376 DIREGPTR EQ 


0016 377 DISECa EQU 

0017 378 DITMVALa EQU 

0018 379 DISWTCBO EQ 
380 ® 


381 RARRARKKAARRARRARARKRAARAAALAARAKAARARRLKKKERAAALAKKKAKAKERAAKRERRARER 


DISWPMINe 1 
DILATRA+1 
DIREGPTR+1 
DISECa+) 
DITMVALa+1 


PAGE 10 VO9/11/81 12/08/81 21:28 


ADDR OF LOAD ATR ROUTINE IN SEGMENT 0 
ADDR OF START OF MSP REGISTER SAVE AREA 
SYSTEM COUNTER TABLE ADDRESS 

ADDR OF HARDWARE TIMER VALUE 
SMAPOUT_TCB ADDRESS. 


229 2 ‘MBL PnecTANT' Cnalroni ¢cToApAaco OnTamTcCOC ABD i inonc € 


E 46 «VO9/11/8i = 12/08/81 21:28 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


002F 1977 SCACONFG EQU SCADSSIO+2 2 
1978 * 
0031 1979 SCASHIST EQU SCACONFG+2 2 
0033 1980 SCAHFSIZ EQU SCASHIST#2 2 
0035 1981 SCAHFCUR EQU  SCAHFSIZ+2 2 
1982 * 
0038 1983 SCASMSG1 EQU  SCAHFCUR+3 
SCASMSG1+3 
003E 1985 SCASWYSG EQU — SCASHMSG+3 
0041 1986 SCASISG2 EQU  SCASWMSE+3 
1987 * 
0044 1988 SCADSSJQ EQU SCASMSE2+3 3 
1989 * 
0047 1990 SCADSSPR EQU  SCADSSJQ+3 3 


PAGE 47 09/11/81 12/08/81 21:28 


SS OF CONFIGURATION RECORD 


START SS OF HISTORY FILE 
SIZE OF HISTORY FILE 
SS OF CURRENT HISTORY FILE ENTRY 


SS-1ST LVL SSP MSG MEMNB (##1S61) 
SS-SSP_ HEADINGS MSG MEMBC#MSG2) 
SS-SSP WK STATN MSG MENBC@mSE9) 
SS-2ND LVL SSP MSG MEMB (#@NS64) 


SS OF INPUT JOB QUEUE FILE 


SS OF SPOOL PRIMARY FILE {R81 


1991 * 
1992 * 
1993 * 
1994 * 
1995 * 


BEFORE SPOOL 1S INITIALIZED DURING IPL THIS FIELD WILL 
BE INITIALIZED TO ONE OF THE FOLLOWING: 

X*000000 ‘ CANCEL SPOOL. 

X*FFO000 ' DELETE SPOOL FILE AND CANCEL SPOOL . 
X‘OON##’ WHERE: N= SPOOL FILE SEGMENT SIZE (BLOCKS-1) 


GE 10 ~VO9/11/81 12/08/81 21:28 


1996 *® 

1997 *® 
0049 1998 SCAUSERA EQU SCADSSPR#2 2 
0048 1999 SCADSBFP EQU  SCAUSERA*2 = 2 

2000 x 
0040 2001 SCADMERP EQU SCADSBFP+2 2 
2 


O04F 2004 SCADLBF1 EQU SCADYERP+2 2 
2005 x 

0051 2006 SCADFIST EQU SCADLBFI*2 2 

0052 2007 SCAD*TUB EQU SCADFIST+1 1 
2008 ® 

0053 2009 SCADBSCT EQU SCAD*TUB+1 = 1 
2010 * 

0055 2011 SCADVICE EQU 
2012 * 

0057 2013 SCADSEUA EQU SCADVICE+2 2 

0059 2014 SCADSEUQ EQU  SCADSEU2 2 

0059 2015 SCAIPLW6 EQU SCADSEUQ 2 
2016 * 

005A 2017 SCADSLOG EQU SCADSEUQ+1 1 

OOEO 2018 SCAMPRT EQU X'EO' : 

0010 2019 SCAMCRT EQU X‘10' , 
2020 ® 

0058 2021 SCASYS1 EQU SCADSLOG+! 1 

0080 2022 SCAHFERR EQU X'30' = 

0040 2023 SCAMIPLC EQU  X'40' : 

0020 2024 SCAOVER EQU  X'20' : 

0010 2025 SCAMIPL EQU X'10' 

0008 2026 SCAMRBLD EQU  X‘0S* 

0004 2027 SCAMEJCT EQU  X‘04" 

0002 2028 SCAMCLOK EQU X‘02' 

0001 2029 SCAMPREP EQU  X‘01' 


SCADBSCT+2_ 2 


#SVAT TCB ATTACH TRANSIENT 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0001 429 ADSTPMOD EQU  X'‘01' 
430 * 
43] * 
432 * 
433 * 


LOW BYTE 


gee = NUMBER OF SPOOL FILE SEGMENTS 


START ADDRESS OF USER STORAGE 
ADDRESS OF SPOOL BUFFER POOL 


ADDRESS OF MSP ERROR SAVE AREA 
ADORESS OF C.P. DISKETTE 108 


ADDRESS OF ®LIBRARY FORMAT-1 


FIRST ACTIVE FORMAT-1 ON CHAIN 
NUMBER OF LOCAL CONFIG. TUBS 


NUMBER OF USERS OF BSC 0M 
ADDRESS OF DEVICE ALLOC TABLE 


ADDRESS SEU MEMBER CHAIN 
SEU QUEUE HEADER 
TPL WORK AREA 


SYSLOG ASSIGNED INDICATOR 
SYSLOG ASSIGNED TO PRINTER 
SYSLOG ASSIGNED TO WORK STATION 


SYSTEM CONFIGURATION BYTE 5 
X*80" ~ ERROR IN HISTORY FILE 
X'40" - IPL-PROCESSING COMPLETE 
X*20' - IPL-OVERRIDE RECEIVED 
X*10° - IPL-SIGN ON COMPLETE 
X08" - IPL-FILE REBUILD 

X'04* - SYSLOG EJECT AT EOJ 
X*02" - CONFIG RECORD LOCK 1R3! 
X‘O1" - PREPARE REQUEST ISSUED 


B14 
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A/D IN INSTRUCTION STEP NODE. 


CONTROL BITS AND OFFSET INTO SADINIT 
OXREF TABLE THAT HAS DISK ADDRESSES OF 
A/D TRANSIENTS. 


01 


06) 


07 


10 


ab! 


5 


SVAT CB ATTACH TRANS 


ERR LOC OBJECT CODE 


0031 3728 TWAPTKMQ EQU 49 TAG 49- TASK MESSAGE QUEUE AREA 


3729 * 54 TAG 54- END OF NCSSABE QUEUE AREA 
0037 3730 TWAMOCLC EQU 55 TAG 55- OCL COMMAND SAVE AREA 
0038 3731 TWAPXLAT EQU 56 TAG 56- TRANSLATE TABLE AREA 
0039 3732 TWAARAMG EQU 57 TAG 57- DUAL MESSAGE ROUTING AREA 
3733 * 58 TAG 58- RESERVED THRU 59 
3734 * 
3735 ® COMMAND PROCESSOR TAGS 
3736 * 
0000 3737 TWASMISE EQU TAG OO- NOT USED 
0001 3738 TWA*SCOL EQU TAG O1- SYSTEM CONSOLE IMAGE 
3739 * TAG 07- END 
0014 3740 TWAPCEND EQU NUMBER OF IMAGES 
0008 3741 TWAMNQO) EQU TAG 08- MESSAGE QUEUE 
3742 * TAG 13- END OF MESSAGE QUEUE TAGS 
OOOE 3743 TWARCURT EQU TAG 14- CURRENT SYSTEM PRINTER IMAGE 
OOF 3744 TWAMSCSV EQU TAG 15- SYSTEM CONSOLE SAVE/RESTORE AREAS 
OOF 3745 TWAACNSL EQU CONSOLE SAVE AREA (15-26) 
O18 3746 TWAMISSA EQU ; WORKSTATION SAVE AREA (27-38) 
C15 
47 VO9/11/81 12/08/81 21:28 SSVAT TCB ATTACH TRANSIENT PAGE 48 VO9/11/81 12/08/81 21:28 i SWAT TCB ATTACH TRANSIE! 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE At 
02 905C 2031 SCASYS2 EQU SCASYSI+1 1 SYSTEM CONFIGURATION BYTE 6 00. 
0080 2032 SCAMATBS EQU  X'80° .___X*80" - COMM TASK BEING ASSIGNED 00: 
0040 2033 SCAMCCHK EQU  X*40° . _K°40" - MASTER CONSOLE CHECK 00! 
03 0020 2034 SCAMHLDP EQU  X‘20‘ - X20" - HIGH LEVEL DEDICATION 0c 
RY 0010 2035 SCAMIPUP EQU  X‘10° -___X*10" - IPL - STARTUP PROC {R41 000 
0008 2636 SCARDATE EQU  X‘08" . X08" - SYSTEM DATE RECEIVED 000 
1) 04 0004 2037 SCAMTC EQU X‘04" . "04" ~ DORPYY DATE WORLD TRADE 000 
2) 0002 2038 SCAMDON EQU  X‘02' ~___X*02" - MADDYY DATE DOMESTIC 
9) 0001 2039 SCAMYYD EQU  X‘OI' . _X‘Ol* - YYMPOO DATE SPECIAL 007 
4) 0 2040 * OD 007 
2041 * SYSTEM IPL DATE - IN PACKED FORMAT (YY Itt DD) 
005D 2042 SCADYEAR EQU SCASYS2+1 =«1~=—=SCSYSTEM YEAR i 007 
06 OSE 2043 SCADMNTH EQU SCADYEAR+1 1 SYSTEM MONTH 06 
B| OO5F 2044 SCADDAY EQU  SCADMNTH+! 1 SYSTEM DAY 007 
tcl O05F 2045 SCADOATE EQU  SCADDAY 3 SYSTEM DATE CYMD) 008 
07 2046 * 004 
0060 2047 SCADCTUT EQU SCADOATE+1 1 COUNT OF USER TASKS IN SYSTEM 002 
OL. 2048 * 
CKS~1) 08 0066 2049 SCARDVOL EQU SCANTUT+6 6 DISKETTE VOLUME LABEL 
NTS 2050 * 
0067 2051 SCARDFNT EQU  SCARDVOI+1 =«1~=~=SCTSKETT€ PHYSICAL FORMAT F 
09 0080 2052 SCAMIPLA EQU X'‘80° -  K'80' ~ IPL AUTOLOADER FLAS {R31 109 
2053 * 0 - IPL_DISKETTE, AUTO-YES 
2054 * 1 - IPL DISKETTE, AUTO-NO 007 
10 X'40° - 2 SIDED - MFM RECORDING 10 008 
X‘20" - 2 SIDED - FM RECORDING 004 
0010 2057 SCAMIFM EQU 
ll 0008 2058 SCAM1024 EQU - RECORD SIZE = 1024 1 
0004 2059 SCAMDS12 EQU - RECORD SIZE = 512 
12 X‘01' - RECORD SIZE = 128 2 
0068 2063 SCADKLRC EQU  SCARDFMT+4 4 ‘DISKETTE VOLUME LRC CHARACTERS 
3 2064 * 13 007 
0060 2065 SCAIPLUK EQU  SCADCTUT : IPL_WORK AREA (START) - 
14 2067 * 14 0071 
006D 2068 SCADMTUB EQU SCADKLAC+2 2 “MASTER CONSOLE TUB ADDRESS oo7t 
O06F 2069 SCADPTUB EQU  SCADNTUBs2° ~~ 2°~~«SYSTEM PRINTER TUB ADDRESS O07 
15 2070 * 15} 008 
2071 * COMMAND PROCESSOR DISPLACEMENTS AND BIT MASKS 008. 
2072 * 
l 16 0070 2073 SCADCPS1 EQU SCADPTUB+] 1 SWITCH BYTE ONE 16 008 
0080 2074 SCAMCPL EQU  X°80° .__STOP COMPLETE MESSAGE SENT 
0040 2075 SCAWALL EQU X"40° . NO JOBS CAN BE INITIATED 008 
7 0020 2076 SCAMSJE EQU xX'20' . SPOOL URITER/JOBQ E0J REQUIRED 7 008% 
0010 2077 SCAPRSE EQU  X"‘10° .__ SOM SEND EOJ COMPLETION CODE 
0008 2078 SCARSST EQU K‘08" . SPOOL WRITER HAS BEEN STARTED 008 
18 0004 2079 SCAMUQS EQU x‘04" . JOBQ HAS BEEN STARTED 18} 
0002 2080 SCAMSEC EQU  x‘02' ~_ SECURITY IS ACTIVE 008 
0001 2081 SCAMERP E—QU  X‘01' . CALL 1/0 ERP TRANSIENT 005% 
| 2082 * 004 
0071 2083 SCADCPS2 EQU SCADCPSI+1 SWITCH BYTE TO 
~ KEY SAT; ALL FILES AT SHUT DOWN O01 
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4QZ XAAAAAAAKAAAAAAARERARARRARAAAAREAERLERARRAERERERRRRERERRE LRKARAREREREAR, 


484 * ‘CONSTANT’ POINTERS TO MAIN STORAGE ITEMS = 
GQ5_ TARARARAREAARARARARRAAARARRRRARARERRAAARERRRREERERRARERRAR RRR RAR RRR RRIR 


0028 486 D1TCBHOR EQU OITPTOXL+1 © ADOR OF MAIN STORAGE TCB QUEUE 


48 VO9/11/81 12/08/81 21:28 01 
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RERRRK 
x 


RARER 


SSVAT CB ATTACH TRANSIENT 


“TERR LOC OBJECT CODE 


0040 2085 SCAMCOUT EQU  X'40' 
0020 2086 SCAMHELP EQU X‘20' 
0010 2087 SCAMCPAF EQU X'10" 
0008 2088 SCAMMSBL EQU X'08' 
0004 2089 SCAMDELE EQU  X'04' 
0002 2090 SCANTOLD EQU = X‘02' 
0001 2091 SCAMTELL EQU X‘01' 
2092 * 
0073 2093 SCADMGDI EQU SCADCPS2+2 
0076 2094 SCADSECa EQU SCADNGDI+3 
2095 cd 
0077 2096 SCADABCT EQU  SCADSECa@+1 
2097 * 
0078 2098 SCADXTRA EQU  SCADABCT+1 
0080 2099 SCANKTRA EQU X‘80' 
0040 2100 SCAMLOTX EQU X'40' 
0020 2101 SCAMLOTR EQU  X‘20° 
2102 * EQ X'10° 
2103 * Eq X‘08" 
2104 * EQ x'04" 
2105 * Eq@  x‘02" 
2106 * —QU. X‘01' 
2107 * 
0079 2108 SCADMCFG EQU = SCADXTRA+1 
0080 2109 SCAMDREC EQU X‘80' 
0040 2110 SCASPARK EQU  X‘40° 
211i * EQU X‘20° 
2112 * EQ = X"10" 
2113 * Eq x‘08" 
2114 * EQ ‘04° 
2115 * Eq X"02" 
2116 * EQ X‘O1" 
au? * 
OO7A 2118 SCAD#N2K EQU SCADRCFG+1 
2119 * 
0078 2120 SCADMCTR EQU  SCADPN2K+1 
0070 2121 SCADSCIN EQU SCADMCTR+2 
OO7E 2122 SCADMID® EQU  SCADSCIM1 
OO7F 2123 SCADRSC2 EQU  SCADMID#+1 
0080 2124 SCADSECZ EQU SCADRSCZ+1 
0082 2125 SCADCPWa EQU  SCADSECZ+2 
2126 * 
0084 2127 SCACSATB EQU SCADCPLa+2 
2128 ® 
0085 2129 SCADXSLT EQU SCACSATB+1 
008A 2130 SCADSLOT EQU  SCADXSLT+5 
2131 * 
008B 2132 SCADMQNT EQU  SCADSLOT+1 
2133 * 
OOSC_2134 SCADCSP] EQU  SCADMOQNT+1 
0080 2135 SCAN255 EQU  X‘80" 
0040 2136 SCAMARNR EQU X'40° 
2137 * EQ X'20° 
0010 2138 SCAMACDV EQU  X'10° 


ADDR STMT SOURCE STATEMENT 


0047 537 DISWICBI EQU DILDACEA+1 
0048 538 DITWICBa EQU DISWICBI+1 
0048 539 NlONTcRa Foi ON TuTcRa 


. CONSOLE READY TO OUTPUT MESSAGE 
HELP FEATURE ACTIVE 1R31 
 C. P. WSQS ASSIGN FAILURE 1R31 
. REBUILD - EXECUTE REBUILD 
REBUILD - DELETE FILES IN ERROR 
REBUILD - EXAMINE OLD FILES ALSO 
REBUILD - DISPLAY LABLES IN ERROR 


2 MESSAGE ORDER INDEX ADDRESS 
3 SSS OF SECURITY FILE 


1 AUTO-BUFFER DISABLE COUNT 1R3} 


1__EXTENDED TRACE INDICATORS 1R4i 
- EXTENDED TRACE ACTIVE 

- EXTENDED TRACE LINE 0 CINTRAD 
LOG TRACE LINE 0 CINTRA) 


1 DATA MANAGEMENT OPTIONS 1R4{ 

- DELETED RECORD CAPABILITY 1R4] 

- SEQ. PROC. ADDED REC. BY KEY 1R61 
RESERVED 


1 MUPBER NUCLEUS 2K BLOCKS 1R4] 


1 COUNTER OF ART JOBS ACTIVE 

2 ADDRESS SYS CONSOLE IMAGE MATRIX 

1_ MESSAGE ID # FOR SYS CON REPLY 

1 SIZE OF RESOURCE SECURITY FILE 

1 SIZE OF SECURITY FILE 

2 COMMAND PROCESSOR WORKAREA ADDRESS 


2 CONTROL STORE ALLOCATE TABLE 


1 [2 SLOT NUMBER CHEX) 
5 12 SLOT NUMBER DECIMAL 


1 MESSAGE Q COUNT 


1_ CoP ------> MSP_INTERFACE BYTE 

. ICR ATTACHMENT ON SYSTEM 1R2] 

- 12 DISKETTE ATTACHMENT $R3] 
.__ RESERVED FOR ADDR COMPARE DUNP 

. ERROR ON DUMP - PARTIAL DUMP TAKEN 
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06 


07 


10 
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iss 18 


0080 


8388 | 8 88siss 


8 8 
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Se Set eet fe a a i TTS | gee ee ee 


0061 3797 SAIDCHI3 EQU  X'BI' COPPA KEY 13 
0082 3798 SAIDCII4 EQU X‘Bc' 


0083 3799 SAIDCMNS EQU  X‘B3" COMMAND KEY 15 
0084 3800 SAIDCMG EQU X‘B4" COPTAND KEY 16 
0085 3801 SAIDCHI7 EQU X‘BS' COPPAND KEY 17 


0086 3802 SAIDCMI8 EQU  X‘B6* 
0087 3803 SAIDCMI9 EQU  X'B7" 
0088 3804 SAIDCN20 EQU X‘B8' 


OOBC 3808 SAIDCHZ4 EQU 
0001 3809 SAIDIOER EQU 
OFF 3810 SAIORLSE EQU 
OOFE 3811 SAIDRECO EQU X'FE’ PSEUDO RECOVERY AID FOR CP 
OOFC 3812 SAIDGAIJ EQU  X'FC* GAIJI ENTER AID 


“SVAT CB ATTACH TRANSIENT PAGE §=50 VO9/11/81 12/08/81 21:28 
1 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


02} 0008 2139 SCAMACNG EQU X‘08' . DISPLAY ADDR COMPARE DUMP MESSAGE 
0004 2140 SCAMACDP EQU X04" «__ADORESS COMPARE DUMP WAS TAKEN 
0002 2141 SCAMACSP EQU = X‘02' . TASK SUSPENDED BY ADDR COMP DUP 
03 0001 2142 SCAMTACT EQU xX'‘01" - TRACE TO DISK ACTIVE U5 


2143 * 
0080 2144 SCADCSP2 EQU  SCADCSP1*1 «1 «NSP ------> CSP INTERFACE BYTE 
0080 2145 SCAMLGER EQU X‘80" . 5/32 MODE LOG PRINTER ERROR 04 
0040 2146 SCAMPOVK EQU  X‘40° «PRINTER TRANSLATE FEATURE = iR4/ 
0020 2147 SCAMFORK EQU  X‘20° . FORTRAN EXECUTION SUPPORT —[R4/ 
0010 2148 SCAMFAIL EQU  X"10° . LAST 2K OF NUCLEUS ASSIGNED 05 
0008 2149 SCAMICRI EQU  x'08" .__MICR SUBRO8 SSP SUPPORT 
2150 * EQqU  X*O4" . RESERVED 
0002 2151 SCAMICR2 EQU § X‘02' . ICR SUBR25 SSP SUPPORT 1R41 06 
2152 * fw x‘o1' . RESERVED 
2153 * 
07 OO8E 2154 SCADCSP3 EQU SCADCSP2+1 1 CSP <-----> MSP INTERFACE BYTE 0 
0080 2155 SCAMPLCA EQU  X'80° ._MLCA CONTROLLER ATTACHED {R6i 
0040 2156 SCAPBSCB EQU X40" . WSC “B* CONTROLLER ATTACHED RG! 
0020 2157 SCAMCFER EQU  X'‘20' . CONFIG RECORD TUB COUNT ERROR 1R7/ 08 
2158 * Equ. Xx'l0° -__ RESERVED 
2159 * EQU x08" . RESERVED 
2160 * equ x‘04" . RESERVED 09 
0002 2161 SCADTLOK EQU  x'02' «TERMINAL UNIT BLOCK CHAIN LOCKED 
2162 * Eq x‘o' ~ RESERVED 
10 2163 * 10 
0090 2164 SCADSNAT EQU SCADCSP3+2 2 ‘TCB ADDRESS OF SNA TASK 
2165 * 
ll 0091 2166 SCADLIN® EQU  SCADSNAT+1 1 COMMUNICATIONS CONFIGURATION rel 
2167 * 
2168 * NOTE: THIS BYTE DESCRIBES HOW THE COPPUUNICATION HARDWARE IS 
12 2169 * DEFINED. BITS 0-3 DESCRIBE COMMUNICATION LINES. BITS 4-7 12 
2170 * DESCRIBE AUTOCALL LINES. BITS 0-7 DESCRIBE X.21 LINES. 
271 * FOR EXAMPLE: 
13} 2172 * AUTOCALL ON LINE 3 AND COMMUNICATIONS ON LINES 13 
2173 * 1, 2, AND 4 WOULD BE X‘02". 
24 * X.21 ON LINE 1 AND COPPUNICATIONS ON LINE 2 
1 2175 * WOULD BE X"C8*. 14 
2176 * AUTOCALL AND X.21 ARE MUTUALLY EXCLUSIVE. 
2177 * 
15 0080 2178 SCAMLIN] EQU  X‘80" . COMMUNICATIONS ON LINE 1 15 
0040 2179 SCAMLIN2 EQU X‘40° ._COPPUNICATIONS ON LINE 2 {R31 
0020 2180 SCAPLIN3 EQU  X‘20° . COMMUNICATIONS ON LINE 3 1R61 
16 0010 2181 SCAMLIN4 EQU X‘10° . COMMUNICATIONS ON LINE 4 1R61 16 
2182 * 
0008 2183 SCAMACU] EQU  x‘03" . AUTO CALL ON LINE 1 1R61 
17 0004 2184 SCAMACUZ EQU X‘04" . AUTO CALL ON LINE 2 1R64 1 
0002 2185 SCAMACU3 EQU  X'‘02' AUTO CALL ON LINE 3 1R64 
0001 2186 SCAMACUS EQU X‘OI" . AUTO CALL ON LINE 4 1R61 
at 2187 * 13 
0088 2188 SCAMK211 EQU  X‘33" ~_X.21 ON LINE 1 {R81 
0044 2189 SCAMK212 EQ’ x"4a" . X.21 ON LINE 2 
1 0022 2190 SCARK213 EQU  x'22° . X21 ON LINE 3 1R81 19 
0011 2191 SCAMK214 QU X‘11" ~__X.21 ON LINE 4 {R81 


2192 * 
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0061 591 DIHPCSTK EQU ODIHPCSDA+1 © CURRENT STACK POINTER FOR CS SCS FROM IL2 

0062 592 DIHPSTK EQU  DIHPCSTK+1 | STACK POINTER FOR CS SVC REQUESTS FRO IL2 
593 * 

0063 594 DIRNQSAV EQU = DIHPSTK+1 RESOURCE ENQUEUE/DEQUEUE SAVE AREA 


$3 


a3 33 


g§ 6g |6ag 


g § 


ae 


ge 8 Fs 


ich eck ted Dkk bck. Bak chk ck ck Deck a: “ech cad be hee ace cco weak eae 


HOS RAAAARARARAAAAAARARAAARERKARARRARAAAARRAERAALAALAR REE RE RRALER EERE HER 


4 


3844 * FOLLOWS: 
3845 *  CFULDCFI) OR, 


14 3846 * CFU CFW2DCRSEQDCRSEGQ*) OR, 
3847 * ——_CFWL>CFU2>CMODUL)(M0D10) OR, 
3848 * ~——CFUL)CFL)CRODUL)CHODIID OR, 
15 3849 * CFU CFU2)CRSEQD<RSEQ*>CMODUL(DD10) OR, 5 
3850. * —_CFWCFUZ)CRSEQ>CRSEQ#)C MODUL >CMOD1 1) 
3851 * 
16 3852 * FIELD BITS BIT DESCRIPTION OR VALUE 6 
3853" FW 0-1 ol 
3854 * 2 BYPASS FIELD 
7 3855 * 3 OUP ALLOMED 
3856 * 4 MDT BIT CON IF 1, OFF IF 0) 
3857 * 5-7 MATRIX OF VALUES 
18 3858 * 000 ALPHAMERIC f 
3859 * 001 ALPHA ONLY (NO NUMERIC) mes 
3860 * 010 RESERVED 
19 3861 * 011 MIPERIC ONLY ¥ 
3862 * 100 KATAKANA —_ 
3863 * 101 OVERSTRIKE CHARACTER ALLOLED 
0 vi 
C18 
9/11781 12/08/81 21:28 @SVAT TCB ATTACH TRANSIENT PAE 51 WOO/11/81 12/08/81 21-2 SVAT TOR ATTACH TRANSTEN 
01 t 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE AOR STAT 
0 0095 2193 SCADREOJ EQU SCADLIN®+4 = 4 END-OF-JOB SVC b2 2a 
0095 2194 SCAIPLWS EQU  SCADREOJ 2 _ TPL WORK AREA 2268 | 
0092 2195 SCADREJa EQU  SCADREOJ-3 ‘START OF END-OF-JOB SVC DORE 228)” 
03 2196 * ti 0080 2750 | 
0093 2197 SCADCON] EQU SCADREJ@+] CONSTANT X'O1' eee? m 
2198 * 0 2752 
04 0097 2199 SCADTBUF EQU SCADREOJ+2 2 COMPUNICATIONS BUFFER SIZE D4 o020 ' 
2200 * 0010 2756 ' 
(0098 2201 SCADWSQS EQU SCADTBUF+1 ~~1 “WORK STATION QUEUE SPACE (174K) i M008 273 
0 2202 * D5 0004 2256 | 
0099 2203 SCADSQS EQU SCADSQS+1 1 SYSTEM QUEUE SPACE (1/4K> f 002 2257 
2204 * D001 225 
06 OO9A 2205 SCADTRSZ EQU SCADSQS+1 1 TRACE BUFFER SPACE (1/4K) 06 2259 * 
2206 * 2260 * 
0098 2207 SCADSNAl EQU SCADTRSZ*1 1 SNA BATCH TASK USE COUNT 13) f OOM 2361 
07 009C 2208 SCADSNAT EQU SCADSNAl*+] 1 SNA REMOTE TASK USE COUNT {R31 0? 2262 * 
0090 2209 SCADSDLS EQU SCADSNA7+1 1 SDLC SECONDARY TASK USE COUNT 1R3/ OMB 2763 § 
OO9E 2210 SCADSDLP EQU SCADSDLS+1 1 SLC PRIMARY TASK USE COUNT  IRGI DOR 726 
03} 2 * i Mo 2265 + 
OO9F 2212 SCADCFG7 EQU  SCADSDLP+1 HISTORY ae deal 131 7266 * 
0080 2213 SCALP EQU X"80° HISTOR ii D 7 
Ly 2288 * 
2 ce 
0 mm 
rae a2 : 
‘F 
I ‘CORD 2274 
OOM 2775 5 
0020 2222 SCAHALC EQ! x°20° 1 Bi 2276 § 
1 2223 * AFTER IPL 2083 2277 § 
0010 2274 SCAPFLOC EQU  X‘10° ; O0n3 2778 5 
2B * LOCATION 7 
1 2226 * 1 - SPINDLE Al 27m * 
21 * 0 - SPINDLE AZ 2m * 
OOOF 2228 SCAPHVSZ EQU xX ‘OF' e HISTORY-OVERFLOW FILE SIZE (BITS 228? * 
14 2229 * 4-7 (K'OF")) IN PRATIPLES OF THE 2783 * 
2230 * HISTORY FILE (1-8). ORS 2784 5 
2231 * a * 
15} OOA2 2232 SCADRSEC EQU SCADCFG7+3 3 RESERVED FOR SECURITY USE 0087 7786 S 
2233 * 287 * 
O0A4 2234 SCADHFIK EQU  SCADRSEC+2 2 SECTOR OFFSET OF VIOC ENTRY: [R31 ORF 2758 $ 
16 2235 * . HISTORY OVERFLOW FILE. “HISTOVF 220 * 
22% * 0000 2790 9 
00A6 2237 SCADURKA EQU  SCADHFUK+2 2 ADDRESS COMPARE WORKAREA ADDR 1f3/ 0080 7291 F 
17 2238 * m* 
00A7 ta SCADCEGS EQU  SCADURKA+1 1 SSP CONFIGURATION (R31 23° 
. RESERVED 77m * 
13 0040 fa SCAMRUSP EQU = X"40' . USE WORK STATION PRINTER {R61 22% * 
7242 * EQ x'20° ._ RESERVED 2% * 
7243 * Fw x10" ~ RESERVED Da * 
19 2244 * EQU xX'OS" . PRESERVED iRBt 2298 * 
2245 * EU X04" - RESERVED 22799 * 
RESERVED 000? 7300 
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0; 0080 645 ADCTASK EQU X'80" STOP IF TASK ACTIVE 65 
0040 646 ADCREAL EQU X‘40° REAL VERIFY ADDRESS 0000 666 
0020 647 ADCVERFY EQU X"20" VERIFY STOP 0080 867 


por 


C19 
~~ VO9/11781__12708/81 21:28 oe TCB ATTACH TRANSIENT 
) 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
D2 2a * Fu K‘OI" . RESERVED 1B) 02 2 
2248 * ori 
OAS 2249 SCADCFG) EQU  SCADCFGS+I 1 REMOTE CONFIGURATION BYTE 181 2 
03 0080 2250 SCAMRWSA EQU  X“80° . RERDTE WORK STATIONS ACTIVE 03 000 2 
21 * FOR THIS IPL 0020 2 
(0040 2252 SCARAAW EQU  x"40° . PERFOR AUTOWARY ONLINE AT IPL 2 
D4 0020 2253 SCANRMWW EQU  X‘20° WARY ONLINE NOT ALLIMED 04 2 
0010 2254 SCARRMET EQU  X‘10° ._WARY ON IN PROCESS BY sHUWy Oy Parsee 
(0008 2255 SOWWABV EQU X08" . 906 HAS SET “SOMMEaN all z 
05 0004 2256 SCANSMAP EQU  X‘04" . REMOTE TASK IS SURPPABLE 05 2 
0002 2257 SCARCE EQN X‘02" ._AT LEAST ONE REMOTE CONFIGURED z 
0001 2258 SCAWAKF EQU X‘0I" . AT LEAST ONE REPOTE CONF TouRED ‘OO? 7 
06 2259 * FOR IPL AUTO WARY ONLINE 06 z 
2260 * z 
OOAA 2261 SCADTKS? EQU  SCADCFG9+2 ~~ 2 ~=«(DISK SECTORS PER TRAC al Zz 
D 7262 * 07 z 
ORB 2263 SCADCFGS EQU SCADTKSZ*1 1 SECURITY FEATURES z 
(0080 2264 SCAPRSEC EQU  x‘80" . RESOURCE SECURITY Fi 
D8 0040 2265 SCANBADG EQU  xX‘4n* BAOGE READER SECURITY 0g Zz 
2266 * eu '20"° .__ RESERVED z 
7 Fw Xx"10° : PSERVEL Zz 
D9 2268 * fq! "08" ’ 0 003 2! 
2269 * Eu x‘04 .__ RESERVED oon 7 
7270 * Eq xK'02" RESERVED 00 7 
ie 2m * ew xe RESERVED BLE on 2 
2m * e000 7 
OOAC 2273 SCAMDST EQU SCADCFGS+1 =. “USO! SRAMCH TABLE (IU SIDE) inal oe 7 
IPL \ OOAD 2274 SCAADBO EQ) SCADMDBT+1  -—-> SWDB0 STORAGE ADDRESS = IR2! 1 0004 23 
; OOAF 2275 SCASWDB] EQU SCADMDBT+3 —---> 81 STORAGE ADDRESS 13! 
00) 7: 
z 
once 2: 
‘4 
2 
9080 23 
73 
THE 0070 73 
oon 73 
008 73 
00B7 2286 SCADMDBR EQU SCADCFES+12 12 USOM BRANCH TABLE CHIGH SIDE) 0004 23 
0002 23 
AM Zw 
B 
00CO 2290 SCADCPS4 EQU SCADRSPC*+1 1 CORVWAND PROCESSOR SWITCH 4 [RBI 006 73 
0080 2291 SCARMALD EQ  x"30" . VERY HIGH LEVEL DEDICATION 73 
2292 * FM x*40" RESERVED 1 OOCE 23 
2293 * FQ x‘20° RESERVED B 
2294 * EQ 710° ~ RESERVED 006 3 
2295 * EQ x08 . RESERVED 18 0005 23 
22% * FW x‘04 RESERVED 0093 2° 
2297 * fw x02" > RESERVED On ZG 
81 2298 * FM x‘O1' . RESERVED 19 or B 
7299 * B 
7 00C2 2300 SCADKTID EQU SCADCPS4+2 2 EXT. ADDRESS MAPPING (EMARD  1R61 23 
ct 
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0002 3923 UDOPr WORTC+1 EXTERNAL OP-CODE MODIFIER 


EqU 


0080 3925 WS’ EQU X"80" 
0040 3926 WWOVR «= EQUOK"40" OVERRIDE REQUEST 
000 3927 WOFIHO EQUX'40' 


READ SCREEN MODIFIER 
WRITE ERROR OPERATION 


READ MODIFIED IMMEDIATE 
RESTORE REQUEST 


*SVAT TCB ATTACH TRANSIENT PAGE 53 VO9/11/81 12/08/81 21:28 
01 
ERR LOC OBJEC’ CODE ADOR STMT SOURCE STATEMENT 


02) 2301 * 


00C1 2302 SCADXMI1 EQU  SCADAMID-1 EXAM IDS 1-7 1R6} 
RESERVED 


01 - DISK OM (SPARK) 


aL 
(4 
IR? I 
ts 
D 
D 
{ O6 
1R3I 215 * : 
07 2316 * Eq x"10" . 0B - RESERVED 
2317 * 
09 
09 00C3 2322 SCADCPS3 EQU SCADKMIDe] 1 1R4) 
0080 2323 SCASTOPS EQU  X'80° 
(0040 2324 SCAMDCKF EQU  X"40° .  REBUILO-DELETE CHECKPOINT FILES 
10 0020 2325 SCAMRILP EQU  x‘20° . _ INITIALIZ£ LINE PRINTER iPS! 
0010 2326 SCAMIOCL EQU x'10° -__MLCA 10h LOADED {R61 
iR2! 0008 2327 SCAMLATF EQU x‘08" . PLCA ERROR ATIAGH FAILURE (RG! 
2 11 0004 2328 SCAMFUND EQU  X‘04" . DISKETTE #45 EXTENDED LABELS {R71 
31 0002 2329 SCARKZIS EQ X*02" - X21 SMITCHED {R81 
3| 0001 2330 SCAMDODD EQU  X‘OI" . DISKETTE WAS WON-SEQ. RECORDS {R3/ 
4} Z| 2331 * 
ai 00C4 2332 SCADCFG6 EQU SCADCPS3+1 1 CONFIGURATION BYTE 6 1R4] a 
ADDRESS * NOTE: THIS BYTE CONTAINS THE SAME BIT MASKS AS SYSTEN CONFIGURATION 
F ICS 1 Bx * BYTE ‘CONDCFGS '. 
WILL BE 0080 2335 SCACKRST EQU  X‘80" -__ CHECKPOINT/RESTART CONFIGURED 
STATION 2336 * equ x‘40° . RESERVED 
DLN. 14 0020 2337 SCANSPFC EQU  x‘20° . SME FEATURE CONFIGURED 
| 0010 2338 SCAMDFA EQ X°‘10° . __ DUP FILE ANALYSIS 1851 
0008 2339 SCAMIEXC EQU X08" 3 T EXCHANGE {R61 
) 15 0004 2340 SCAMSUBS EQ X'04" .  SUBCONSOLE SUPPORT 1P51 
0002 2341 SCAMUASF EQU  X‘02" . SPOOL FILE ACCESS (R51 
0001 2342 SCAREDON EQU x“o1° . EXTENDED DISK DATA TAN. TROT 
16 2343 * 
{R81 00C6 2344 SCADICSA EQU SCADCFG6+2 —2_—«ICS COMMUNICATION AREA ADDR iR4i 
BS ® 
17 OOCE 2346 SCADRFTR EQU SCADICS#+S 8 RESERVED 
74 7 
0006 2348 SCADUCFG EQU SCADRFTR*S 8 UOT COMi CONFIGURATION 1R31 
18 00D5 2349 SCADUDT1 EQU  SCADUCFG-1 LINE 1 CONFIGURATION (BYTE 0) 13; 
0003 272 SCADUDT2 EQU SCADUCFG-3 . LINE 2 CONFIGURATION CBYTE 0) {R3/ 
0001 2351 SCADUDT3 EQU “SCADUCFG-5 . LINE 3 CONFIGURATION (BYTE 0) (R61 
19 OOCF 2352 SCADUDT4 EQU SCADUCFG-7 . LINE 4 CONFIGURATION (BYTE 0) 161 
2353 * NOTE ----- > SEE COMPRESSED UNIT DEFINITION TABLE CUDT) 
1R61 2354 * DESCRIPTION FOR DEFINITION OF BITS 
0) 
B20 


PAGE 


CHAIN FIELD 


DEVICE 1D 

DISKETTE; DEVICE 1D 12/6/79 RJB 
00C3 697 ERBGAIJI EQU = X'C3° GAIJI TASK 10 
OORO 698 FRRDISK FOU yx'AD' HISW- NEVICF 4 T7/4/79 RIA 


0042 3972 WOPEC EQU x42" 
0022 3973 REF = EQUOX'22" 


0012 3974 WDFPH 
0017 3975 WOFMHI §=EQU X‘17" PFM INVITE 
0013 3976 WFMHG §==EQU  X‘13° PFA GET 
OO1A 3977 WPREX FQ X‘IA' PUT END OF TRANSACTION 
0045 3978 WRCDI EQU X'45‘ REQ. CHANGE DIR. [NITE 
0041 3979 WRCDG €QU X'41' REQ. CHANGE DIR. GET 
0032 3980 WFAIL EQ X'32° PUT FAIL RESPONSE 
0020 3981 WONGRP EQU X‘20° NEGATIVE RESPONSE 
0025 3982 WONGRPI EQ X'25° NEGATIVE RESPONSE IMVITE 
0021 3983 WDNGRPG QU X‘21° NEGATIVE RESPONSE GEi 
0010 3984 WOCANL §=EQU  X‘10° CANCEL 
0015 3985 WOCAMLI EQU  X'I5° CANCEL INVITE 
0011 3986 WOCAMLG EQU XII" CANCEL GET 
OOEO 3987 WOWEGS €QU X'EO' NORMAL END OF STEP 
OOE8 3988 WONEO) QU X'ES" NORMAL END OF JOB 
OOFO 3989 WAEOS EQU X'‘FO' ABNORMAL END OF STEP 
C21 
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01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
02} 2355 * WITHIN THE INDIVIDUAL CONFIGURATION 0 
2356 * BYTES. EACH ENTRY IS TWO BYTES LONG. 
2357 *® BYTE 0: SEE LABEL ‘UDTDCMF1" 
0: 2358 * BYTE 1: SEE LABEL ‘UDTDCPF3* FOR BITS 0-3. 05 
2359 * BITS 4-7 (X‘OF") MAP THE DEVICE 
2360 * ADDRESS (PRIORITY) OF THE UDT LINE 
04 ENTRY. FOR EXAMPLE X'80" MAPS TO 04 
X'08*. SEE EQUATES BELOW. 
UDT DEVICE ADDRESS X°30‘ 1R31 
0 UOT DEVICE ADORESS X°40° 1R61 03} 


UDT DEVICE ADDRESS X'20° (R31 


0001 2366 SCAMPRIO QU X*O1" UOT DEVICE ADDRESS x‘10° 161 
06 2367 * 06 
0008 2368 SCAOKKKa EQU SCADUCFG+2 2 _KATAKANA/KANJI Conn AREA 1R6| 
7369 * 
07 0009 2370 SCADSSPF EQU SCADKKKa+l © 1 SSP FEATURE INDICATORS 1R61 07; 
0080 2371 SCAMKKKF EQU  X‘80° ._KATAKANA/KANJL FEATURE 1R61 
Biz * EW X40" > RESERVED 
03 2373 * EQ X'20' . RESERVED 08 
2374 * fw X'‘l0° ._ RESERVED 
Bis * Fw X08" ~ RESERVED 
09 2376 * FQU X‘O8" . RESERVED 09 
2377 * eq X'02' .__ RESERVED 
0001 2378 SCAK21 EQU  x‘O1° ~ _X.2) FEATURE TRI 
10 2379 * 10 
OOFF 2380 SCADCPYR EQU 255 38 COPYRIGHT 
281 * 
ll ODEO 2382 SCADMATR EQU SCADCPYR-31 32 TERMINATION DUP ATR STACK. 11 
2383 * USED BY ABNORMAL TERMINATION 
sins ied % WHEN DUMPING MORE THAN 64K OF 
x MAIN STORAGE. COPYRIGHT WILL BE 12 


RESTORED WHEN DUMP IS COMPLETE. 


ar 
2388 *** END OF EXPANSION ** 


1R6] 
1R61 
3LE_CUDT) 


PAGE 17 WO9/11/81 12/08/81 21:28 #SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
74 * MLCA ERROR RECOVERY 


0001 747 ERBCELOG EQU X‘01' IF ON LOG TO CE TRACE AREA 
IF OFF LOG TO USER TRACE AREA 


0006 750_ERBDCPA EQU ERBDFLG+1 cP AID COLD EQUATE VALUE) 


PAGE = 54 09/11/81 12/08/81 21:28 


ATION 
5 LONG. 


DR BITS 0-3. 
HE DEVICE 
THE UDT LINE 
BO" MAPS TO 
LOW. 

IR31 

IR61 

IR3| 

1R6| 


1R6/ 


1R6] 
[R61 


CK. 

YHINAT ION 
AN 64K OF 
GHT WILL BE 
S COMPLETE. 
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#SVAT CB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


OOOF 4019 WOFLNE §=EQU = WDRUPD+1 
0010 4020 WOSLNE EQU WDPLNE+1 
0011 4021 WDELNE §=EQU  WOSLNE+1 
0012 4022 WDVSLN §=EQU WDELNE+1 
0014 4023 WINDA EQU  WDVSLN+2 


0017 4025 WOLEN 
4026 *** END OF EXPANSION ** 


#SVAT TCB ATTACH TRANSIENT 
1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


2390 * SVEQU 
2391 _* 


2392 * SVC R-BTYE EQUATES 


2393 * 
0000 2394 SVCGWAIT EQU  X‘00" 
0001 2395 SWGPOST EQU  X‘OI' 
0002 2396 SVCWAIT EQU X‘02' 
0003 2397 SWCPOST EQU  Xx‘03' 
0004 2398 SVCXFER EQU X'‘04' 
0005 2399 SVCUNSTK EQU X'05" 
0006 2400 SVCASSEN EQU  X'06' 
0007 2401 SWFREE EQU X‘O7" 
0008 2402 SWCISEC EQU X'08' 
0009 2403 SVCSNSSW EQU  X‘09" 
OOOA 2404 SVCASEN EQU X‘OA' 
0008 2405 SVCPPSVC EQU = X‘0B' 
Q00C 2406 SVCLDATR EQU  X'0C' 
0000 2407 SWPAR §=EQU  X‘00° 
OOOE 2408 SVCQUEUE EQU X‘0E' 
QOOF 2409 SWSCB EQU X‘OF' 
0010 2410 SVCXIENT EQU = X"10' 
0011 2411 SWEXIT EQU X‘lI' 
0012 2412 SWGETP EQ X'12' 
OO13 2413 SWCFREEP EQU = X'13" 
0014 2414 SWTIN EQ xX‘14° 
0015 2415 SMTID EQ X‘15' 
0016 2416 SMTIR EQU  X'16' 
0017 2417 SVCTKWT EQU  X‘17' 
0018 2418 SVCXNTOF EQU X'18' 
0019 2419 SVCPOSTA EQU X‘19° 
OO1A 2420 SVCLOG §=EQU X"IA' 
001B 2471 SVCQSCAN EQU X‘1B' 
2422 * 
001D 2423 SVCTPOST EQU X‘1D° 
OO1E 2424 SVCTWAIT EQU Y ‘IE 
OOLF 2425 SVCTIH EQU X‘IF’ 
0020 2426 SWQS = EQ CX"20° 
0021 2427 SVCRENQ EQU X‘21' 


NUMBER OF LINES TO ROLL 

START LINE NUMBER FOR ROLL 

END LINE NUMBER FOR ROLL 
VARIABLE START LINE NUMBER 
ADORESS OF OVERRIDE INDICATORS 
FORMAT INDEX ENTRY ADDRESS 
PARAMETER LIST LENGTH 
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GENERAL WAIT 

GENERAL POST 

WAIT 

POST 

TRANSFER CONTROL/SYSTEM TRANSIENT 
STACK MANIPULATION 

ASSIGN 

FREE 

INCRENENT SYSTEM EVENT COUNTERS 
SENSE CONSOLE DATA SWITCHES 

ASSIGN SYSTEM QUEUE SPACE SVC 
PSEUDO DELAYED SVC POST ACM FUNCTION 
LOAD ATRS 

ALTER PROGRAM MODE REGISTER (PAR) 
QUEUE / DEQUEUE SYSTEM CONTROL BLOCKS 
SYSTEM CONTROL BLOCK ACCESS 
TRANSIENT/TRANSFER-USER SPECIFIED 
TRANSIENT/TRANSFER EXIT SVC 


ALTER QUIESCE COUNTER 
RESOURCE ENQUEUE 


0021 2428 SVCRDEQ EQU  SVCRENQ RESOURCE DEQUEUE 


0022 2429 SVCDUMP «EQUX'22' 
0023 2430 SMTEST EQ X‘23' 
0024 2431 SVCPRIQ EQU  X'24° 
0025 2432 SVCRDYCK EQ X'25° 
0026 2433 SVCPREP EQU  X'26' 
0027 2434 SVCDSPCH EQU = X‘27' 
0028 2435 SVCRPT EQU X'28° 
0029 2436 SWCSQ. EU. X'29" 
002A 2437 SVCMDVEI EQU  X'2A' 
0028 2438 SVCPOSTI EQU X'2B° 
002C 2439 SVCQMAIT EQU X'2C° 
002D 2440 SVCXAF EQU  X'2D" 
OO2E 2441 SVCTOD =EQU X‘2E' 
2442 * 


DUMP MAIN STORAGE /TERMINATE TASK 
TEST AND SET 

TCB PRIORITY QUEUE 

ASYNCHRONOUS TASK READY CHECK. 
PREPARE PRINTER OUTPUT 
DISPATCHER SVC 

REMOTE PRINTER SET UP. 

SECTOR ENQUEUE/DEQUEUE 

MOVE DATA BY ID 

POST TASK BY ID 

QUIESCE COUNTER WAIT 

TRANS! ATED ASSIGN/FREE 

RETURN TIME-OF~DAY IN TIMER UNITS 


2443 * *-INDICATES NOT USEABLE FROM MAIN S;ORE 


7714 -* 
175 * 
0001 776 XR EW 1 
non? 30777: «YP? emi? 


#EQU 


B22 


PAGE 
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REGISTER ONE 
pericrep Thin 


01 


02) 


06 


07; 


Osi 


10 


ll 


16 


17 


*SVAT TCB ATTAQ 


ERR LOC OBJECT CODE 


SOURCE GET 

MESSAGE RETREIVE 

LIBRARY OPEN/CLOSE 

VTOC READ/WRITE FD 
ALLOCATE 

DEALLOCATE 

SPECIAL ALLOCATE 

RETRIEVE SYSTEM INFORMATION 
VTOC READ/WRITE RO 

SNAP DUMP 

RPG HALT 

DATA MANAGEMENT CONTROLLER 
PRINTER ALIGNMENT 

CORMAND PROCESSOR ROUTER 
LIAITS OPEN 

USER — WSDM REQUEST 
SYSTEM WSOM_REQUEST 

USER LIBRARY FIND REQUEST 
AFA ACCESS TRANSIENT 

SPOOL INTERCEPT REQUEST 


0008 4060 RSGET  EQU X‘08' 
0009 4061 RSMSG EQ X‘09" 
OOOA 4062 RLIBRY EQU xX'dn' 
000B 4063 RVTOCFD EQU X‘0B' 
O00C 4064 RALLOC EQ X‘OC' 
0000 4065 RDALOC EQU X‘OD" 
QOOE 4066 RSALOC EQU X'OE’ 
OOOF 4067 RINFO  EQU X‘OF‘ 
0010 4068 RVTORD =EQU X'l10° 
0011 4069 RSNAP QU. OX‘II' 


0012 4070 RPGHLT EQU X'12° 


0013 4071 ROMCALL =EQU  X'13" 
0014 4072 RPRALGN EQU  X'14' 
0015 4073 RCPRT EQU X‘15' 
0016 4074 RLOPEN EQU  X'l6° 
0017 4075 RWSDM = EQU.X'17° 
0018 4076 RSWSDM EQUX'18' 
0019 4077 RFINDLIB EQU = X'19° 
OO1A 4078 RAFA EQU. X‘IA’ 
0018 4079 RSPOOL =EQU X'18" 
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00750000 


OO1C 4080 RSPALC EQU X'IC' 


*SVAT CB ATTACH TRANSIENT 
1 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


2445 * 
0040 2446 SVCFD 
0041 2447 SWIO) = EQU.SCX"41° 
0042 2448 SWCPT = EQU.sK'42' 
0043 2449 SWC EQUK‘43" 
0044 2450 SVCCOM EQU X‘44° 
0045 2451 SVCIOXNT EQU X‘45° 
O04C 2452 SVCPQSW EQU X'aC' 

2453 * x46" 
0050 2454 SVCCXNT EQU X'50" 
0051 2455 SVCTWA EQU. X’S1' 
0052 2456 SVCLOAD EQU X'52' 

2457 * X'53° 
OO5C 2458 SVCKBTR EQU  X‘SC' 

2459 * 

2460 * SVC Q CODE EQUATES 

2461 * 

0001 2462 Ql EQ X'ol' 
0001 2463 QMAIT = EQ X‘01" 
0001 2464 QREFRESH EQU  X‘O1' 


EQU. X'40' 


0004 2468 QFRMEXM EQU X'04' 
0008 2469 QTOEXM EQ xX‘08' 
0008 2470 QMAIT EQU X'‘08' 
0008 2471 QCPWAIT EQ X‘08' 
0010 2472 QSCT EQqU X‘10° 
0010 2473 QNQ EQ X'10' 
0020 2474 QXRZ EQ X‘20° 
0040 2475 QKU Eq x'40° 
0000 2476 QO EQ X‘00" 
0080 2477 CSCALL =EQU X‘80" 


SPOOL ALLOCATE REQUEST 


C23 
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DELAYED SVC R-BYTE EQUATES 


DISK 10S 

DISKETTE [0CS 

WORKSTATION [OCH (PRINTER) 
WORKSTATION [OCH (TERMINAL) 
COMMUNICATIONS [OCH 

1/0 TRANSIENT REQUEST 
PSEUDO 1/0 REQUEST 


-> X‘4F* RESERVED FOR 1/0 S¥C‘S 


CONTROL STORE TRANSIENT SCHEDULER 
TASK WORK AREA ACCESS 
MAIN STORAGE RELOCATING LOADER 


-> X‘SC* RESERVED FOR DELAYED SVC ‘S 


KEYBOARD TRACE 


SVC SIGNIFICANT INDICATOR 

WAIT ON THIS SVC INDICATOR 

REFRESH TRANSIENT/TRANSFER INDICATOR 
NON-REFRESHABLE SVC INDICATOR 
TRANSLATE OFF~10B/PARM LIST- INDICATOR 
SPECIAL SYSTEM REQUEST FOR ASSIGN REC 
FOR MOVEI - FROM ID IN EXAM 6 

FOR MOVEL - TO ID IN EXAM = 6 
MULTIPLE WAIT 1/0 REQUEST 

ASYNC ERROR WAIT REQUEST 

SUBSYSTEM CONFIG TABLE a 45 
NON-QUIESCABLE REQUEST INDICATOR 
RETURN XR2 FROM POSTER ON WAIT. 

USE USERS TCB ON EXAM 1/0 REQUEST 6 
IMMEDIATE SVC EQUATE 

CS SWC INDICATOR 


0019 2478 QNONV = EQU-QNQ+QHAIT+QMAIT NON-VOLUNTARY SWAPPABLE WAIT 


0018 2479 QNCHPRI EQU QNQ+QSAIT 


NOT CHANGE PRIORITY ON WAIT 8 


0009 2480 QSPEC = EQU «= QMAAIT+(MAIT SPECIFIC WAIT ON NON-ECM. 


2481 * 
OOF4 2482 SVCOP) = EQU. OX ‘F4° 
OOF5 2483 SVCXFR EQU  X'F5* 


2484 *** END OF EXPANSION ** 


SVC _OP CODE VALUE 
SVC TRANSFER OP CODE 


01 


02) 


05} 


07 


10 


11 


SSVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE 


*SVAT TCB ATTACH TRANSIEN 


003C_ 4112 RSMFC QU. X'3C' SME Cort. DATA COLLECTION 6 


003D 4113 RICDD = EQ X'3D' PEER MULTIPOINT 6 
1 OO3E 4114 RWDOU = EQU X'3E' WS0M XIENT 
OO3F 4115 RWOOT EQU X'3F* 2 
0040 4116 RWEGE  EQU xX'40' ° 
14 0041 4117 RRDOM = =FQU  X'4' ROOM TTC XIENT CALL 
0042 4118 RWOHH =EQU X'42' WSOM XIENT 
0043 4119 RSPQ%G =EQU X'43' SPOOL QUEUE [GMT XIENT 
1 0043 4120 RXTEND EQU RSPQNG LAST VALID ENTRY 
0110 4122 XFLENBYT EQU = RXTEND*4*4 = LENGTH OF XFER TABLE (BYTES) 
16 0088 4123 XFLENWRD EQU  RXTEND*2+2 = LENGTH OF XFER TABLE CWORCS) 
4124 *** END OF EXPANSION ** 
: Re 
Fs ees ee ee 
Br ee 
C24 
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1 D 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
0; 2486 * TCB 00770000 p72} 
2487 RERKRAARAAAARARAAKAKARAARRARARARARARRKKRAKKRARAARRAKKRARAERKRAAKA AKA 
2488 * TCB . 
0 2489 RRARRARRKAKKAAARAAARRKARAAAARERAAKRKRARARRARAAKRAAARARKKREAKKAKRERRARRAAK AKA 
2490 200 x x x x x x x ® x 
2491 * STAT * STAT2 * WMASK * WGK2 * *® STAT3 * PRIOR * TTIME * QCNT * 
O 4 2492 RRAAARAAARRARRARAAARARRARRARRKAARK RARRARAAAARAARRKAAAARERAARARKRARK 1) a 
2493 208 x Rx x x x 
2494 * CHPLQ i PUSH * * CHAIN * RDYQ Li 
05) 2495 RARRRRAATARKRAAKAARARKARAAARRARRARK RAKKRARAAAARAKRAARAAARAKAARKAAARAKK 1) 5 I 
24% 10 x ® Ld x * 
2497 * XNTQ * RTUB # * JCéa - CRB . 
% 2498 RARAKRAARARARAARRARAARARRARARARRA RAARAACAACRARKRARAAAAAARAKARAARRRAR te 
2499 218 x ® x x * 
500" axkl——SC*SCsaRCS* CSC 
07 2501 RRKRRARARRARARRARAAAARARAAAARKARRAR RRARKREARAAAAKAARKRARARARAKRERARAAK 1) 
2502 20 x x x x x x ® ® ® 
2503 * PR * PSR * R * Q *  *@IMI* aIM2 * aIM3 * alma * 
0: 2504 RRAAAKARKKRAKAARRAARKARARRARRARRERR RARATAARAARARRRRAKKARRAARAARAAARARRK 3! 
2505 228 x n x x x x 
2506 * TSSN "Bel *  ~—* FOSIZ * ResIZ * SPO * 
0 0 2507 RRAREAAARARKRAKARAKARRARAKKKRAAAAARARKRAKARAKRARRRKRAKKRERARKKAEKRRARAKERAEK KR 
2508_*30 * 
2509 * 7 
10 10 RAKARAAAARAAAARARAARRARREARKARRARKKARRERKKARARAARRKERARKRARAAKRAKRAREKARAKKRAK 
2511 *38 * 
2512 * ATRS . 
1l 23513 RRARAAKAAKRAAAERRAAARARAAKRARAAERAKRRAERAAKERARKAAKRARAAARAEARAAAAARKRARRER 
2514 *40 s 
215 * ® 
12 B16 RRAKTREARAAAARKARRRAARARARKKAAAARERARRALARRRKEKEKARAARRARKARRAAAKRAARAKTK, 
2517 "48 s 
2518 * x 
13) 319 RARRAARAAERERARAARRARRRAKKRERKKKKKRE RARE KKKRAAKRREKKKAAKKRRERAKRER ARR 
2520 bat) x x x x x 
Bai* ‘TIC Cs << 
1 f 2522 RRRAARKAAAKKKAARAARRERRRAAKERAKER RAKKEREAARAAEARERAAKRAAKRKRAAERARRRK 
2523 59 x x x x ® 
2524 * LDOSK “INT * * ASQ” exit * 
15 2525 REKRAAKAKAKRAKRARAAAKAARAKAR RRARKKRAAAREARAKRAKARARKAAAKKERARKARARRAERCKRKRER 
2526 *60 ® 
2a * TOE 
16 2528 RAKRAARAAAAAKAAARARREKRKAKARARARRA RRAKAKRACKRAARKRARERERRAARK 
2529 *68 x x x x x cd *® x 
2530 * SQBCT * LCKK * SSTIO * TSKID™ *  PRIQ  * STATA * STATS * 
17 2531 RRARKRAARAAKRKRAKRARRARKAAARRAERA RRKARAARERAKARKTRRARRARERAEKKLAKK 
2532 ®70CATN x ® x x x * x * x 
2533 * ASCT * CAT * ART * NSCNT * — * CNONT * TQCNT * ARGCT * STATO * 
19 2534 RRAAARAKRAKKAKRAARAARARERKARAEREKARTKK KRAERARRARAEKKRAEARRERAKREKAKRERAKRK 
2535 *78 x x x * x x * 
2536 * BAT * SUSPS*  SrPT. = * = * TST * x * ® 
19 2537 RRAAARAKAKKKRAAREKRERAE RARER AER RRKTRERRRERAKKKARAEKKKKERAARERE RK 


*SVAT TCB ATTACH TRANSIENT 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


CDOIAINIC AD OETEIKKCTChH NMOICTIMALIY 


WW? RAN F1ANCPA? EMI sy'n? 


0828 BS 01 1E 


0005 4163 SNASIZ EQ 5 SNA REGION SIZE 
OOFF 4164 DETACH EQU  X'FF’ DETACH REQUEST 01260000 
0000 4165 ALLOHIGH EQU 0 01270000 | 15 
0001 4166 ALLOSIZE EQU  ALLOHIGH+1 01280000 


15 


0002 4167 ALLONEXT EQU  “ALLOSIZE+1 01290000 

16 0031 4168 ATSVACEA EQU TCBATRS-30 SAVED ACE ADDRESS 01291000 | 1 
0033 4169 ATSVRBA EQU ATSVACE@+2 SAVED RB ADDRESS 01292000 
0035 4170 ATSVSCa EQU ATSVRBA+2 SAVED SCAN BUFFER ADDRESS 01293000 


0038 4171 ATSVSSSA EQU ATSVSCa+3 SAVED SWAP AREA ADDRESS 01294000 
003A 4172 ATSWSSA EQU _ATSVSSSa+2 SAVED WSWA ADDRESS 01295000 
003C 4173 ATSVARRA EQU ATSWSSa+2 SAVED ARR 1296000 
0030 4174 ATSVSIZE EQU ATSVARRA+] SAVED ALLOC. SIZE 1297000 | 18 


7 


18 
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n 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
00770000 2} 2539 *VWVWWVWWWWWWW THE FOLLOWING FIELDS ARE ORDER DEPENDENT VWWWWVWWWVWWW 0. 
sialelalalalalatelalatatatate 0000 2540 TCBSTAT! EQU 0 TCB STATUS BYTE 1 
cf 
RRRARRARRRRRRRE 3 0080 2542 TCBWAIT EQU X‘80' . TASK IS NOT ON READY QUEUE 03 
x ® 0040 2543 TCBSWAPD EQU X‘40' TASK [S SWAPPED TO DISK. 
TIME * QCNT * 0020 2544 TCBFORCD EQU X‘20' . TASK FORCED TO SWAPC? DISPATCHABLE) 
RRRRERERER ARERR 4 0010 2545 TCBLONGW EQU X‘10° . TASK IS QUIESCED - TCBQCNT = 0 04 
x 0008 2546 TCBSOP EQU  X'‘08' -_TASK HAS SWAP OUT I/O IN PROGRESS 
ROO ® 0004 2547 TCBUSTIN EQU § X'04" . SET ON WHEN TASK SWAPPED IN. 
RERRRR ARERR RR 0004 2548 TCBFSWAP EQU X'‘04' . SET ON WHEN TASK FULLY SWAPPED OUT. 0 
x 0002 2549 TCBNOIO EQU§ X‘02' NO _I/0 REQ. FOR SWAP INDICATOR 
CRB ® 0001 2550 TCBNSWAP EQU§ X‘Ol1' TASK IS NEVER SWAPPABLE 
REARRAAARRAR RAK, 06 
x 0001 2552 TCBSTAT2 EQU  TCBSTATI+1 —_TCB STATUS BYTE 2 
alAR * 
RRARRARARRRERRR 0080 2554 TCBWAITD EQU X'80' . TASK WAITING FOR EVENT COMPLETION 07) 
® ® 0040 2555 TCBXWAIT EQU  X'40' ._TASK WAITING FOR TRANSIENT AREA 
INL * @INL4 *® 0020 2556 TCBGWAIT EQU  X'‘20' . TASK WAITING FOR GENERAL POST 
CRARRERAR RRR, 0010 2557 TCBOWAIT EQU = X'10° - TASK WAITING FOR DEDICATED TTC 03 
® 0008 2558 TCBIWAIT EQU  X‘08' -_TASK WAITING FOR INTERNAL DYLD SVC 
SPOOL x 0004 2559 TCBTWAIT EQU = X'04' . TASK WAITING FOR TIMER ELAPSE 
AARARRAAARARARR 0002 2560 TCBSUSP EQU X‘02' . TASK IS SUSPENDED OY 
* 2561 * C SEE TCBSUSPS FOR REASON > 
% 2562 * EQU. x‘ol' . RESERVED 
RRRRRRERRRARRR OOBE 2563 TCBNRDY EQU TCBWAITD+TCBTWAIT+TCBGWAIT+TCBDWAIT+TCBSUSP+TCBIWAIT 10 
® 
* 0002 2565 TCBWMASK EQU TCBSTAT2+1 FIRST WAIT MASK 
RERAARAARRAKRR 1 1 
x 0080 2567 TCBAWAIT EQU X'S" - SQS ASSIGN FAILURE 
* 0040 2568 TCBSWAIT EQU X'40' . TWA ALLOCATE FAILURE 
ARRRARAAERIRRR 0020 2569 TCBTAS EQU xX'20° . TEST AND SET FAILURE 1 
® 0010 2570 TCBWWAIT EQ X'10° - W5QS ASSIGN FAILURE 
* 0008 2571 TCBQWAIT EQU X'08" RESOURCE ENQUEUE POST CODE 
RRERRRARRIERRRR 2572 * NOTE: THE ABOVE BIT IS NOT ON WHEN TASK IS IN GENERAL WAIT. HENCE 3 
® 2573 * ANY GENERAL WAIT WITH BOTH MASK BYTES ALL ZERO IS 
LOREL * 2574 * A RESOURCE ENQUEUE FAILURE. 
RRRARARRRRRRR 0004 2575 TCBRWAIT EQU X'04' - DISK RESOURCE FAILURE 14 
* 0002 2576 TCBFWAIT EQU  X‘02' - DISK SECTOR ENQUEUE FAILURE 
EXIT * 0001 2577 TCBKWAIT EQU = xX‘Ol1' - WORKSTATION RELEASE WAIT 
ARRERRARRARRRK 15] 
x 0003 2579 TCBWMSK2 EQU TCBWMASK+] SECOND WAIT MASK 
x 
RRERARRERRRRRR 0080 2581 TCBPTRWT EQU x'‘80° « PRINTER ALLOCATE FAILURE 16 
x x 0040 2582 TCBLIMAT EQU  X'40° - COMM. LINE ALLOCATE FAILURE 
TAT4 * STATS * 0020 2583 TCBOKTWT EQU  X'‘20' - DISKETTE ALLOCATE FAILURE 
Salalallalalalalalalalaial 0010 2584 TCBOSKWT EQU X‘10° « DISK SPACE ALLOCATION FAILURE WV 
* x 0008 2585 TCBDEWT EQU  X‘03' - OTHER DEVICES ALLOCATION FAILURE 
ROCT * STATE * 0004 2586 TCBICXWT EQU X‘04' - ICS TRANSIENT WAITOR 
ARERERIRARRIRR 0002 2587 TCBASRWT EQU X'‘02' - ASSIGN RECOVERY FORCED WAITER 19} 
* 2588 * EQ x‘o1' ._ RESERVED 
x 
RRRAARARRRRIRR, 0004 2590 TCBSTAT3 EQU TCBHMSK2+1  TCB STATUS BYTE 3 19 
0080 2592 TCBTERN EQU xX'80' « TASK TS IN TERMINATION 
0 
B25 


PAGE 22 09/11/81 12/08/81 21:28 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


LENGTH OF THE FIRST VTOC AREA 


INALLY 


IRIGINAL SPINDLE 


OOIE 935 FIALIVTA EQU  FIADVTOC+] 


Q37 RARARARARAARARAARARAAAA KK ARARRARA ARERR AARARARRAR ARE K KAR ARAER RARER ERR 


020 % rs 


N 


16 


VW 
18 
19 

0 


GE 58 09/11/81 12/08/81 cal 


TION 


CBIWAIT 


[T. HENCE 
) Is 
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082E F4 00 07 
0831 0010 
0833 81 


4218 *** END OF EXPANSION ** 
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4210 © PARPPRIER LOT 


4211 * 
4212 TBN _RBSLEN+GATFLAGC, RBZ), SATFRPRM FREE ATTACH PARMLIST? 
4213 JF = AT000005 NO, BYPASS FREE 
4214 * FREE QUEUE~YES, LEN-SATLENG FREE ATTACH PARMLIST 
4215 SVC SVCFREE,QO = ISSUE FREE REQUEST 

0832 4216 DC = AL2CSATLENG+4) LENGTH + 4 OF AREA TO FREE 

0833 4217 OC ALICX'80'+1) FREE FUNCTION BYTE 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


SSVAT TCB ATTACH TRANSIENT 


ERR LOC UBJECT CODE ADDR STMT SOURCE STATEMENT 


0040 2593 TCBCHKPT EQU X*40° 
0020 2594 TCBEXTRA EQU X‘20" 
0010 2595 TCBCCALL EQU X'10° 
0008 2596 TCBKCALL EQU X'‘08" 
0004 2597 TCBSUSPD EQU X'04' 
0002 2598 TCBOMEPD EQU X‘02' 
0001 2599 TCBINQPD EQU x'01' 


0005 2601 TCBPRIOR EQU TCBSTAT3+1 


OOFF 2603 TCBPRINV EQU X'FF' 
OOFC 2604 TCBPRCP EQU X'FC’ 
OOFO 2605 TCBPRSP EQU X'FO' 
OOFO 2606 TCBPRAR EQU  X'FO' 
OOF4 2607 TCBPRBSC EQU X'F4' 
OOF3 2608 TCBPREM EQU X'F3" 
OOFO 2609 TCBPREXT EQU X‘FO' 
OOF4 2610 TCBPRITH EQU  X'F4’ 
OOF8 2611 TCBPRSOP EQU  X'F8' 
OOF9 2612 TCBPRSDS EQU X'F9' 

aPHCN Fu xFO° 
OOFO 2614 TCBPRSNR EQU X‘FO' 
OOFO 2615 TCBPRBLD EQU X'FO' 
OOFO 2616 TCBPRSRJ EQU = X'FO' 
OOFO 2617 TCBPRSNF EQU X'FO' 
OOFO 2618 TCBPRPER EQU  X'FO' 
OOFO 2619 TCBPRCCP EQU  X'FO' 
OOFO 2620 TCBPRCIC EQU X‘FO' 
OOFO 2621 TCBPRIMS EQU X‘FO' 
OOFO 2622 TCBPRBEL EQU X'FO' 
OOFO 2623 TCBPRINT EQU X'FO' 
OOFO 2624 TCBPRBTS EQU X'FO' 
OOFO 2625 TCBPRECE EQU X‘FO' 
OOFB 2626 TCBPRSMF EQU X'FB‘ 
0OF1 2627 TCBPROOF EQU  X‘F1' 
0000 2628 TCBPRSWT EQU X‘00' 
OOEO 2629 TCBPRUDH EQU X'EO* 
0001 2630 TCBPRUDM EQU X'DI' 


2631 * USE TCBPRUDN FOR THE SVCPRIQ (CHAP) SVC. 
2632 * TCBPRIOR WILL BE TCBPRCNV AND BIT TCBUDMPR WILL BE SET IN TCBBAT. 


0000 2633 TCBPRCNV EQU  X'DO' 
00CO 2634 TCBPRBCH EQU  X'CO' 


. THIS TASK IS BEING CHECKPOINTED = 


. EXTENDED TRACE ACTIVE 

. CLOSE HAS BEEN CALLED INDICATOR 

. KEYSORT HAS BEEN CALLED INDICATOR 
«SUSPEND FROM SYS OPERATOR PENDING 
. DATA MODE ESCAPE PENDING 

« INQUIRY PENDING 


QUEUEING PRIORITY 


INVALID PRIORITY(CAN NOT BE USED) 
COMMAND PROCESSOR PRIORITY 

SPOOL PRIORITY 

MRJE_ PRIORITY 

BCS PRIORITY 

3270 EMULATION PRIORITY 

EXTENDED TRACE PRIORITY 

BCS PRIORITY FOR 3270 I/H 

SDLC PRIORITY (PRIMARY) 

SOLC PRIORITY (SECONDARY) 

SNA 1 PRIORITY 

SNA 2 PRIORITY 

REBUILD PRIORITY 

SRJE PRIORITY 

SNUF SUBSYSTEM PRIORITY 

SNA PEER SUBSYSTEM PRIORITY 

CCP SUBSYSTEM PRIORITY 

CICS SUBSYSTEM PRIORITY 

IMS SUBSYSTEM PRIORITY 

BSCEL SUBSYSTEM PRIORITY 

INTRA SUBSYSTEM PRIORITY 
BSC_3270 PRIORITY 

LCA CONTROLLER CHECK ERROR ROUTINE 
SPE PRIORITY 

SOURCE ODFF PRIORITY *KEEP UNIQUE* 
SPE WAIT TASK PRIORITY 

USER DEFINED HIGH PRIORITY 
MEDIUM PRIORITY 


CONVERSATIONAL PRIORITY 
BATCH PRIORITY 


2635 * NORMAL (DEFAULT) USER TASK PRIORITY IS TCBPRCNV DYNANICALL’ 
2636 * CHANGED TO/FROM TCBPRBCH BE THE SYSTEM SUPERVISOR. 


OOBO 2637 TCBPRUDL EQU X'‘BO' 
0006 2639 TCBTTINE EQU  TCBPRIOR+1 


0007 2641 TCBQCNT EQU = TCBITINE+] 
0009 2642 TCBCYPLQ EQU TCBQCNT+2 


2643 *AAAAAAAAAAAAA THE ABOVE FIELDS ARE ORDER DEPENDENT AAAAAAAAAAAAAARAANA 


0008 2645 TCBPUSH EQU  TCBCIPLQ+2 
0000 2646 TCBCHAIN EQU  TCBPUSH+2 


986 * 
987 * 


— 0028 990 FIADKEYL EQU 


FREED BY ALLOCATE FOR NON-INDEXED FILES 


FIADEDFQ+1 


LOW PRIORITY 

TASK RESIDUAL TIME INTERVAL. 
QUIESCE COUNTER 

TASK EVENT CONTROL QUEUE HEADER 


PUSH ELEMENT Q-HEADER 


SYSTEM EXISTENCE QUEUE CHAINING FIELD 


B26 


988 RRERAKRKRRKARARKAAARRAKAAKARARAAKRERKA AAR RAW KRREKRRERKREKKERAK RAKE AERA K 


KEY LENGTH 


IN THE TCB, THE VALUE IN 


Vary (UL tf 
087C B8 40 27 
O87F F2 90 08 


0882 AC 01 10 19 
0886 AC 01 17 10 


16 


088A F2 87 0C 


088) 68 01 2C 16 
0891 68 02 2B 16 
0895 5E 01 2C 2C 
0899 7C 00 2C 


7 
1 
19] 089 BB 07 10 


*SVAT TCB ATTACH TRAN 
01 


ERR LOC OBJECT CODE 


10 


11 
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0876 7C 01 74 4250 VI TCBCNCNTC, TCB1), 1 SET NO CANCEL CNT 093 02194000 
0879 7C 01 75 4251 MVE TCBIQCNT(, TCB1),1 SET NO INQ. CNT 99093 02195000 
14 = 087C B8 40 27 4252 SCO00110 TBN RBSLEN+SATFLAG1(,RB2), SATCOMON SUPPORT COMMON ? — a9093 02200000 
O87F F2 90 0B 4253 JF 7000020 NO, DOES NOT SUPPORT Corti 02210000 

15} 0882 AC 01 10 19 4254 MVC RBSLEN*SATLOADC2, RB2), RBSLEN*SLODSTRT(, RBZ) SET LOAD 02220000 [15] 
0886 AC 01 17 1D 4255 MVC RBSLEN+S$LDDLINK(2, RBZ), RBSLEN*SATLOADC, RB2) SET LINK 02230000 
4256 * ADDRESS AND START CONTROL ADDRESS EQUAL 02240000 

16 4257 * 02250000 16} 
4258 * CALCULATE TCBBEGL VALUE FROM TASK'S LINK EDIT ADDRESS ______ 02260000 
4259 * 02270000 

17] 088A F2 87 0c 4260 J AT000030 ASSUME LINK EDIT OF 0 02290000 17 
088D 68 01 2C 16 4261 ATO00020 ZN = TCBBEGL+1(, TCB1), RBSLEN*$LDDLINK-1(,RB2) CONV. LINK a 22290000 

0891 68 02 2B 16 4262 MNZ —- TCBBEGL(, TCB1), RBSLEN*S$LOOL INK-1¢,RB2) TO TCBBEGL VALUE 02300000 jlo 
0895 5E 01 2C 2C 4263 ALC TCBBEGL+1(2, TCB1), TCBBEGL+1¢, TCB1) MAKE A HEX OFFSET 02310000 


0899 7C 00 2C 4264 ATO00030 MVI = TCBMSSI2¢, TCB1),0 RESET (SS12 TO 0 
RBSLEN*SATLOADC,RB2),X‘O7' ENSURE ON 8 BYTE BOUNDARY 


089C BB 07 10 4265 


#SVAT TCB ATTACH TRANSIENT 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 QOOF 2647 TCBROYQ EQU ‘TCBCHAIN*2 — SYSTEM READY QUEUE CHAINING FIELD 
OOOF 2648 TCBSWAPQ EQU  TCBROYQ SYSTEM READY QUEUE SPECIAL EQUATE 
0011 2649 TCBXNTQ EQU  TCBRDYQ+2 SYSTEM TRANSIENT QUEUE CHAINING FIELD 
03) 0013 2650 TCBRTUB EQU  TCBXNTQ+2 TUB ADORESS OF REQUESTOR 


2652 *VW THE FOLLOWING FIELDS ARE ORDER DEPENDENT VW 
04 0015 2653 TCBJCBA EQU TCBRTUB+2 ADDRESS OF TASK JOB CONTROL BLOCK 
0017 2654 TCBCRE EQU  TCBJCBa+2 CURRENT REQUEST BLOCK POINTER 
0018 2655 TCBARSE EQU TCBCRB+1 REGISTER SAVE ELEMENT CLEFT BYTE) 
0019 2656 TCBAXRI EQU TCBCRB+2 + CURRENT XR1 
0018 2657 TCBAKR2 EQU  TCBAXRI+2 « CURRENT XR2 
OO10 2658 TCBAARR EQU  TCBAXR2+2 « CURR 
OOIF 2659 TCBAIAR EQU 
0021 2660 TCBAPSAR EQU 
0023 2661 TCBARQ EQU TCBAPSMR+2  . CURRENT R AND Q BYTES 
07 0024 2662 TCB@INL1 EQU TCBARQ+] « INLINE PARM 1 
0025 2663 TCBAINL2 EQU TCBAIM1+1 —. INLINE PARM 2 
0026 2664 TCBAIN.3 EQU TCBRINL2+1  . INLINE PAR 3 
08 0027 2665 TCBAINL4 EQU TCBAINL3+1  . INLINE PARN 4 
0027 2666 TCBRSE EQU TCBCRB+16 CURRENT REGISTER SAVE ELEMENT 
2667 *AARAARARAAAAA THE ABOVE FIELDS ARE ORDER DEPENDENT AAAAAAAAAAAAAAAAADA 


09 
2669 *WWWWWWWWWWWWV THE FOLLOWING FIELOS ARE ORDER DEPENDENT VWWWWVWVWWVWWWW 
002A 2670 TCBTSSN EQU  TCBRSE+3 TASK DISK ADOR IN SWAP AREA. 
10 0028 2671 TCBBEGL EQU TCBTSSN+1 LOGICAL PROGRAM BEGIN ATR NUMBER. 
0028 2672 TCBECMGW EQU  TCBBEGL FOUR BYTE ECM FOR CP WSQS FAILURES 
002C 2673 TCBASSIZ EQU TCBBEGL+1 CURRENT SIZE OF MAIN STORE ALLOCATED. 
ll 0020 2674 TCBRGSIZ EQU TCBMSSIZ+1 TASK REGION SIZE (MAX. TCBMSSIZ) 
2675 *AAAAARAAAAAAA THE ABOVE FIELDS ARE ORDER DEPENDENT ARAAAAAAAAAAAAAARAA 


12 002F 2677 TCBSPOOL EQU TCBRGSIZ+2 SPOOL WORK AREA ADDR 

O02F 2678 TCBECMER EQU  TCBSPOOL SPECIAL ECM FOR CP ERRORS. 

002F 2679 TCBAQHDR EQU TCBSPOOL USED AS SPECIAL SYSTEN Q HEADER. 
13 O04F 2680 TCBATRS EQU TCBSPOOL+32 ATR STACK SAVE AREA 
0051 2681 TCBTTC EQU  TCBATRS+2 TASK-TASK COMMUNICATIONS AREA 
0053 2662 TCBTWA =EQU  TCBTTC+2 DISK ADDRESS OF TASK WORK AREA 
0055 2683 TCBWSWA EQU TCBTWA+2 DISK ADORESS OF SESSION WORK AREA 
0057 2684 TCBLOREL EQU  TCBWSWA+2 TASK RELOCATION FACTOR FOR LOADER 
0057 2685 TCBMIC §EQU  TCBLDREL ABTERM ERR AIC 
005A 2686 TCBLOISK EQU TCBLOREL+3 © TASK ABSOLUTE DISK ADDR FOR LOADER 
0059 2687 TCBSIAR EQU  TCBLDISK-1  SAVE_IAR ON ABTERM 
0058 2688 TCBINVCT EQU TCBLDISK+1 | TASK INVITE COUNT 
16 005D 2689 TCBASGNQ EQU TCBINVCT+2 ASSIGNED ELEMENTS QUEUE 

OO5F 2690 TCBEXIT EQU  TCBASGNQ+2 ASYNCHRONOUS EXIT ADORESS. 

OO5SF 2691 TCBAFAIL EQU TCBEXIT CP ASSIGN FAILURE INDICTOR BYTES 
7 0067 2692 TCBTQE EQU TCBEXIT+8 TIMER QUEUE ELEMENT. 

0068 2693 TCBSQBCT EQU  TCBTQE+1 COUNT OF SECTOR QUEUE REQUESTS 

0069 2694 TCBLCKNK EQU TCBSQBCT+1 © COUNT OF LOCK REQUESTS 


18 0080 2695 TCBLCKDI EQU X'80' INTERLOCK FOR DEDICATION 
0040 2696 TCBLCKSI EQU  X‘40' INTERLOCK FOR SCHEDULER 
0020 2697 TCBLCKVI EQU X‘20' INTERLOCK FOR VTOC 

19 0010 2698 TCBLCKSI EQU X‘10" INTERLOCK FOR FORMAT 5 
0008 2699 TCBLCKPI EQU  X'‘08" INTERLOCK FOR PROC NANE 
0004 2700 TCBLCKHI EQU X'‘04' INTERLOCK FOR HISTORY FILE 

0 
B27 


#SVAT TCB ATTACH TRANSIENT PAGE 24 09/11/81 12/08/81 21:28 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


OO1E 1039 FIFLAG §=EQU FIADVTOC+] = 1-BYTE FLAG INDICATING THAT RESTART OF 
1040 ® SPACK IS REQUIRED FOR THIS FILE. 
OOFF 1041 FIRESTRT EQU  X‘FF' SWITCH VALUE THAT IS PLACED IN FIFLAG 


ERR LOC OBJECT CODE 


PAGE 60 VO9/11/81 12/08/81 21:28 or TCB ATTACH TRANSIENT 
0 


Ao 


Ss 


88 gs gssgsssissss 8! 8 IS8S8i88si88sisssss isssisssissaeisssis si gs 


ALC TCBTSSNC1, TCB1), TCBTSSNC, TCB1) MULTIPLY BY 2 02670000 


90093 02193000 O8E3 5E 00 2A 2A 4298 
3] O87 5E 00 2A 2A 4299 ALC — TCBTSSNC1, TCB1), TCBTSSNC, TCB1) MULTIPLY BY 4 02680000 | 1 
90093 02194000 O8EB 5E 00 2A 2A 4300 ALC _TCBTSSNC1, TCB1), TCBTSSNC, TCB1) MULTIPLY BY 8 02690000 
90093 02195000 OSEF 5C 00 2D 2C 4301 NC TCBRGS12(1, TCB1), TCBMGSIZ(, TCB1) MOVE IN REGION SIZE 02890000 
2 aa093 02200000 14 4302 * 02900000 
RT COrt 02210000 4303 * INIT. TASK'S TIC IN CASE IT DOES TASK TO TASK COMMUNICATION. ALSO 02910000 
4304 * ALLOW NEW REQUESTOR ATTACHES IN CASE OF A MRT 02920000 
T LOAD 02220000 4305 * 02930000 | 15 
T LINK 02230000 O8F3 7C AD 50 4306 MMVI TCBTTC-1¢, TCB1), ECMNSKIP*ECITTC INITIALIZE TTC VALUE 02940000 
ae 02240000 O8F6 7A 40 6E 4307 SBN TCBSTAT4(, TCB1), TCBATTCH ALLOW MRT ATTACH 02950000 
02250000 {16} 
02260000 


02270000 
FO 02280000 17 


Bag riton 
aac 
ggg 
cu 


02320000 
YOUNDARY 02330000 19 
02340000 
LO 02350000 
20 
C28 
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01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
FLD 0 0002 2701 TCBLCKSP EQU x‘02' INTERLOCK FOR SPOOL FILE 0 
ATE 2702 * EQU X01" INTERLOCK FOR RESERVED 
G FIELD 
03 006A 2704 TCBSSTID EQU TCBLCKMK+1 SHARED STORAGE TASK IDSK BITS 03} 
0068 2706 TCBTSKID EQU  TCBSSTID*1 =~ TASK ID 
OCk 04 
0E4 2708 TCBIDACT EQU X‘E4" AUTOCALL TASK 1D 6 
i) 00E5 2709 TCBIDITH EQU  X“ES" BSC IH FOR 3270 EMULATION TASK 1D 
O0E6 2710 TCBIDBTS EQU X"EG" BSC 3270 SUBSYSTEM TASK ID 05} 


OOE7 2711 TCBIDSNE EQU X‘E7' 
OOE8 2712 TCBIDGCE EQU X‘ES' 
00E9 2713 TCBIDSNF EQU X'E9" 
OOEA 2714 TCBIDPER EQU X‘EA' 
QOEB 2715 TCBIDCCP EQU 
OOEC 2716 TCBIOCIC EQU 
OOED 2717 TCBIDIMS EQU 
OOEE 2718 TCBIDBEL EQU X‘EE' 
OOEF 2719 TCBIDINT EQU X"EF' 


SNA 3270 SUBSYSTEM TASK ID 

MLCA CONTROLLER CHECK ERROR TASK ID 

SNUF SUBSYSTEM TASK [0 06 
SNA PEER SUBSYSTEM TASK 10 

CCP SUBSYSTEM TASK ID 

CICS SUBSYSTEM TASK ID 

IMS SUBSYSTEM TASK ID 

BSCEL SUBSYSTEM TASK ID 

INTRA SUBSYSTEM TASK 10 


OOFO 2720 TCBIOCP EQU X'FO' 


YAARADARARDA 2721 * EQ X'Fi* 
OOF2 2722 TCBIDJQ EQU X'F2' 
WAAL OOF3 2723 TCBIDSFS EQU  X'F3° 
OOF4 2724 TCBIOMR EQU X"F4‘ 
R. 10 OOFS 2725 TCBIDBSC EQU X'F5‘ 
JRES OOF6 2726 TCBIDSDP EQU X‘F6' 
CATED. OOFB 2727 TCRIDSOS EQU X'FB' 
r) OOF? 2728 TCBIDSN1 EQU X‘F7' 
YAAAAAAAAAAA OOF8 2729 TCBIDSNR EQU  X‘F8‘ 
OOF9 2730 TCBIDBLO EQU X‘F9" 
OOFA 2731 TCBIDSRJ EQU X‘FA‘ 
OOFD 2732 TCBIDIBS EQU X‘FD' 
t. OOFC 2733 TCBIOS44 EQU  X‘FC* 


13 OOFE 2734 TCBIDGA EQU X‘FE' 
QOEO 2735 TCBMAXID EQU  X'EO' 


0060 2737 TCBPRIQ EQU TCBTSKID+2 


COMMAND PROCESSOR TASK ID 


RESERVED 
JOB QUEUE TASK ID 09 
SNA FINANCE SUPPORT ID 
PRJE TASK ID 
BSC TASK ID 10 


SOLC_TASK ID 


REBUILD TASK ID 


SRJE TASK ID 

INTERACTIVE BSC TASK ID 

SNA 44 TASK ID 

GAIGI TASK ID 13 
MAXIMUM USER [0 


TCB PRIORITY QUEUE CHAINING FIELD 


m 

> 

— 
a 


IER 
OO6E 2739 TCBSTAT4 EQU TCBPRIQ+1 
WER 1 
0080 2741 TCBSHORC EQU  X‘80' 
0040 2742 TCBATTCH EQU X*40° 
16 0020 2743 TCBSYSTM EQU X‘20° 
0010 2744 TCBABTRM EQU X10" 
S 0008 2/45 TCB22RCS EQU X'03' 
17 0004 2746 TCBCNLPD EQU X'04" 
0004 2747 TCBTWACL EQU X'04* 
0002 2748 TCBHOMPT EQU = x‘02" 
18) 0001 2749 TCBDMPPD EQU X‘"1* 
OO6F 275] TCBSTATS EQU TCBSTAT4+1 
19 


0080 2753 TCBTHBIT EQU  X'80" 
0040 2754 TCBCN2PD EQU X‘40° 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


RESTART OF 0; 1050 * HEADR 


ctic 


firs 6) fern | O6cmlClCUV AK 


ADDITIONAL TCB STATUS 


15 
SHUTOOUN RETURN CODE DELIVERED 

ATTACH YES 

SYSTEM TASK - NOT SUSPENDABLE 16 


TASK [S_IN ABNORMAL TERMINATION 

RECURSIVE TERMINATION DUE TO SWC 22 

CANCEL PENDING YW 
C.P. CALLED FOR TWA RECOVERY 

ERROR ON DUMP - PARTIAL DUMP TAKEN 

DUMP PENDING ON CANCEL 18} 


STATUS BYTE 5 


TASK HAS BEEN IN TERMINATION 
2 OPTION CANCEL PENDING 


B28 
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ABR) OOICIEC UCAMCD 18401 iit 


O96? OL WW ID 04 
0968 BD 00 00 
O96E F2 01 04 


0971 5E 00 10 1C 
0975 5D 00 19 10 
0979 F2 02 04 


O97C 5C 00 19 10 
0980 BD 00 00 
0983 BS 02 01 
0986 CO 01 095E 


098A C2 02 0000 
O98E BS 80 77 
0991 F2 10 OF 


0994 6E 00 1C 2D 
0998 5D 00 19 1C 
099C F2 02 04 


O99F SC 00 19 IC 
09A3 CO 87 090A 


C29 
PAGE 61 VO9/11/61 12/08/01 21:28] [*SVAT TCB ATTACH TRANSIE PAGE 62 VO9/11/81 12/08/81 21:28 e #SvAT TCB ATTACH T 
0l 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
0020 2755 TCBCN3PD EQU X'20" 3 OPTION CANCEL PENDING 0 
) 0010 2756 TCBMABTN EQU  X‘10" TASK IS IN ABNORMAL TERMINATION 
0008 2757 TCBMSAFL EQU  X‘08" 2 OPTION-FLUSH PROC 
1S 0004 2758 TCBMSTAB EQU X's" 2 OPTION-CONTINUE PROC 0 
0002 2759 TCBAEOEO EQU  X'02" TAKE ASYNC EXIT ON ERROR ONLY 
0001 2760 TCBOKO  EQU- X‘Oi" DISKETTE ORIENT HAS BEEN PROCESSED 
() Ai 
6 0070 2762 TCBAWSCT EQU TCBSTATS+1 ALLOCATED WORK STATION COUNT 
ASK 1D 0070 2763 TCBCATN EQU  TCBALSCT CURRENT ACTIVE TERMINAL COUNT 
0071 2764 TCBCAT EQU TCBAWSCT+1 — CURRENT ACTIVE TERMINAL VARIABLE 05] 
0072 2765 TCBMRTMX EQU _TCBCAT+1 MRT MAXIMUM REQUESTORS ALLOWED 
TASK 10 0073 2766 TCBNSCNT EQU  TCBARTNX+1 NOT SWAPPABLE COUNTER 


0074 2767 TCBCNCNT EQU TCBNSCNT+1 © NOT CANCELABLE COUNT 06 
0075 2769 TCBIQCNT EQU TCBCNCNT+1 = NOT INQUIRABLE COUNT 


0076 2771 TCBARQCT EQU  TCBIQCNT+1 ACTIVE REQUESTOR COUNT 
0077 2772 TCBSTAT6 EQU = TCBARQCT+1 © STATUS BYTE 6 


00680 2774 TCBATNS EQU  X‘80° TASK ATTACHED NON-SWAPPABLE 

0040 2775 TCBDSKTR EQU X'‘40" DISKETTE CANCEL RECURSION INDICATOR 

0020 2776 TCBOUMP EQU X‘20' DUMP SHOULD BE TAKEN INDICATOR 09 

0010 2777 TCBSFILK EQU X‘10° SECURITY-INITIATOR INTERLOCK. 

0008 2778 TCBNDUP EQU = X‘08" NO DUMP WAS TAKEN FOR ERROR CONDITION 

0004 2779 TCBWSILK EQU X'04" WORKSTATION QUEUE SPACE INTERLOCK 10 

0002 2780 TCBSNARQ EQU X‘02' SNA REQUIRED 

0001 2781 TCBDEDO EQU xX‘Ol' DEDICATION OVERRIDE INDICATOR. n 

0078 2783 TCBBAT EQU TCBSTAT6*1 —_ BATCH ACTIVE TIMEOUT COUNT 

0080 2784 TCBUDMPR EQU = X‘80' PEDIUM PRIORITY (SEE TCBPRIORD 

0005 2785 BATCOUNT EQU 5 NUMBER OF TIMEOUTS ALLOWED. d| 
2786 * ONLY BITS 1-7 APPLY TO BATCOUNT. 


0079 2788 TCBSUSPS EQU TCBBAT+1 SUSPENSION STATUS INDICATOR 3 


0080 2790 TCBSPUNK EQU X80’ TASK SUSPENDED DUE TO UNLOCK 
FIELD 0040 2791 TCBSDTSO EQU X‘40' TASK SUSPENDED DUE TO SYSTEM OPERATOR 14 
0020 2792 TCBINQSP EQ X‘20° TASK SUSPENDED DUE TO INQUIRY 
0010 2793 TCBSPLSP EQU  X‘10' TASK SUSPENDED DUE TO SPOOL SUS/RES 
0002 2794 TCBSDTAC EQU X‘02' TASK SUSPENDED DUE TO ADDRESS COMPARE 1g 
RED 0001 2795 TCBWIOSP EQU  X'O1' TASK SUSPENDED DUE TO WS 1/0 ERROR 
LE OO7A 2797 TCBWAFLG EQU TCBSUSPS+1 — WSWA INITIALIZATION STATUS. 16 
TION 
0 SVC 22 2799 * SEE TUB MACRO (BYTE TUBHAFLG) FOR BIT DEFINITIONS WITHIN TCBWAFLG. 1 
Y 0O7C 2801 TCBSMFPT EQU  TCBWAFLG+2 SMF POINTER 
P TAKEN 2802 * THE FOLLOWING EQUATE [5 USED TO SET ON THE X‘80‘ BIT IN THE HIGH 


2803 * BYTE OF THE SMF POINTER FIELD. CURRENTLY THIS FIELD IS USED AS 13 
2804 * A SWAP-IN COUNTER INSTEAD OF AN ADDRESS FIELD. 

0080 2805 TCBSHFON EQU  K"80" SPE HAS PROCESSED THIS TCB 
2806 * 19 


0070 2808 TCBX EQU  TCBSMFPT+1 = AMDUNT OF TASK SWAPPED OUT 


B29 


#SVAT CB ATTACH TRANSIENT PAGE 26 09/11/81 12/08/81 21:28 


PAGE §=25 09/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


PAGE 62 


EL PENDING 

NORMAL TERMINATION 

H PROC 

TINUE PROC 

IT ON ERROR ONLY 

NT HAS BEEN PROCESSED 


K STATION COUNT 

fe TERMINAL COUNT 

E TERMINAL VARIABLE 
EQUESTORS ALLOWED 
COUNTER 

E COUNT 


E COUNT 
TOR COUNT 


_NON-SWAPPABLE 

El. RECURSION INDICATOR 
E TAKEN INDICATOR 
TATOR_INTERLOCK. 

AKEN FOR ERROR CONDITION 
UEUE SPACE INTERLOCK 


ERRIDE INDICATOR. 


TIMEOUT COUNT 
TY (SEE TCBPRIORD 
FOUTS ALLOWED. 


ATUS INDICATOR 


D DUE TO UNLOCK 

D DUE TO SYSTEM OPERATOR 
D DUE TO INQUIRY 

D DUE TO SPOOL SUS/RES 
) DUE TO ADDRESS COMPARE 
) DUE TO WS 1/0 ERROR 


ZATION STATUS. 


FINITIONS WITHIN TCBWAFLG. 


f€ X°80° BIT IN THE HIGH 
THIS FIELD IS USED AS 
TELO. 

SED THIS TCB 


C SWAPPED OUT 


PAGE 


TIMER TQE QUEUE 
THER ACE QUEUE 
SK EXECUTING 


26 = VO9/11/81 12/08/81 21:28 


tJ) 


0971 5E 00 1D 1C ALC TCB@ARR(1, TCB1), TCBAARR-1(,1CB1) ADD IN SIZE 
0975 5D 00 19 10 4366 ATOOO130 CLC} TCB@XR1C1,1CB1), TCBAARP’ = 31) SIZE > MAX? 329 
0979 F2 02 04 4367 JNU AT000135 NO, NOT GREATER 03300000 


30093 


o97C 5C 00 19 10 4368 MVC TCBAKRIC1,TCB1>, TCBAARRC, TCB1) MOVE IN SIZE aa093 
0980 BD 00 00 4369 ATOOO135 CLI PUSHOCH-1¢, PSH2),0 ANY MORE ON QUEUE ? 03320000 
0983 B5 02 01 4370 L PUSHOCH(, PSH2), PSH2 POINT TO NEXT 03330000 
0986 CO 01 095E 4371 BNE = AT000125 YES CHECK NEXT 3 


15 


16 


098A C2 02 0000 4372 ATOOO140 LA #, TCB2 RELOAD TCB ADDRESS —_aa093 
O98E BS 80 77 4373 ATOOO150 TBN TCBSTAT6(, TCB2), TCBATNS TASK ATTACHED NON-SUAP? 03360000 


17 0991 F2 10 OF 4374 JT ~—_-ATO00160 YES, DON'T FIGURE IN 03370000 


0994 6E 00 1C 2D 4375 ALC = TCBAARR-1(1, 1CB1), TCBRGSI2Z¢, TCB2) ADD IN REG SIZE aa093 
0998 5D 00 19 IC 4376 CLC = TCBAXR1(1, TCB1), TCB@ARR-1¢,TCB1) SIZE > MAX ? aa093 03380000 
099C F2 02 04 4377 JNL___AT000160 NO, NOT GREATER THAN faa093 03390000 


18 


O99F 5C 00 19 IC 
09A3 CO _87 090A 


4378 (WC 
4379 ATOOO160 B 


TCBAXR1(1, TCB1), TCBARR-1¢,TCB1) MAKE NEW MAX 
AT000100 CHECK NEXT TCB 


C30 
09/11/81 12/08/81 21:28 #SVAT TCB ATTACH TRASIENT PAGE 63 VO9/11/81 12/08/81 21:28 1 #SVAT 
01 é 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC 


02 
OO7E 2810 TCBSTAT? EQU  TCBX+1 TCB STATUS BYTE 7 
0. 


2811 * 
0080 2812 TCBSPWTR EQU X"80' SPOOL WRITER ID 
0040 2813 TCBSPLRS EQU  X'40' SPOOL_ TERMINATION 
04 0080 2815 TCBLEN EQU TCBSTAT7+2 LENGTH OF TCB + EXPANSION. 


2816 *** END OF EXPANSION ** 


1155 *** cND OF EXPANSION ** 


Vath Lee! STP eanantalithall 


CTOR [S OK an093 
D IN SIZE 0093 
E > MAX? 2093 
T GREATER 

E IN SI2E aa093 
RE ON QUEUE ? 

TO NEXT 

ECK NEXT 

TCB ADDRESS —9a093 
TTACHED NON-SWAP? 
ON'T FIGURE IN 


DD IN REG SIZE aa093 
ZE > MAX ? 80095 
T GREATER THAN [093 


CE NEW MAX 
NEXT TCB 


aa093 


PAGE 63 VO9/11/81 12/08/81 21:28 


WS ION. 


PAGE 


c 


03288000 
03290000 
03300000 


03310000 
03320000 
03330000 
03340000 


03350000 
03360000 
03370000 


03375000 
03380000 
03390000 


03400000 
03410000 


27) VO9/11/81 12/08/81 21:28 | |#SVAT TCB ATTACH TRANSIENT 


fe ee Res ae 


4 =©O9CD 5D 00 1B 19 
09D1 F2 02 04 


5) 0904 5C 00 1B 19 


0908 5D 00 1A 20 
6] 090C F2 02 05 


O90F CO 87 0E12 


09E3 01 

0964 75 02 17 
3} = O9E7 BS 02 IE 

O9EA F2 10 OF 


wwe Miwwwewes eae 


4411 * COMPARE SCAMAXRG WITH THE MAXIMUM ACTIVE SWAPPABLE REGION 
IF THIS TASK IS NOT GREATER THAN THE MAX ACTIVE SWAPPABLE TASK aaz90 
4413 * THEN JUMP. OTHERWISE, MAKE THIS TASK THE MAX ACTIVE SWAP TASK @a290 


4412 * 


4414 ATOO0190 CLC} — TCBAXR2(1, TCB1), TCBAXR1¢, TCB1) an290 03703000 | 1 
4415 JNL__ATO00195 aa290 03704000 
4416 (VC TCBAXR2(1, TCB1), TCBAXR1¢, TCB1) i290 03705000 | 1 
4417 * NOW CHECK IF THERE IS ENOUGH STORAGE AVAILABLE TO FIRE UP TASK aa290 03706000 
4418 ATOOO195 CLC = TCBAXR2-1¢1, TCB1), TCBRGSIZ¢, TCB1) aai290 03707000 
4419 JNL  ATO00205 OKAY-JUMP, OTHERWISE ERROR aa290 03710000 | 1 
4420 AT000200 B ATERROR GO ISSUE ERROR aa290 03720000 
O9E3 4421 DC__ALICSATERRO1) NOT ENOUGH SWAPPABLE STOR. 03730000 
4422 AT000205 L TCBCRB(, TCB1), RBZ XR2-> CURRENT RB aai290 03740000 
4423 TBN —RBSLEN*+SATFLAG(, RBZ), SATNSWAP IS TASK TO BE NON-SWAP? 03750000 | 1 
4424 JT___-ATo00210 YES, IT IS TO BE aa290 03760000 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


W 


DNR NE EN Bg BOS Sg ENR EM VN gg EES TO IM le en 


re 


290 


rind cabal a aicatace 


OAID 70 07 | 
OA20 F2 02 ¢ 


OA23 CO 87 ¢ 


C31 
PASE 64 VOS/Ii781 12/08/81 21:28] [ASVAT CB AT 
1 
ERR LOC OBJEC 
2818 * $TRB_ V-EQU 00790000 | 02 
2819 * TIMER REQUEST BLOCK 
2820 RRAERAKRARATRAARRRAARAARARRKRERRRARRRRAKKKLAKRE RRA KAA HKKKAAKKAAARERAKRER. 
221*00 -* 01 * 02 o7* 03 
2622 * FLGL* FLEZ* TINE * 
2823 x x x * 
2824 RARAAKRAARAAKAARARLRRRAAARRARAAARARRAARKRKR RR RKRERERERRRR KK RERAERRRERRIR, (4 
2825 * 08 op * 
2826 * DATE * 
2827 * ® a 
2828 RRKKRERAAARKAAARARAAARKRAARAKRARAERRARAAAARKKARRRARKEK 
0000 2830 STREFLGI EQU 0 FLAG BYTE ONE. 06 
O01 2832 STREFLG2 EQU  STROFLGI*1 FLAG BYTE TW. 
07; 
0007 2834 STRETINE EQU  STRBFLGZ*6 TINE FIELD. 


0000 2836 STRBDATE EQU STRBTINE+6 DATE FIELD. 


OOOE 2838 STRBLEN EQU  STRBDATE+1 


2840 *** END OF EXPANSION ** 


rt 
pond 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


B31 


LENGTH OF TRB. 


ms 
= 


NS 


oe 


— 


eo 
a! 


ed 
, 


PAGE 28 VO9/11/81 12/08/81 21:28 


PAGE 64 VO9/11/81 12/08/81 21:28 


RERKKRRERRRK 
07 * 

x 

n 
RARERAAAAARK 


PAGE 28 09/11/81 12/08/81 21:28 


00790000 


OA17 7D 05 1A 
OALA F2 02 OR 4452 JNL__ATO000240 


OAID 70 07 1A 
OA20 F2 02 05 AT000240 


OA23 CO 87 0E12 


#SVAT TCB ATTACH TRANSIENT 
1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
0 2842 * TQE 


4451 ATO00225 CLI  TCB@XR2-1(, TCB1), FIVE 


4453 AT000230 CLI TCBAXR2-1(, TCB1), SEVEN 


10K SWAPPABLE AVAIL.? a@290 
YES, ALLOW ATTACH 


NO, THEREFORE MUST HAVaa290 
AT LEAST 14K SWAPPABLE 


ERROR - AT LEAST 14K 


PAGE 65 09/11/81 12/08/81 21:28 


00810000 | 92} 


2843 * DATE LAST CHANGED: 03/10/77 JHP 


2844 RRRRARRARAARAERKARARARKRAARAKAKAAKRAKREKRRRARRRLRKKAKKRREREK KERALA KER ERIR 


2851 * 
2852 *— TQEFLGI 
2853 * 


2854 RRKAARAAAARAERKAE = ARARAAARKKRARAKARARERAARKARERERERAERAAARRARAKAAAKARAK 


0080 2862 TQEBACE EQU X‘80° 
0040 2863 TQEWAIT EQU  X'40° 
0020 2864 TQERSVD1 EQU X‘20° 
0010 2865 TQEREAL EQU xX‘10° 
0008 2866 TQEDEC EQ X'0S' 
0004 2867 TQEBIN EQU X'04" 
at 0002 2868 TQAETU = EQUX‘02" 
0001 2869 TQETOD EQ X‘01' 


0001 2871 TQECC = EQU  TQEFLGI+1 


0080 2873 TQEACT EQU  X‘80' 
0040 2874 TQECOMP EQU X*40' 
14 2875 * X*30" 
0000 2876 TQETCB EQ X‘00' 
0001 2877 TQEDSP = EQU X01" 
ib) 0002 2878 TQEASR EQU  X‘02° 
0003 2879 TQEPN = EQU.X‘03" 
0004 2880 TQESDLOG EQU  X‘TA” 


2881 * ¥'05* - X°OF* 
0004 2882 TQETYPL EQ. FSPLOG 


INDICATES MULTIPLE WAIT. 
INDICATES USER WAIT. 


RESERVED 


INDICATES REAL TIMING. 

INDICATES DECIMAL. 

INDICATES BINARY. 

INDICATES TIMER UNITS. i 
INDICATES TIME OF DAY. 


TQE COMPLETION CODE/TYPE FIELD. 


INDICATES THE TQE IS ACTIVE. 
INDICATES THE TQE 1S COMPLETE. 
RESERVED. 
INDICATES USER TQE CIN TCB.) 
INDICATES DISPATCHER TQE. 
INDICATES ASSIGN/FREE RECOVERY TQE. ig 
INDICATES MIDNIGHT TQE. 
INDICATES STATISTICAL DATA LOG TOE. 
NOT USED. 


LAST VALID TQE TYPE VALUE. 
TYPE MASK. 


0005 2885 TQETOX EQU TQECC+4 


18 2886 * 


19 0007 2833 TOQEFLNK EQU  TQETOX+2 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


TIME OF EXPIRATION. 
NOTE: TQETOX IN ALLAYS IN TIMER UNITS. 19) 


CHAIN TO NEXT TIMER QUEUE ELEMENT. 19 


*SVAT CB ATTACH TRAV 
1 


ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE 


Pah ea ta hae cr ER Mamata 


OA79 BD 00 OC 
OATC BS 02 OD 
OATF COO OAT 


OA83 4C 00 6B 0273 


OAS 36 01 ures 
OA9S F2 01 05 


OASS CO 87 OF12 


OASC 05 \, 
OAME SF LL 11 
OAAL B4 01 33 
QAAG BS 02 17 
OAA7 7C 10 11 


C33 


GE 65 VO9/11/81 12/08/81 21:28 01 *SVAT TCB ATTACH TRANSIENT PAGE 66 = VO9/11/81 12/08/81 21:28 ol "SVAT TCB ATTACH TRANS! 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


00810000 0008 2807 TQELEN EQU  TQEFLNK+! LENGTH OF THE TQE. 
28°1 *** END OF EXPANSION ** 


RARRKRARKRR 
* 
x 
x 
RARRARKRKAK 


RARRAEKRRK 


TOK------* 
oi 
RAKERAARKR 
® 
on miner me meee’ x 
> x 
x 
RERAARRRRK 
x. 
x. 


PAGE 29 09/11/81 12/08/81 21:28 SSVAT TCB ATTACH TRANSIENT PAGE 30 VO? 11/81 12/08/81 71:28 @SVAT TCB ATTACH TRA 
or 01 


SS TW eee ey a Seine fe wy Lt; Bt ef 4 spr ate Se CE eee ne ese r ee 


4501 MVC __TCBTSKIDC1, TCB1), NUACPTCB+TCBNSCNT MOVE IN TASK ID 4546 
4502 ATOOD242 LA = 0¢, TCB1), TCB2 OAF? BS 02 22 4547 
4503 * OAFA B4 01 24 ded 
4504 * ASSIGN AN RB TO START THE NEW TASK OAFD 6C 01 15 32 #549 
OBO] 6C 01 55 22 
ASSGN LEN-RBSTLEN ASSIGN AN RB 0805 BY CO 03 


SVC__SVCASSGN,O —_ ASSIGN REQUEST 0B08 BS 20 39 
DC = AL2(RBSTLEN)D ASSIGN LENGTH 
DOC = AL1€1+0) ATTRIBUTES 


4510 *** END OF EXPANSION ** 


OADT 36 01 ATZERO, RB1 ASSIGN SUCCESSFUL ? 0B11 B5 01 24 
OA9S F2 01 05 AT000243 YES, SUCCESSFUL 0814 75 08 13 4556 
0617 7C 04 13 4557 


OA9S CO 87 0E12 : ATERROR GO TO ERROR ROUTINE OBLA E2 02 25 4558 


OASC 05 ALI CSATERROS) ERROR CODE 5 OB1D F4 01 04 

OAD SF 11 11 11 4515 AT000243 SLC RBSLEN-1CRBSLEN, RBI), RBSLEN-1(,RB1) ZERO OUT RB 0820 33 0820 4561 
OPA] B4 01 33 4516 ST — ATSVRBAX, TCB2), RBI SAVE RB ADDRESS #582 
OAA4 Bo 02 17 4517 L TCBCRB(, TCB2), RBZ XR2-> CURRENT RB 0821 74 08 13 4563 


4518 fT RBSINL4(, RB1D, XFERCTL SET UP XFER CONTROL 0824 F2 87 £4 
C34 
Vo9/11/81 12/08/81 21:28 4#SVAT TCB ATTACH TRANSIENT PAGE 67 VO9/11/81 12/08/81 21:28 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 

02 2893 * TUB 00830000 
2894 RARAERKARK) RARKKKKRAKRATRAKRAAKRARKKRRARKAAKRKAAKKKAKRERAKARERRRER IR, 
2895 . x 

0 2896 * TERMINAL UNIT BLOCK FOR TERMINALS ® 
2897 * ® 29% 
2898 RERRRAAAKCREKRRARARAAAKRARAA AAR RAKKK RAE RKKAAK KAKA KREKRRERKARAAAAIR 

04 2899* 00 *01 *02 *03 *08 *05 *06 07 * 
2900 * ECM * COMPL * FLAG *CYND * CMD * UNITa* DATAa = * 
2901 RRAERKKAAARAKRKAKKRRAAERAARARAARKAARKAKARAKKR KKK ARE REAR IR 

05 2902 * 08 09 * 0A OF * 
2903 * COUNT * SENSE BYTES * 
2904 RAKRARKARAARIF KKAAAKKRAARARRKRRARRRRERK KKK AR AAA AAALARERKCKERAKE ARK 

06) 2905 * 10 W* 12 3*%14 *15 *16 *17 * 


2906 * TCBa * CHAIN * DEVID * QHDR * ERPCT * ERBFG * 

290] ®RERERRRRARARRRARARARRRRAARARARARRARRARARARA RAR ERR RRERARRRRR ERE 
07 2908 * 18 = 19 1A* 1B OIC WT 1E *1F *% 0 

2909 * ERAID * fic * opts * SIOCT * ERRCT * WS- * 

210 R*RRRRRARARRARAAAAARAARARARAARHA RARRARA RRA ARERRARAT RAR ARRRRRRRRRR 
03 211% 20 * 21 22 * 23 at 8 82 F 
2912" 1D ® SHA = CB * AID * CPAID * RESVD * 
2913 ®AAARRERARARRARRRRARARERRARARARARRARARA RRA ARARRRRERRA RAR RRR RRRER 
2914 * 28 2F * 
2915 * USER ID = 
2916 RARRRRRARARARARARARARAAAARAR ARR RARRARRARA AAR RRR ARR RRARRR AR RRR RRR 
2917 * 3000 * 31 32 * 33 R35 30% OT 
2918 * OPSTS * JCBa * —_TUBTUB * ATTRI * ATTR2 * ATTR3 * 
2919 *®RRRRRRREERARAAARARAARARRAAAARARARAR RK AR AR AR RA RAR RARER RRR ARERR, 
ll 2920* 38 *39 *38 * 3B x * 3D ee 

2921 * ATTR4 * ATTRS * ATTRO * CTSAV = APRNT * (SECT * 
2922 XARRRRRRARRARRARRRARARRRRERAARRERRARARARAR AAA RER ERR RE RRR RRRERRRER 
2923 * 40 41 * 42 Brae * 4H 8H 4i* 
2924 * ASGHL x PSGNe * ATTR7 * ATTRE * HELPA . 
2925 AERRAARKT KRARRARAARNPRARARARRARRARAART AAA RAARAARAR RAR RARER RARER 
2926* 48 8 =* 49 MB 8H FD OE af * 
2927 * ATTRO * RFSS * REN * RFCSS * RFDSP * 
2923 RRRARRRRARARARARARARH RRRERRAREN RARRANARARERRRAR SERRE RRRRR RRA, 
2929" 50 8 * 51 Li 53* 54*%55 * 56 7 * 
* ATTRA * MSGID * TUBDMATX 


sua ealwaliwinlaa dy wigeulyssy 


2934 RRARARARRERRARRARAARERAARARERRARARERERAARAR AAR RA RARE RA ARE RARER 
16 1 
18 it 


19 1 


) VOF-11/81 12/08/81 21:28 #SVAT CB ATTACH TRANSIENT PAGE = 31 «VO9/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


00586000 | 0: 0015 1268 IWMTCBAD EQU IWUCBAD+2 CB ADDRESS 
0017 1269 TWNTUBAD EQU IWMTCBAD+2 TUB ADDRESS 


ee in 


OAF? B5 02 22 
OAFA B4 01 24 
OAFD 6C 01 15 32 
0B01 6C 01 55 22 
0805 B9 CO 03 
0B08 BS 20 39 
OBOB F2 90 19 


OBOE 84 02 2E 
0B11 BS 01 24 
0B14 75 08 13 
0B17 7C 04 13 
OBIA E2 02 25 


0810 F4 01 04 
0820 33 


B21 74 08 13 
0824 F2 37 £4 


/81 12/08/81 21:28 


4544 * A TUB/SUB ASSOCIATED WITH THE ATTACH. INITIALIZE COMMON FIELDS 


#SVAT TCB ATTACH TRANSIENT 


4545 * IN TUB/SUB AND TCR. 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


5% x 
4547 ATOOO247 ( RBSLEN*SATTUBOC, RBZ), TUR? KRD-> REQUESTING SUB /TUB = 
48 ST — TUBTOBC, TUB2), TO? STORE TCR ADUR. 
4549 MWC TCBCBAC2, TCBL), TUBJOBAC, TUB2) SET JCB ADDR. 
1550 TC TCRLBUAC2, TCB1), TURISURC, THB?) SET UGA SS WAL 
4551 TBF — TUBCTWD(, TUB2), TURSEXEC AN ICS SESSION ? 
4552 TBN  SUBATTRS(, TUB2), SUBEGAR EOK RECEIVED? 
9553 WF  ATooo24s WO, BOTH NOT TET 
4554 ST _ TUBTCB+UDTUB+1<, TURZ), TUB? STORE SUB ADDRESS 
1555 L ‘TUBTCBC, Tua2), Toei wRi-> TB 
4556 Ls RBSUDAKS+1¢, TOBE). ARR ARR = SAVED TUD BYTES 
4557 MV RBSWORKS+1(,TCB1D,OBRTMG = CALL ICDB TO DEQUE AND ree 
$558 TA TUBTCB+1(, TUBZ), XR2 KR2-> UPL 
4559 * SXFER ID-RICOB, REFRESH-YES ce, #1008 
4560 sve 4] 
0820 4561 OC ALICRICOB) 
4562 *** END OF EXPANSION © 
4563 ST __ RBSWORKS+1(, TCB1), AAR RESTORE SAVED BYTES 
4564 J AT000290 CONTINUE ATTACH 
C35 


QI RAPAAAAAAAAAAAARRARAKRA ARR LERERARAR EERE REAR ERT EAR RR IER 


2937 * 


* 


2938 * TERMINAL UNIT 8LOOK FOR PRINTERS « 


2939 * 


* 


Finn te bet 01 ORY 


hee 405 79 ayy 


sh. Shee a9 
ee Saal: 
14 WORE? 01 0 97 
| OReD 79 a2 oF a... ae 
| errr or 
15, W873 8B 03 OY oFeA 600 
Obs BA BOG 860 80 
_—vlis fb 
Wo) GBIF 74 02 OB per 
1 088? 7 C4 ae 
OBES BE 6 87 a ee 
{17} GBBB F2 9 5 pn 
er 
LQ} OBBE BY 08 8 ‘e6bt 
{0B 2 0 


QED RRAARAAAARRRARARARERARARRAAR ARE AAR ERROR RE RRE ERE EER OM 


241" 00 * 01 
2942" EC * CONPL * FLAG 


-02 * 03 * 08 


*o * 06 “97 * 
= CMD * COD * UNITa * 


DATAR : 


2943 RRAAKAKRARRERRAKKARRRAERRRAEKERARERRE EEE ERE REE REE REE RRR ISR IR ID 


2944 * 08 


09 * OA 


2945 * COUNT 7 


ee 


SENSE BYTES * 


2946 RRERAAERERAARAEKEARERARRRRRER ELAR AER RENEE RE REE REET 


2947 * 10 n*i2 rie 


2948 * TBa * CHAIN 


"15 * 16 
* DEVID * QHDR * ERPCT * ERBFG * 


"17 * 


2949 RAKARARRAAKRRARKERERRRERR RARER ARERR RRERR REE AAR RE RRLA I 


290 "18 * 19 


wri FIC 
2951 * ERAID * MIC : 


* OPTS * 


2959 * 30 * 32 
* TUBPGTUB 


33 * 34 


wre we FF 


SIOCT * ERRCT * US- * 


Les] ~ y* 
= PATRI * PLPT * RESERVED . 


2961 ***0PTIONAL ADDITION ABOVE******="0PTIONAL ADDITION ABDVES™**** 


242738 = *39 * SR * B 
2963 * RESERVED RESERVED 


x*B ; ies See! 


RESERVED 3 


2964 ***0PTIONAL ADDITION ABOVE™******"0PTIONAL ADDITION ABRYEXTTee* 


-—rmenneteneenienivinrpninneeinnin tnt 


11/81 12/08/81 21:28 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT 


B35 


0055 1327 IWEROPTN FOU 8 TWRIMARY+7 


PaeE =O 


FRROR MECSSGACT NWT RRIOE OPTIONS 


“WL/BL 12/08/81 71:28 


OOC1 Bei? Teer 


OBSF 02 02 00 4591 LA -0¢, ACE1), ACE2 XR2-> ACE 
0B62 C2 01 0080 45° LA __NUASCA+SCADCSP3-1,XR1 XR1-> TUB LOCK 


4593 * TEST BIT-SCADTLOK LOCK VERTICAL TUB CHAIN 
0866 F4 05 23 4594 SVC SVCTEST,OXLOFF*QUAIT TEST AND SET SVC REQUEST 
0869 02 0869 4595 DC__AL1¢SCAD:LOK) BIT TO BE TESTED AND SET 
4596 *** END OF EXPANSION ** 
086A E2 01 00 4597 LA 0¢, ACE2), ACE XRI-> ASSIGNED ACE 
OB6D 75 02 OF 4598 L___ACETCBaC, ACEI), TCB2 XR2-> TCB ee 
0870 B5 02 13 4509 T TCBRTUBC, TCB2), TUB2 XR2-> TUB 


0873 88 03 03 OFBA 4600 MAN TUBCMND(, TUB2). ATCONONE SET UP INVITE OP-CCDE @a023 
0B78 BA 80 © 4601_AT000259 SBN TUBECTiC, TUB2), TUBSSKIP SET ON THE NOSKIP BIT 


0878 5F 00 OD OD 4602 SLC ACETCBA-2CACETCBa-1,ACE1), ACETCBA-2(,ACE1) ZERO ACE 
OB7F 74 02 0B ACEXR1¢, ACE1), TUB2 STORE TUB ADDRESS 
B82 7C C4 09 ACETYPE(, ACE1), ACENSCL +ACEPRIV+ACEXLOFF SET TYPE 


0B85 B8 20 37 4605 TBN — TUBATTR3¢, TUB2), TUBIPS PROG. REQ. UNDER FORMAT? 
OB88 F2 90 15 4606 JF ATO00260 NO, IT IS NOT 


OB8B B3 80 03 TBN ‘UBCMNDC, TUB2), TUBREXEC AN ICS SESSION ? al45 


OB8E B9 08 39 4608 TBF — TUBATTR5¢, TUB2), TUBRSF STOP FAIL ON RELEASE ? 
0B91 F2 90 15 4609 JF —_AT000265 YES, QUEUE TO CNPLa a: 
0B94 BC 00 01 4610 NVI TUBCOMPL(, TUB2), 0 CLEAR ALL BITS IN COMP. 


04825100 4611 * QUEUE DEV-QHDWSC,DSPL-ACECHAIN-1 QUEUE ACE TO WSQ 
0B97 F4 00 OE 4612 SVC SVCQUEUE,QO SVC FOR SYSTEM QUEUE FUNCTION 
C36 
09/11/81 12/08/81 71:28 #SVAT TCB ATTACH TRANSIENT PAGE = 69 VO9/11/81 12°92 °) 21:28 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT its ©. tie . 
02 2966 RRRARRRERARARRRARAR AERA RRR ERR RRR IIT IIT RIS II III IO TI IIR IIR 
2967 * TERMINAL UNIT BLOCK (TUB) : 
2968 RARARRARRRERARRARARAARRRARAARAARARRARKARARH ARI ARR RRA RARER AR RR RRR IR, = 7 
03) 
= 097) RRRRARRRRERERARARRARAARRARRRARRRRRRRRERERERERERERAD | RERRARRRRRRRRERRR AR Bog ee ere eck 
04 2971 * COMMON SECTION OF THE TUB io 
WX") Py Matatatatatasatatatatatalatatatatatalatatatatatatatatatatatatatatalatatatatatalotatetatatatatatatatstaloiaiatalatatamaiaioteiniataiaaaiaia 
05 2974 * 
ss 2975 * TERMINAL [0B / PRINTER DCB _— 
2976 * 
06 
0000 2978 TUBECN EQU 0 EVENT CONTROL MASK 2 
07 0080 2980 TUBSSKIP EQU X‘80° » NO SKIP v1 
G040 2981 TUBSREAL EQU  X'40' - DATA ADDRESS IS REAL a 7 
0020 2982 TUBSNIO EQU X'‘20' . NON I/9 EVENT 
08 2983 * EQU X‘10° . RESERVED <MUST BE ZERO) 
_2984 £ EQU X08" . RESERVED (MUST BE ZERO) ees 
2985 * EQU  X'04' . RESERVED (MUST 8E ZERO) 
09) «986 * EQU  X‘02' . RESERVED (MUST BE ZERO) 
2987 * EQU X'01' « RESERVED (MUST BE ZERO) = 
10 0001 2989 TUBCOMPL EQU TUBECI+1 10B COMPLETION CODE 
0080 2991 TUBSACTV EQU x*80' ~ (0B REQUEST ACTIVE ; 
aI 004u 2992 TUBSCMPL EQU X‘40' . [OB REQUEST COMPLETE 
2993 * EQU X‘20' . RESERVED (MUST BE ZERO) Soy 
2994 * EQU X'10' « RESERVED (MUST BE ZERO) 
12 2995 * EQU X'08" . NOT USED 
0004 2996 TuunsGND EQU  X'04' . INPUT BUFFER ASSIGNED x 
ae, 2997 * EQU  X'02' . RESERVED FOR PRINTER 
13 0001 2998 TUBSERR EQU X'0l' . ERROR FOUND INDICATOR 
2 0000 2999 TUBSRACT EQU  X'00' » REMOTE ACTIVE 
14 0002 3001 TUBFLAG EQU TUBCOMPL+1 FLAG BYTE 
ie 9080 3003 TUBSUERP EQU X80" . INDICATES USER DEFINED ERP 
15 0040 3004 TUBSNN2 EQU X‘40' « NO RETURN ON PERMANENT ERROR 
0020 3005 TUBAUTOB EQU § X‘20' - AUTO INPUT BUFFER ASIGNMENT 
0010 3006 TUBSVH EQU X'10' . TUB NOT ALLOWED OFF VERTICAL TUBCHAIN 
16 0008 3007 TUBONL EQU X'08' . DEVICE ONLINE 
00C4 3008 TUBRIISU EQU  X'04' ~ REAQ INPUT ISSUED TO TUB 
0002 3009 TUBRINCM EQU X‘02' « READ INPUT NOT COMPLETE 
7 0001 3010 TUBSDTCS EQU X‘O1' . DATA IN CONTROL STORE 
0003 3012 TUBCMND EQU TUBFLAG+] TOB COMMAND BYTE 
18 
0OCO 3014 TUBSDA EQU  xX‘CO' « LOCAL WORKSTATION DEVICE ADDRESS 
OOEO 3015 TUBSPNAV EQU X‘EO' « NATIVE PRINTER DEVICE ADDRESS 
19) OOCO 3016 TUBSEXEC EQU X'CO' « EXEC [/0 OPERATION CODE 
00C1 3017 TUBSPOLL EQU  X‘C1' « EXEC INVITE OPERATION 
rae 00C2 3018 TUBSIDLE EQU = X'C2' « QUIESCE 
20 
B36 
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#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


Bibakediudl I Tne PR oe 


“OBDE B5 01 24 4651 ATO00283 L TUBTCBC, TUB2), TCB1 RELOAD TCB ADDRESS  aa023 05326000 


16] OBE1 BS 80 16 4652 TBN  TUBERPCT(, TUB2), ERBBUSY ERP IN PROCESS ? 05330000 
OBE4 F2 90 OC 4653 JF AT000285 NO, BYPASS ERP LOGIC 
OBE? BB 20 16 SBF  TUBERPCT(, TUB2), ERBDONE SET OFF ERP DONE 
OBEA BC 01 18 NVI TUBERAIDC, TUB2), SAIDIOER SET TO 1/0 ERROR 
OBED 7A 01 79 SBN TCBSUSPS¢, TCB1), TCBWIOSP SET SUSPENDED DUE 0023 
OBFO 7A 02 01 SBN TCBSTAT2¢, TCB1), TCBSUSP SET TASK SUSPENDED 
OBF3 B8 10 38 4658 ATOO0285 TBN TUBATTR4¢, TUB2), TUBIQNP INQ MENU PENDING ? 
OBF6 F2 90 OF 4659 JF AT000287 NO, IT IS NOT 
OBF9 7A 20 79 4660 SBN TCBSUSPS(, TCB1), TCBINQSP SUSPEND DUE TO INQ  @a023 
OBFC 7A 02 01 4661 SBN TCBSTAT2¢, TCB1), TCBSUSP SET SUSPEND DUE TO INQ 
001 
#SVAT TCB ATTACH TRANSIENT PAGE 70 VO9/11/81 12/08/81 21:28 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
02) 00C3 3019 TUBSCNCL EQU X‘C3" . CANCEL INVITE OPERATION 
0080 3020 TUBREXEC EQU  X'‘80' REMOTE EXEC I/O OPERATION CODE 
0081 3021 TUBRPOLL EQU X‘81' . REMOTE INVITE OPERATION 
03 0083 3022 TUBRCNCL EQU X‘83' . REMOTE CANCEL INVITE OPERATION 
0040 3023 TUBMLOCL EQU X‘40' . THIS TUB IS A LOCAL TUB 
: 00CO 3024 TUBMSUB EQU X'CO' . COFF) IF OFF, THIS IS A SUB 
04 0003 3025 TUBDEVIC EQU TUBCMND DEVICE ADDRESS 
0004 3027 TUBCMOD EQU  TUBCNND+1 TOB COMMAND MODIFIER CODE 
05) 
OOA7 3029 TUBSPWI EQU  X‘AT' . PUT WITH INVITE OPERATION 
0027 3030 TUBSOUPT EQU X'27' « OUTPUT OPERATION 
06) 0002 3031 TUBSSAVE EQU X02" « SAVE TABLE OPERATION 
0006 3032 TUBSSAVS.EQU X‘06'_. ~ . SAVE SCREEN OPERATION 
0062 3033 TUBSRDSN EQU— X'62' ~ . READ-SCREEN’ INPUT OPERATION 
07 0042 3034 TUBSRDIN EQU xX‘42" . READ INPOT FIELDS OPERATION 
0007 3035 TUB$RSTR EQU  X‘07" . RESTORE OPERATION 
0022 3036 TUBSROMD EQU = X'22' . READ MODIFIED IMMEDIATE 
08 
0005 3038 TUBUNIT@ EQU  TUBCNOD+1 UNIT ADDRESS 
0007 3039 TUBDATAd EQU TUBUNITa@+2 DATA BUFFER ADDRESS 
09 0009 3040 TUBCOUNT EQU TUBDATAA+2 DATA TRANSFER BYTE COUNT 
000A 3042 TUBSENSO EQU  TUBCOUNT+1 SENSE BYTE 0 
10 
3044 * DATA STREAM REJECT * REFERENCE GROUP 1 IN TUBSENS4 
3045 * EQU  X'80" . DATA STREAM REJECT 
11 3046 * WS CONTROL FIELD ERROR * REFERENCE GROUP 2 IN TUBSENS4 
3047 * EQU X‘40" . WS CONTROL FIELD ERROR 
3048 * RESOURCES NOT AVAILABLE § * REFERENCE GROUP 3 IN TUBSENS4 
12 3049 * EQU  x‘20° . RESOURCES TEMPORARILY NOT AVAILABLE 
3050 * EQU X‘l0' . WS CONTROLLER DBC/GBI PARITY CHECK 
3051 * * REFERENCE GROUP 4 if TUBSENS4 
3) 3052 * EQU  X‘08' . OPERATION CHECK 
3053 * EQU X‘04' . WS CONTROLLER STORAGE PARITY CHECK 
3054 * EQU = X‘02" . RESERVED 
3055 * EQU  X‘O1' - 4S CONTROLLER LONG TIME OUT 
QOOB 3057 TUBSENS! EQU TUBSENSO+] = SENSE BYTE 1 : 
5 
3059 * SCREEN FORMAT ERROR * REFERENCE GROUP 5 IN TUBSENS4 
3060 * EQU  xX'80° . SCREEN FORMAT ERROR 
6 3061 * FQU  X'40" . NO RESPONSE TIME OUT 1 
3062 * EQU X‘20° . TRANSMIT ACTIVITY CHECK 
3063 * FQU  X"10° . ACTIVATE COMMAND FAILURE 
t 3064 * EQU X'08" . RECEIVE PARITY CHECK 7 
3065 * EQU  X'04" RECEIVE LENGTH CHECK 
3066 * EQU  X‘02° . NOT USED 
Hy 3067 * EQU xX‘Ol' . EVEN/ODD TIME OUT 1 
goo? 
TUBSENS2 EQU  TUBSENS1+1 SENSE BYTE 2 f 
3071 * fQU  X'30" . DEVICE HUNG BUSY 0005 


3072 * EQU X*40° . LINE PARITY CHECK 


C01 
*SVAT TCR ATTACH TRANSIEN 


#SVAT TCB ATTACH TRANSIENT PAGE 34 VO9/11°81 12/08/81 21:28 


ERR LOC OBJECT CODE 4 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 0004 1405 JCBDSCH3 EQU JCB. oCHEDULER BYTE THREE a 
0080 1406 JCBMSEOJ EQU X‘80' SYSLOG - SUPPRESS 2 OPTION HALT o 
0040 1407 JCBMSOFF EQU X'40" SYSLIST OFF SELECTED BY HALT OPTION 

03 0020 1408 JCPMSPRT EQU  X‘20° SYSLIST PRINTER SELECTED BY HALT OPTION 9 
0010 1409 JCBMREST EQU  X'10° RESERVE STATEMENT RECEIVED THIS JOB 9 
0008 1410 JCBMSCRT EQU xX ‘08° SYSLIST CRT SELECTED BY HALT OPTION o 

0. 0004 1411 JCBMEOMP EQU x ‘04" END OF OUTER-MOST PROCEDURE & 
0002 1412 JCBMRING EQU  X‘02' INQUIRY JCB G 
0001 1413 JCBMOSRC EQU  xX‘01' TERMINATION - DISPLAY RETURN CODE 

05) gw 


002 


711/81 12/08/81 21:28 #SVAT TCB ATTACH TRANSIENT PAGE 71] VO9/11/81 12/08/81 21:28 O1 *SVAT TCB ATTACH TRANSIENT 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT 
3073 * EQU X'20' - UNIT NOT AVAILABLE (PRINTER ONLY) 0006 3127 
EQU X‘l0' « OUTSTANDING STATUS 0007 3128 
EXCEPTION STATUS EQUATES START 3129 
EQU X'0E* « NO STATUS CALL BITS OFF) nw» 
EQU X'02' - NULL OR ATTRIBUTE ERROR 
3132 
04 3133. 
X‘OA' . INPUT QUEUE OR STORAGE OVERRUN 3135 | 
x‘0C* « INVALID REGISTER VALUE 05) 3136 
« POWER ON TRANSITION 3137 | 
EXCEPTION STATUS EQUATES END 
3085 * EQU. X‘0Ol' . EVEN/ODD RESPONSE LEVEL 06) 3139 
3140 
0000 3087 TUBSENS3 EQU  TUBSENS2+1 SENSE BYTE 3 
07 3142 | 
QOOE 3089 TUBSENS4 EQU  TUBSENS3+1 SENSE BYTE 4 - ERROR CODES 3143 | 
144 | 
3091 * GROUP 1 - DATA STREAM REJECT ERRORS 03 
3092 * ( REFERENCE TUBSENSO BITO ) OOOF 3146 1 
3147 ' 
EQU. X‘Ol' . PREMATURE END OF DATA STREAM { OOOF 3148 1 
EQU X'02'° INVALID ROW/COLUMN ADDRESS 0011 3149 1 
EQU  X'03" . RA ADDRESS IS LESS THAN PRESENT VALUE 
OF THE ADDRESS COUNTER 3151? 
EQU  X'04" « ESCAPE CHARACTER MISSING OR INVALID 3152 ° 
COMMAND CODE 3153 * 
X‘05' . INVALID START FIELO LENGTH ; 
X'06" - INVALID START FIELD ADDRESS : 0013 3155.1 
x‘07" . RESTORE ISSUED TO WRONG DISPLAY STATION 
X‘08" . INPUT FIELD PAST END OF SCREEN 12 0014 3157 7 
X‘09" « FORMAT TABLE OVERFLOW 
X'0A' . DATA WRITTEN PAST END OF SCREEN OOEO 3159 7 
X'0B' . START OF HEADER LENGTH = 3 1c) OOEL 3160 7 
X'oc' « ROLL PARAMETER ERROR O0E2 3161 7 
EQU  X'0D' « TOO MANY FORMAT CONTROL WORDS DEFINED OOE3 3162 fT 
OOCO 3163 T 
GROUP 2 - WS CONTROL FILED ERRORS 
( REFERENCE TUBSENSO BIT] ) 0015 3165 7 
15 
EQU X'O1' « INVALID COMMAND MODIFIER 0016 3167 T 
EQU X'02' . INVALID BYTE COUNT (O OR 4096) 
EQU  X'03" - DEVICE ADDRESS NOT FOUND 3169 * 
EQU X'04' « BYTE COUNT 7= ACTUALLY TRANSFERED 3170 * 
R71 * 
* GROUP 3 - RESOURCES TEMPORARILY NOT AVAILABLE ERRORS 
i! C REFERENCE TUBSENSO BIT2 ) 0017 3173 T 
EQU X‘Ol" « PRINTER BUSY DURING WRITE ATTEMPT 3175 * 
0002 3122 TUBSNEAD EQU  X‘02' « WS IN ERROR MODE 3176 * 
3123 * EQU X‘03" . DEVICE OFFLINE ERROR 317 * 
3124 * EQU  X‘04' . PRINTER NEEDS INITIALIZATION 
0005 3125 TUBSNRMD EQU  X'05' - NOT READY DUE TO OPERATOR ERROR f0DE OO18 3179 T 
3126 * OR SYS REQ MORE OIA 3180 T 
CO2 
09/11/81 12/08/81 21:28 i #SVAT TCB ATTACH TRANSIENT PAGE 35 09/11/81 12/08/81 21:28 #SVAT TCB ATTACH TRANSIENT 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR ST 
02 0080 1°59 JCBMWPNT EQU  X‘80' WAITING FOR PRINTER BO5A 151: 
0040 1460 JCBMWLIN EQU WAITING FOR COMMUNICATION LINE OSC 151 
0 20 1461 SCBMUDKT EQU WAITING FOR DISKETTE 
03 00.9 * 02 JCBrSK EQU WAITING FOR DISK SPACE 0061 1516 
0008 1463 JCBMWINT EQU INITIATOR WAITING FOR RESOURCES 
0004 1464 JCBMUMIX EQU “04° WAITING FOR A MRT OVER MRTMAK OO67 1512 
04 0002 1465 JCBMSLOP EQU : HALT PENDING TO SYSTEM OPERATOR 0062 1515 
0001 1466 JCBMEXTD EQU ei FILE EXTENSION IN PROCESS 0080 1520 
0040 1521 
05) 002A 1468 JCBDRGSZ EQU CHL STAT+1 REGION SIZE (STEP) 0020 1522 
0010 1523 
002B 1470 JCBOCTAG EQU JCBDRGS2+1 CURRENT TAG IN >PSA 0008 1526 
06) 1 oe 


a RO ee Te 


16 161 — QCAD 0A4000 CAE 47. 
ahi 

OBO 34 OT OF G4 ay 

WV 171 OcB4 75 01 15 an 
OCR? 02 01 SF ay 

OCBA 68 O1 00 02 “ae 

18 18] OCBE 68 03 00 03 ay 
OCC2 68 01 01 04 ays 

OCCE 68 OF OF 05 ey 

19 1 OCCA 68 01 02 06 “7s 


OCCE 68 03 02 07 


20 
D003 
1 VO9/11/81 12/08/81 21:26 #SVAT TCB ATTACH TRANSIENT ae PAGE 72 VO9/11/81 12/08/81 21:28 | at SSVAT CB ATTACH TRANSTENT 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR 
02 0006 3127 TUBSRDUK EQU X'06" . READ ISSUED TO UNLOCKED KEYBOARD ERROR 0 
0007 3128 TUBSPOFF EQU  X'07" . WS IS POWERED OFF 0018 
3129 * EQU X*08" ~ RESERVED 
03 3130 * EQU  X'‘09' . SAVE OR RESTORE ERROR 03 
3132 * GROUP 4 - OPERATION CHECK ERRORS 
04) 3133 * ( REFERENCE TUBSENSO BIT4 > 04 
EQU xX‘O1" ~ SERDES TIME OUT 
EQU  X‘02' . TIME OUT ON CYCLE STEAL DATA 
EQU X'05" «ATOM NOT PROCESSING KEYSTROKES , 
00t 
3139 * GROUP 5 - SCREEN FORNAT ERRORS OO1E 
3140 * ( REFERENCE TUBSENS1 BITO ) 9020 
0022 
. INVALID FIELO LENGTH ERROR 0022 
~_RESEQUENCE ERROR IN FORMAT TABLE 0024 
3144 * EQU X‘03" . CHECK DIGIT ERROR 
9024 
3146 TUBSENS5 EQU  TUBSENS4+1 SENSE BYTE 5 
3147 * EQU xX'08" 
3148 TUBSENSE EQU TUBCOUNT*+6 SENSE BYTES 
3149 TUBTCBA EQU TUBSENSE+2 _TCB ADDRESS FOR DATA BUFFER ATRS 
3151 * 
3152 * ERROR RECOVERY BLOCK ERB) 
3153 * 
0013 3155 TUBCHAIN EQU TUBTCBa+2 TUB CHAIN FIELD 
ON 
0014 3157 TUBDEVID EQU TUBCHAIN+! TUB DEVICE ID FOR ERP 
OOEO 3159 TUBSTANZ EQU  X"EO* ~ 5211 LINE PRINTER 0025 
OOE1 3160 TUBSPRMA EQU X'EI' . 5256 WORKSTATION SERIAL PRINTER 0026 
OOE2 3161 TUBSNGLD EQU  X'E2* ~ 650 LPM LINE PRINTER 0027 | 
) OOE3 3162 TUBSMITR EQU  X‘E3* . MITRE PRINTER O02 
00CO 3163 TUBSKBDP EQU xX‘CO' . KEYBOARD DISPLAY WORKSTATION 0030 
0032 | 
0015 3165 TUBQHDR EQU TUBDEViD+1 QUEUE HEADER POINTER FOR PRINTER 0034 3 
0016 3167 TUBERPCT EQU  TUBQHDR+! ERP CONTROL BYTE 0035 : 
3169 * 0080 : 
3170 * SEE THE ERBDCTL FIELD OF THE ERB MACRO FOR ASSOCIATED MASKS. 0040 3 
R171 * 0020 3 
0010 3 
0017 3173 TUBERBFG EQU TUBERPCT+1 ERB FLAG BYTE 9008 3 
0004 3 
3175 * 0002 3 
3176 * SEE THE ERBDFLG FIELD OF THE ERB MACRO FOR ASSOCIATED MASKS. 0001 3 
3177 * 
0036 3 
0018 3179 TUBERAID EQU TUBERBFG+] ERROR AID FLAG 8YTE 
OO1A 3180 TUBMIC EQU TUBERAID+2 ERP MESSAGE ID CODE q 


C03 


#SVAT TCB ATTACH TRANSIENT 


35 VO9/11/81 12/08/81 21:28 PAGE 36 VO9/11/81 12/08/81 21:28 #SVAT TCB ATTACH TRANSIENT 


01 


ERR LOC OBJECT CODE ADD 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 005A 1513 JCBDJQST EQU JCBDJBRG+3 © JOB QUEUE JOB START TINE <JOBQ JOBS) 


005C 1514 JCBOSPID EQU  JCBDJQST+2 SESSION PR’NTER ID (RELEASED WS JOBS) 


03 0061 1516 JCBDJOBN EQU JCBOMENF+3 = JOB NAME (TIME STAMP) 


0062 1518 JCBDSCHS EQU JCBDJOBN+l © SCHEDULER BYTE FIVE 


04 0062 1519 JCBDLANG EQU JCBDSCH5 LANGUAGE COMPILER BYTE 
0080 1520 JCBMSYLB EQU  X'80' SEARCH SYSTEM LIBRARY ONLY 
0040 1521 JCBMSLNG EQU xX'40' SYSLIST END MESSAGE REQUIRED 
05 0020 1522 JCBMLIST EQU xX'20' LIST RPG 


0010 1523 JCBMNEXT EQU  X'10" SYSLIST 'NOEXTN' SPECIFIED 


12 


ROR 


V09/11/81 


16 


7 


18 


19 


20 


12/08/81 21:28 


36 09/11/81 


12/08/81 21:28 


OCA? BC 08 00 
OCAA F4 06 50 
OCAD 0A4000 


OCBO 34 01 OFS4 
OCB4 75 01 15 

OCB? D2 01 5F 

OCBA 68 01 00 02 
OCBE 68 03 00 03 
OCC2 68 01 01 04 
OCC6 68 03 01 05 
OCCA 68 01 02 06 
OCCE 68 03 02 07 
OCD2 35 01 OF84 


4744 MVE 0¢,2),8 


4745 Sve 80, GXLOFF+QNREF 

OCAF 4746 DC —-XL3‘0A4000' TIME OF DAY REQUEST. 
4747 *** END OF E).PANSION ** 
4748 ST ATTCB, TCBI STORE TCB ADDRESS 
4749 L - TCBUCBa¢, TCB1), JCB1 POINT TO JCB 
4750 LA JCBDJOBN-2(, JCB1), JOB1 POINT TO JOB NAME FIELD 
4751 MZN OC, JOBID, STRBTINE-5(, PAK2) MOVE IN JOB NAME HOUR 
4752 MAN OC, JOB? *, STRBTIME-4¢,PAK2) MOVE IN JOB NAME HOUR 
4753 nZN _1¢, JOB1), $TRBTIME-3(,PAK2) MOVE IN JOB NAME MINUTE 
4754 NNN 1(, JOB1), STRBTIME-2(, PAK2) MOVE IN JOB NAME MINUTE 
4755 NZN 2¢, JOB1), STRBTINE-1(,PAK2) MOVE IN JOB NAME SECOND 
4756 MAN 2¢, JOB1), STRBTINE(, PAK2) MOVE IN JOB NAME SECOND 
4757 L ATTCB, TCBI POINT TO TCB 


TIME IN DECIMAL. 


iad: 7 eee ae eee 


004 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


001B 3182 TUBOPTS QU  TUBNIC+] 


3184 * 
3185 * 
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ERP MESSAGE OPTIONS 


SEE THE ERBDOPT FIELD OF THE ERB MACRO FOR ASSOCIATED MASKS. 


3186 * 
O4 
3188 * 


3189 * 
3190 * 


001D 3192 TUBSIOCT EQU 
OO1E 3193 TUBERRCT EQU  TUBSIOCT+1 
0020 3194 TUBWSID EQU  TUBERRCT+2 
0022 3195 TUBWSWA EQU 
0022 3196 TUBPCFGA EQU  TUBWSWA 
0024 3197 TUBTCB EQU 
3198 * 
9024 3199 TUBCOMON EQU 


3202 * 


3205 * 

3206 * 

3207 * 
0025 3209 TUBAID EQU 
0026 3210 TUBCPAID EQU 
0027 3211 TUBDRESV EQU 


O02F 3212 TUBUSER EQU 
0030 3213 TUBOPSTS EQU 


0032 3214 TUBJCBa EQU 


0034 3215 TUBTUB EQU 


0035 3217 TUBATTRI EQU 


0080 3219 TUBNCN 
0040 3220 TUBACN 


EQU 
EQU 


0020 3221 TUBCMOT 
0010 3222 TUBSGN 
0008 3223 TUBTSRQ EQU 


EQU 
EQU 


0004 3224 TUBSTPJ EQU 
0002 3225 TUBLIOFR EQU 
0001 3226 TUBFCNSL EQU 


MISCELLANEOUS DATA 


OD2C 1C 00 0D4D 28 
0D31 OF 00 OD40 OF BA 


#SVAT TCB ATTACH TRANSIENT 
ERR LOC OBJECT CODE ADDF 


05) 
TUBOPTS+2 START 10 COUNT 
ERROR RETRY COUNT 06 
LOGICAL ID OF THE TERMINAL OR PRINTER 
TUBWSIO+2 SS OF WORK STATION WORK AREA 
SS OF PRINTER CONFIGUARTION RECORD 07 
TUBPCFG@+2 TUB OWNER TCB ADDRESS AND ... 
PRINTER QHDR 
TUBTCB END OF COMMON PORTION OF TUB 08 
OF} 
3201 RARKKKKRAAKRAKR AREER RIE RIKER RIKI KRHA RER ERI RI IR II IIR IA TORR IRI TR IIR IIR 
DEVICE DEPENDENT SECTION OF THE TUB ® 10 
3203 RKEKKKKKERRERKKRERARARE RRR K ERA AA RKRARAAKAAEKKR AER RRREKRRERKRAK RARER AREER 
i 
DISPLAY DATA 
7 
TUBCOMON*] AID BYTE CENTER, REC ADV . ETC. )CDISPLAYS) 
TUBAID+1 AID BYTE CINQUIRY, SYS REQ) (DISPLAYS) Bi 
TUBCPAID+1 RESERVED BYTE 
TUBDRESV+3 OPERATOR ID 
TUBUSER+1 OPERATOR STATUS 14 
TUBOPSTS+2 ADDRESS OF JCB 
TUBICBa+2 TUBCHAIN FOR SYS REQ AND INQUIRY 
TUBTUB+1 ATTRIBUTE BYTE 1 
. MASTER CONSOLE 16 
. ALTERNATE CONSOLE 
~ COMPAND TERMINAL CON)-DATA TERMCOFF) 
. TERMINAL SIGNED ON YW 
._ TEST REQUEST MODE 
> JOB INITIATION NOT ALLOWED 
. USWA FORMATTED WITH LIO DISPLAY 19 
. CONSOLE MODE FORCED BY 1/0 ERROR 
TUBATTR1+1 TERMINAL MODE AND DISPLAY 19 


0036 3228 TUBATTR2 EQU 


ERR LOC OBJECT CODE 


3230 RERMRARKRARAAKA ERA RRRERARA KAR ER AR EARAK RRA ERRE REAR IR RR RR IRE RH 


*SVAT TCB ATTACH TRANSIENT 


ADOR STMT SOURCE STATEMENT 


C04 
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1567 * SLOAD 


1569 RRKRRARAARAARARRARRERHE REAR ARREARS IR III ISI III II ISI II IR. 


1569 * 


0002 1571 $LDDSS EQU 2 


MAIN STORAGE RELOCATING LOADER PARAMETER LIST EQUATES x 


1570 RRRKKARARRRARERRARRR RARER RRR RRR RAR REAR IRIE ERR ERR IIE RI KITT IOI IOI TOT 


SS ADDR OF MEMBER 


0003 1572 $LODTEXT EQU = $LODSS+1 
0005 1573 SLODLINK EQU  $LDDTEXT+2 
0007 1574 $LDDSTRT EQU  SLDDLINK+2 


0008 1575 $LDDRLD EQU  $LDDSTRT+1 


ee eS 


NUMBER OF TEXT SECTORS 

LINK EDIT ADDRESS 

START CONTROL ADDR CENTRY POINT) 

RLD DISP IN THE FIRST SECTOR 4 


le ene aa te 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


At 


fO9/11/81 12/08/81 21:28 


VO9/11/81 12/08/81 21:28 


ODI TC FF af a5 ATOOARGS MV] TOBATRSC, TOBY) KR StT UIP ADDRESSAB TL 1 TY 


ODIF 5C_1E € 4 47% MCT GATRS- 103, 1CRL), TOBAT:., FOBL? IN TO dese cate 
0023 BS 40 iE are TaN ORBLE SATFUAGC, WT), SATREM LOGICAL REAL VS CWC AT 
0026 70 00 28 4798 Cli FOBBEGL, 1081,0 a FOOBEGL WOT 0 ? 
0029 F2 91 22 4199 X___aTono36?, x91 0, ORR 
4800 * 


$801 * NAKE ALL ATR VALUES FROM LOGICAL & TO THE NEW TASK “S TOBBEGL 
4002 * SERIAL IN WALUE, 1.6. NWPED LOGICAL = REAL TO CIM EDIT ADDRESS 


4303 * 
O02C 1C 00 0040 28 4304 THC ATOOO306+4( 1), TOBBEGLC, TOBL) OVE IN OFFSET TO LAST #1 
0031 OF G0 Oba OF BA 05 Sl ARNO EAT 73, ATCA TE OFFSET TS LST TS 


BOS 


*SVAT CB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


TERMINAL NODE INDICATORS 


nn) 
0 HON 30 
YA hoe id Me PIB WAIN ed ee 
SRR AER REERERR TRATES REREETESERRETST i Bi 
0080 3237 TUBMSTDY EQU  x‘a0" 0 won? Fe 
0040 3238 TUBNONSL EQU  X‘40" | TERMINAL IN CONSOLE MODE (OFF) ree ee Gn 
0040 3239 TUBASTN EQU X"a0" —TERRINAL IN WORST POE CD 
0020 3240 TUBNEND EQU X'20" . TERMINAL IN COMMRAD AOE COND OF OOK. 3M 
0010 3241 TUBMDATA EGU X‘10" ._ TERMINAL IN DATA MODE COND ea eats hd 
0070 3242 TUDE EQU x"70" . TERRINAL IN DATA RODE ESGARE COND | i 
0030 3243 TUBMINIT EQU  X‘30" . TERMINAL IN INITIAL NODE COFFD 06 pou . 
0008 3245 TIPENIA EQU X08" _ END DISPLAY ACTIVE gal 
07 0004 3246 TUBSTATA EQU X"04" . STATUS DISPLAY ACTIVE 107 0K} 3m 
0002 3247 TUBINPA EQU  X°‘02" . SYSIN/SYSLOG DISPLAY ACTIVE i eee ert 
0001 3248 ersGA FQN KOT ~ PSG DISPLAY ACTIVE | ‘aaa FR 
OF 
0037 3250 TUBATTR3 EQU TUBATTR2+1 INVITE INDICATORS conaanarennennnras dite BB 
0080 3252 TUBIIS QU X'80' . UWITE SCHEDULED TO Tus 0 O07 Y5 
0040 3253 TUBINI EQU  X‘40° . IMPLICIT INVITE TO TUB een ee, «5... 
0020 3254 TUBIPS EQUK'20° oe Vie 
1 0010 3255 TUBIARF EQU  xK‘10° 10 ies P50 
0008 3256 TUBSIIS EQU  X‘08" : rovers, Co 39 
0004 3257 TURSINI EQ) x ‘O4 ~ ANE FOR TRIAD STATS “Or 
oh 0002 3258 TUBSIPS EQU Xx*‘02' u 
0001 3259 TUBSIARF EQU  X‘01" oe) 5h 


0038 3261 TUBATTRS EQU = TUBATTR3+1 


INQUTRY/SYS REQ AND MISC 


9001 3281 TUBABTAM EQU  K"O1‘ . CALL TERAINATOR PRIOR TG RELEASE 


OO3A 3283 TUBATTRG EQU = TUBATTRS+1 


*SVAT TCB ATTACH TRANSIENT 


[GTS RRMA MRR REARRANGE EERE IR ERT REI IH 


1615 * 0000 SYSTEM CORVINICATION AREA 0100 256, WugSCA * 


‘81 12/08/81 21:28 


1/81 12/08/81 21:28 


0050 09 
0091 78 01 79 
0094 £2 $0 0C 


0097 C2 02 FEFD 


O09B F4 01 04 
Ov9E 10 


OD9F 34 01 OFS4 


ODA3 F4 00 0B 
ODA6 17 


TBN TCBSUSPS¢, TCB1), TCBWIOSP 


JF _ATO00369 


LA X“FEFO',XR2 
SXFER_[D-RCPERR, REFRESH-YES 


svc 4,1 

OC = ALICRCPERR) 
4854 *** END OF EXPANSION ** 
4855 ST ATTCB, TCB1 


4856 *T000369 PIP — ACSW-ACSUSWAP 


4857 ATOO0369 SVC SVCPPSVC,0 


ODA6 4858 OC ALI CACSWSWAP) 


*SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


ADOR STMT SOURCE STATEMENT 


0080 3285 TUBUSUP EQU X'‘80' 
0040 3286 TUBUSSV EQU  X'40' 
0020 3287 TUBSYLST EQU X‘20' 
0010 3288 TUBMBDCF EQU  X'10' 
0008 3289 TUBMROTA EQU x '08' 
0004 3290 TUBSRILK EQU  X‘04' 
0002 3291 TUBHPND EQU X‘02' 
0001 3292 TUBKBULK EQU  X‘01' 


003C 3294 TUBCTSAV EQU TUBATTR6+2 
003E_3295 TUBAPRNT EQU — TUBCTSAV+2 
003F 3296 TUBMSGCT EQU  TUBAPRNT+1 


0080 3297 TUBMSGRT EQU X'80' 
0040 3298 TUBMSGR2 EQU  X'40' 


0041 3299 TUBASGNL EQU  TUBMSGCT+2 
0043 3300 (UBASGNA EQU  TUBASGNL+2 


0044 3302 TUBATTR? EQU  TUBASGNa+] 


0080 3304 TUBSRQPD EQU  X'80' 
0040 3305 TUBIOERR EQU 
0020 3306 TUBMIQOS EQU 
0010 3307 TUBCMORJ EQU 
0008 3308 TUBREADY EQU 
0004 3309 TUBLIOER EQU 
0002 3310 TUBLIOIP EQU 
0001 3311 TUBRDYIP EQU 


0045 3313 TUBATTRS EQU  TUBATTR7+] 


0080 3315 TUBALRM EQU X'80° 
0040 3316 TUBLTOFF EQU  X'40' 
0020 3317 TUBASENT EQU X‘20' 
0010 3318 TUBMODTA EQU X'‘10' 
3319 * EQU X‘08" 
3320 * EQU X‘04" 
3321 * EQU X'02' 
3322 * EQU X‘01" 


0047 3324 TUBHELPM EQU TUBATTR8+2 


0047 3325 TUBGCHAR EQU  TUBHELPM 


0048 3327 TUBATTR9 EQU = TUBHELPM+1 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


0080 3329 TUBBADGE EQU X‘80' 
0040 3330 TUB960 EQU X‘40' 
0020 3331 TUBMENU2 EQU§ X'‘20' 
0010 3332 TUBMRTSC EQU X‘10' 
0008 3333 TUBSVRD EQU X‘08' 
0004 3334 TUBSVER] EQU X‘04' 
0002 3335 TUBSVER2 EQU  X‘02' 
0001 3336 TUBRDYPD EQU X‘01' 


3338 * 


ADDR STMT SOURCE STATEMENT 


TASKS NEW PRIORITY ma354 
TASK SUSPENDED OUE TO @a023 
NO, IT 1S NOT 


YES, CALL MS ERP 
CALL MS ERP XIENT 


STORE TCB POINTER 


PAGE §=75 09/11/81 


. USER DISPLAY IS UP 
._USER DISPLAY SAVED 


. SYSLIST DISPLAY UP 

. BROADCAST FAILURE 

«MRT PROC WITH DATA ENTERED 
. SAVE/RESTORE INTERLOCK 

. HELP FUNCTION PENDING 

._ KEYBOARD UNLOCKED 


SAVEAREA FOF [UBCOUNT 

1D OF ASSOCIATED PRINTER 

MESSAGE COUNT 

. LEVEL O INQ MSG HAS BEEN REROUTEDCREL 4) 
« LEVEL 1 INQ MSG HAS BEEN REROUTEDCREL4) 
ASSIGNED BUFFER LENGTH 

ASSIGNED BUFFER ADDRESS 


ATTRIBUTE BYTE 7 


- SYS REQ IS PENDING 

. PERMANENT I/O ERROR ON THIS TUB 
. INQUIRY DISABLED ON THIS TUB 

. COMMAND REJECT ON THIS TUB 


LOGICAL 1/0 ERROR 
" LOGICAL 1/0 IN PROGRESS 
. READY FUNCTION IN PROGRESS 


ATTRIBUTE BYTE 8 


- SOUND ALARM AND TURN ON LIGHT 
-_TURN OFF MESSAGE LIGHT 

. ALARM HAS BEEN SENT 

« MODIFIED DATA TAG 

« RESERVED FOR WSIOCH 

RESERVED FOR WSIOCH 

. RESERVED FOR WSIOCH 

« RESERVED FOR WSIOCH 


HELP KEY MIC AREA 
OR GAIJI CHARACTER ON AID REQUEST 


ATTRIBUTE BYTE 8 


. THIS TUB HAS BADGE SECURITY 

. THIS TUB [S FOR A 960 CHAR SCREEN 

« DISPLAY PAGE 2 OF MENU ON 960 

. RT SECURITY SWITCH 

. REJECT IN READY FUNCTION 

- ERROR DURING SAVE - STATUS OR CNSL SYSLG 
« ERROR DURING SAVE - SYS REQ OR INQUIRY 

. READY TASK IS PENDING 


REJECT FILE INDEX 


C06 


PAGE 


1659 * 03B0 


39 09/11/81 12/08/81 21:28 


ODF2 B5 02 17 
ODFS B5 01 03 
ODF8 BD 00 02 
ODFB B5 02 05 4900 
ODFE F2 81 OE 4901 


O£01 OD 03 OFDS OFB9 
O€07 F2 81 05 


OEOA F4 00 10 
OEOD OF D2 


*SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


0020 3375 TUBRL 
0010 3376 TUBCL’ 


0053 3381 TUBDE, 
3382 * NO 
3383 * 
3384 * 

0054 3385 TUBAT 

0080 3386 TUBCL 

0040 3387 TUBSL! 

0020 3388 TUBMD: 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SO 


TERMINATION DUMP 0B 0020 32 NuadP [0B 


x 
1660 * x 
1661 * 03D0 TERMINATION DUMP ACE 0010 16 NUADPACE * 
1662 * * 
1663 * O3E0 PERMANENT SWAP ACE 0010 16 NUASPACE * 
1664 *® ® 1689 * 
1665 * 03FO IPL ASSIGN/FREE AREA 0310 784 NualPLAF * 0100 1690 NUé 
1666 * ® 00CO 1691 Nu 
1667 * 0700 TRACE LOGOUT BUFFER AND 0100 256 NUATRBUF * 1692 * 
1668 * x 01CO 1693 Nus 


Ln RAIA OAL TeHAenTen AV tinny AnrA 3 ~pnraA aman! aid ile bake ama 


ANSA «affne DAE 


ODF2 4895 EN1064 EQU * 
4896 *** END OF EXPANSION ** 


ODF2 B5 02 17 L TCBCRBC, TCB2), RB2 XR2-> CURRENT RB 
ODF5 B5 01 03 L RBS$XR1¢, RBZ), TCB1 TCB ADDRESS ASSIGNED 
ODF8 BD 00 02 CLI RBSXR1-1¢,RB2),0 DID ATACH FAIL ? 
ODFB B5 02 05 RB$XR2(, RBZ), XR2 LOAD UP PASSED XR2 VALUE 
ODFE F2 81 OE AT000380 YES, ATACH FAILED 
0£01 OD 03 OFD5 OFB9 4902 CLC ATSSN+3(4), ATZERO PASS CONTROL TO NEXT XNT? 
OE07 F2 81 05 JE AT000380 NO, EXIT TO CALLER 
4904 * SXFER SSA-ATSSN, REFRESH-NO 
OEOA F4 00 10 4905 svc 16,0 
OEOD OFD2 OEOE 4906 OC _AL2CATSSN) 
007 
75 VO9/11/81 12/08/81 21:28 #SVAT TCB ATTACH TRANSIENT : n #SVAT TCB ATTACH TRANSIENT 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADD} 
004A 3339 TUBRFSS EQU TUBATTR9+2 REJECT FILE - SS 0; 000 
0048 3340 TUBRFN EQU TUBRFSS+1 REJECT FILE - NUMBER SECTORS 000; 
004C 3341 TUBRFCSS EQU  TUBRFN+1 REJECT FILE - CURRENT SECTOR 000) 
03 0040 3342 TUBRFDSP EQU TUBRFCSS+] = REJECT FILE - RELATIVE DISPLACENENT 0 0055 
3343 * 0057 
OO4E 3344 TUBCNSK] EQU  TUBRFDSP+1 FIRST COMMAND KEY MASK BYTE 
04 0080 3345 TUBCMD8 EQU X't)' ENABLE COMMAND KEY 8 04 0058 
0040 3346 TUBCMD? EQU X‘40' ENABLE COMMAND KEY 7 
0020 3347 TUBCMOS EQU X'20' ENABLE COMMAND KEY 6 0080 
0010 3348 TUBCYNS EQU xX'l0' ENABLE COMMAND KEY 5 0040 
0008 3349 TUBCMD4 EQU  xX'08' ENABLE COMMAND KEY 4 0020 
0004 3350 TUBCMD3 EQU X‘04' ENABLE COMMAND KEY 3 0010 
EL4) 0002 3351 TUBCMD2 EQU xX‘02' ENABLE COMMAND KEY 2 0008 
EL4) 0001 3352 TUBCMD! EQU § X‘01' ENABLE COMMAND KEY 1 
004F 3353 TUBCMSK2 EQU TUBCNSK1+] SECOND COMMAND KEY MASK BYTE 
07 0080 3354 TUBCID12 EQU X'80' ENABLE COMMAND KEY 12 07 
0040 3355 TUBCMD11 EQU  X'40' ENABLE COMMAND KEY 11 005A 
0020 3356 TUBCMD10 EQU  X'20' ENABLE COMMAND KEY 10 
08 0010 3357 TUBCMD9 EQU xX'10' ENABLE COMMAND KEY 9 08 0058 
0008 3358 TUBCMD24 EQU  X'‘08' ENABLE COMMAND KEY 24 
0004 3359 TUBCMD23 EQU X'04' ENABLE COMMAND KEY 23 0080 
09 0002 3360 TUBCMD22 EQU X‘02' ENABLE COMMAND KEY 22 9 0040 
0001 3361 TUBCMD21 EQU  X‘O1' ENABLE COMMAND KEY 21 0020 
0050 3362 TUBCMSK3 EQU TUBCISK2+1 THIRD COMMAND KEY MASK BYTE 0010 
10 0080 3363 TUBCMD20 EQU X'‘80' ENABLE COMMAND KEY 20 10) 0008 
0040 3364 TUBCMD19 EQU  X'40' ENABLE COMMAND KEY 19 0018 
0020 3365 TUBCMDI18 EQU X‘20' ENABLE COMMAND KEY 18 0004 
11 0010 3366 TUBCMD17 EQU X‘10' ENABLE COMMAND KEY 17 al 0002 
0008 3367 TUBCIDI6 EQU  X'03' ENABLE COMMAND KEY 16 0001 
0004 3368 TUBCYDI5 EQU X'‘04' ENABLE COMMAND KEY 15 005F 
12 0002 3369 TUBCMD14 EQU X'02' ENABLE COMMAND KEY 14 1 0060 
0001 3370 TUBCMD13 EQU  X‘01' ENABLE COMMAND KEY 13 
0050 3371 TUBCMSK EQU  TUBCISK3 COMMAND KEY MASK 
13 0051 3372 TUBFMSK EQU  TUBCNSK+1 FUNCTION KEY MASK B 
0080 3373 TUBPRT EQU  X'‘80' ENABLE PRINT KEY 
0040 3374 TUBRLUP EQU X'‘40' ENABLE ROLL UP KEY 
14 0020 3375 TUBRLDN EQU xX‘20' ENABLE ROLL DOWN KEY 14 
0010 3376 TUBCLER EQU X‘l10° ENABLE CLEAR KEY 
0008 3377 TUBHELP EQU X‘08' ENABLE HELP KEY 
15 0004 3378 TUBRCBK EQU X‘04' ENABLE RECORD BACKSPACE KEY 5 
3379 * EQU. X'02' RESERVED 
3380 * EQU X'O1' RESERVED 0026 
16 0053 3381 TUBDEXTa EQU TUBFMSK+2 REMOTE WORKSTATIONS TUB CRWSTB) 16 0027 
3382 * NOTE: THE ABOVE EQUATE IS THE DISPLAY STATION TUB POINTER 0028 
3383 * TO THE RWS TUB. SEE PRINTER EQUATES FOR THE PRINTER 002C 
V7 3384 * TUB'S POINTER TO THE RWS TUB. 7 0020 
0054 3385 TUBATTRA EQU  TUBDEXTa+1 ATTRIBUTE BYTE 10 O02E 
0080 3386 TUBCLRAD EQU X‘80' - CLEAR AIDS 002F 
18 0040 3387 TUBSLOCK EQU X‘40' « LOCK CONTROL 18 0080 
SYSLG 0020 3388 TUBMOFF EQU  X‘20' - OFF OCL STATEMENT RECEIVED 0040 
[RY 0010 3389 TUBMHOLD EQU  X‘10' . HOLD PARAMETER FOR OFF COMMAND CON) 0020 
19) 3390 * NOTE THAT IF THIS BIT IS NOT ON 19 
3391 * IT INDICATES THE DROP PARAMETER 
0008 3392 TUBSUBCN EQU X'08' . SUBCONSOLE WORKSTATION 
ee ee 
C07 
39 VO9/11/81 12/08/81 21:28 4SVAT TCB ATTACH TRANSIENT PAGE 40 VO9/11/81 12/08/81 21:28 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
DP IOB * 1684 * 
x 0000 1685 NUFIXNUC EQU  X‘000" MAIN STORAGE NUCLEUS - FIXED AREA 
DPACE * 1686 * 
x 0000 1687 NUASCA EQU NUFIXNUC SYSTEM COMMUNICATION AREA 
SPACE * 0100 1688 NULSCA EQU 256 ® (LENGTH OF AREA) 
x 1689 * 
NIPLAF * 0100 1690 NUGACEQH EQU NU@SCA+NULSCA SYSTEM QUEUE HEADERS 
® OOCO 1691 NULACEQH EQU 192 ® (LENGTH OF AREA) 
TRBUF * 1692 * 


OE4E 1C 00 0£56 00 4947 
0E53 C2 01 0000 


E57 35 02 0141 


OE58 B5 02 17 
OE5E B5 02 05 
0£61 CO 87 ODC6 


09/11/81 12/08/81 21:28 #SVAT TCB ATTACH TRANSIENT PAGE 77 VO9/11/81 12/08/81 21:28 Fe #SVAT TCB ATTACH TRANSIENT 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STt 
0004 3393 TUBMCOUT EQU X'04' . ENTER HAS BEEN PRESSED AT THE SUBCNSL 02; 344 
0002 3394 TUBNOSUB EQU X'02' «ASSIGN NOSUB ACTIVE ON THIS DEVICE 34 
0001 3395 TUBRDMOD EQU  X‘01' ~ PERFORM READ MODIFIED 0030 344 
0055 3396 TUBMSGID EQU  TUBATTRA+] — NEXT REPLY ID TO USE AT SUBCONSOLE 0. 344 
0057 3397 TUBDMATX EQU  TUBNSGID+2 ADDRESS OF SUBCONSOLE MATRIX ie 
0058 3399 TUBATTRE EQU TUBDYATX+1 ATTRIBUTE BYTE 11 04 0031 345 
0033 345 
0080 3401 TUBKDPLY EQU  x‘80° . IGC CAPABLE DISPLAY 345 
0040 3402 TUBKKBD EQU xX‘40' . TGC CAPABLE KEYBOARD 0 0034 345 
0020 3403 TUBMKANJ EQU  X'20' «THIS SESSION IN IGC MODE 0080_345 
0010 3404 TUBGAIJD EQU  X‘10' . EXTD PROCESSING ON 0040 345 
0008 3405 TUBRJFOV EQU  x'08" . FILE OVERFLOW OF THE REJECT FILE 06) 345 
3406 * EQU X'04' ._ RESERVED 345 
3407 * EQU X‘02' . RESERVED 345 
3408 * X‘O1' . RESERVED 07 345 
005A 3409 TUBDGTUB EQU  TUBATTRB+2 _DISPLAY STATION POINTER TO GAIJI TUB 346 
3410 * REFERENCE GEXTB MACRO FOR DESCRIPTION 346 
005B 3411 TUBATTRC EQU TUBDGTUB+1 ATTRIBUTE BYTE 12 03} 0035 49 
0080 3413 TUBOILGJ EQU ‘80° . 0 OPTION TAKEN ON INVALID EXTN CHAR 346 
0040 3414 TUBOUNGJ EQU  X'40' . 0 OPTION ON AN UNDEFINED EXTN CHAR 09 003F 346 
X'20' 0 OPTION ON A RAM FULL ERROR 6040 346 
0010 3416 TUB2RF EQ X'10° . 2 OPTION TAKEN ON A RAN FULL ERROR 346 
0008 3417 TUB2IG EQ xX‘08' . 2 OPTION ON AN INVALID EXTN CHAR 10 34% 
0018 3418 TUBZUG .2 OPTION ON AN UNDEFINED EXTN CHAR 
0004 3419 TUBMHELP EQU  X‘04" . HIGH LEVEL HELP AID IN PROGRESS 
0002 3420 TUBLOPT EQU x'02' . 1 OPTION TAKEN ON ABOVE ERROR 1] 
0001 3421 TUBRAYER EQU X‘O1' ._SET OFF WSQS_INTLK ON LOAD RAM ERROR 
OO5F 3422 TUBRSVD EQU TUBATTRC+4 RESERVED 
0060 3423 TUBLEN EQU TUBRSVD+1 LENGTH OF A DISPLAY TUB 1 
eee | 
3425 * 
3426 RRKAAKKKAAKAEAKEKKAAKKKKKKRKARAERKKRKRAERAKRAKKKAKKAAKRKKKKK REAR 14 
3427_.* PRINTER UNIQUE PORTION OF THE TUB ® 
3428 RERKAKKAAKAKAEREKKAKAERKRKKKKKAARARKREKRAARAKAAAKKAKKRKKAERKHKRKAAERRERKKKAKK 
3429 * 15] 
0026 3431 TUBPEXTa EQU REMOTE WORKSTATION TUB ADDRESS PRINTERS) 
0027 3432 TUBPRESV EQU RESERVED BYTE 16 
0028 3433 TUBPFMNO EQU FORMS NUMBER 
002C 3434 TUBPFILN EQU FORMS LENGTH (LINES/PAGE) 
002D 3435 TUBPCRLN EQU CURRENT LINE 7 
O02E 3436 TUBPYXPP EQU MAX PRINT POSITION CHORI ZONTAL * 
002F 3437 TUBDPRST EQU PRINTER STATUS BYTE 
0080 3438 TUBSPUPM EQU . POST USER ON ERROR MESSAGE 18 
0040 3439 TUBSDPST EQU . PRINTER PAST READY 
0020 3440 TUBSEXTD EQU . THIS PRINTER TUB HAS AN ADDITION 
3441 * EQU . RESERVED 19 


3442_* EQU ._ RESERVED 
EQU. Xx" . RESERVED 


C08 
VO9/11/81 12/08/81 21:28 
ADDR STMT SOURCE STATEMENT 


0390 1738 NUBOSTQE EQU NUACSETC+NULACE DISPATCHER TOE 
8 * _ (LENGTH OF A TQED 


0008 1739 NULTQE EQU 
1740 ® 
0398 1741 NU@MNTQE EQU NUADSTQE+NULTQE MIDNIGHT TQE 


NUBTINTQE+NULTQE STATISTICS DATA LOG TIME Q ELEMENT 


0308 1745 NURATOF FOU NUlANI TOF eNUI TOF ASSIGN/EREE CAILITTE TIME O FI EMENT 


ity Whe VE VOT TI ad PL ALUT ES PREC PUNUP LUN OFIt ‘ 
4945 *** END OF EXPANSION ** 
OE4A 35 01 OF8O 4946 ATEOO6O L RTALLOC+3, XR1 XR1-> RIB BYTE 
OE4E 1C 00 0E56 00 4947 (WC ATEOO70+3(1),0¢, XR1) MOVE IN ERROR CODE 
0E53 C2 01 0000 4948 ATEOO70 LA #,XR1 LOAD ERROR CODE IN XR] 
XR2-> CURRENT TCB 
L 321, TCB2 GET TCB ADDRESS. 
4951 *** END OF EXPANSION ** 
OE5B B5 02 17 L TCBCRBC, TCB2), RB2 XR2-> CURRENT RB 
OESE B5 02 05 L RBSXR2(, RB2), XR2 XR2-> PASSED XR2 VALUE 
0€61 CO 87 0DC6 B AT000370 GO EXIT ROUTINE 


PAGE 78 VO9/11/81 12/08/81 21:28 #SVAT TCB ATTACH TRANSIENT 


77, VO9/11/81 12/08/81 21:28 


#SVAT TCB ATTACH TRANSIENT 
1 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADD 


SL 02 3444 * EQU X‘02" . RESERVED 
3445 * EQU. X‘Ol' ~_RESERVED 
0030 3446 TUBPLEN EQU TUBDPRST+] = LENGTH OF A BASIC PRINTER TUB 


3447 RRAKAAAKRRARAAAK AAR k KERARRARRAAKAAAKAKKK RK RRA REA RAR IEREREREAB IR III IAIN 


3448 * PRINTER TUB ADDITION ® 
344) RARRRRRRRRARRAARARARRRERAARRERARRARARRERARERARRERRRERERERRRRRRERRRRRRRR 
0031 3450 TUBPSUBC EQU  TUBPLEN+1 SUBCONSOLE LOGICAL ID 
0033 3451 TUBPGTUB EQU  TUBPSUBC+2 — POINTER TO GAIJI TUB (PRINTERS) 


03) 


3452 * REFERENCE GEXTB MACRO FOR DESCRIPTION 
05 0034 3453 TUBPATR1 EQU TUBPGTUB+1 © PRINTER ATTRIBUTE BYTE ONE 
0080 3454 TUBKPNTR EQU X'80" . IGC CAPABLE PRINTER 
0040 3455 TUBGATJP EQU  X‘40° ~ EXTD PROCESSING ON FOR THIS PRINTER 
06 3456 * EQU X'20° . RESERVED 
3457 * EQU X'10° ._ RESERVED 
3458 * EQ x‘08" ~ RESERVED 
07 3459 * EQU X'04" . RESERVED 
3460 * EQU X‘02" ._ RESERVED 
3461 * FQU- X‘O1" ~ RESERVED 
08 0035 3462 TUBPLPI EQU TUBPATRI+1 LINES PER INCH 
3463 * LEFT NIBBLE = LAST VALUE SENT 
3464 ® RIGHT NIBBLE = DEFAULT VALUE 


003F 3465 TUBPERES EQU TUBPLPI+10 RESERVED AREA 
0040 3466 TUBPELEN EQU  TUBPERES+] — LENGTH OF A_ PRINTER TUB WITH ADDITION 


3467 * 
3468 *** END OF EXPANSION ** 


10 


11 


ERS) 


SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


1781 * PUPEQ 

0001 1782 PUSHOCH EQU 1 POINTER TO NEXT PUSH ELEMENT 

0003 1783 PUSHOSS EQU  PUSHOCH+2 SS OF TWA ALLOCATED ON DISK 

0004 1784 PUSHIND EQU PUSHOSS+1 PUSH INDICATOR 

0080 1785 PUSHPART EQU  X‘80' * TASK PUSHED PARTIALLY TO DISK 
1786 * NOTE THAT A VALUE OF X‘FF‘ IN THIS BYTE INDICATES THAT 


VOUS LY OF UU wv 


010 
y 09/11/81 12/08/81 21:28 #SVAT TCB ATTACH TRANSIENT PAGE 79 09/11/81 12/08/81 21:28 a #SVAT TCB ATTACH TRANSIENT 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR 
3470 * SUB 00843000 | 02 
3471 RERAKRKRKKRAARAERKAARARRKER AKA AAAARAKEKKRARKKK AAR KKARRA RRR RRA RRR IIR, 
3472 * ® 
HK 3473 * SESSION UNIT BLOCK FOR ICS SESSIONS ® 03 
® 3474.® ® 0000 
KKK 3475 RERKKAKAKRAKKRRAARARAKRKAAAKKKR KARA KRRKKAKKRKAKKKKKAK KKK AA KARA KAR, 
3476 * 00 = * 01 =" 020 «* 03) 04) 05 06*07 * 04 0080 
3477 * ECN * COMP! * COMP2 * CMOD *CIND * ~DATAa =“ FFL * 
3478 RRKKKAKKRARAKAARRAAAKAARARRAAAARAARRKKKRAK KKK KAKA AKAK AAR ERR, 
3479 * OR 08 * 09 OA * 0B oc * 0D Oc * OF * 05} 
3480 * OUTL * —ASGNL * _ SSBa * _XSCRa—* -BUBa * 0001 
3481 RRAARKRRRAAAKARAARAKKAKAARKARAAARRAAAAAKAKAKKE AK RKAAK KKK KAKA IR IIR, 0080 : 
3482" 10% 11 * 12 13%14 0 * 15 we 17 * 06 0040 
3483 * SNUBa * BFFLG * = CHAIN, = * STSKI * —_XFACT * XPRIA * 
3484 RARAAAERAAAAAKKKRKARAAAKRAKAKARARRA RA ARK KAR AARAARAKKRRA KK ARRAN man 
3485 * 18*19 * 1A * 1B XCHNA IC * 1D 1E* IF 07 
3486 * * RES] * RES2_* OR RES3 RES4" —ASGNal ® WSID * 0002 : 
3487 RKKKKRERRAAAKKRAAAARAARARAAKAKAKRRRRKRARKRAAAAKAKKKRAAKKAKRKKAKAKAK RIK, 0040 4 
3488 * 20 * 21 22% 23 USER 24% 25 % 26 2* 08 ; 
3489 * * SHA * __‘TCBa * UTSKI * Loca * 3 
3490 REREAAARAKKAAAAKRAAKRARAARAAAKAERAARRRRARARRARRAAAAERKAKAAEKAAKKAR AK 
3491 * 28 oF * 09 0003 3 
3492 * USER ID * 0020 3 
3493 RAAKKAARKREKAAKEAARARRKRRERKRKEREKRRRARKRKKKAKKKKKAREKEKAKKERRKKRK, 0030 3 
3494* 300-8 31 32 * 33 34*35 836% 37% 10} 0010 3 
3495 * OPSTS * JCB * —_QSHOR * ATTRI * ATTR2 * ATTR3 * 0028 3 
3496 KRRAKKRRARARKARARAAAARARKAAAKRAKARERKARAAARAAARAKEAARAK KRAKRAKKERA RAK 0008 3 
3497 *38 «8390 BAB 3C * 30 3E °F * 11 0024 3 
3498 * LIN® * ATTRS * ATTRO * UNUSED * = APRNT = ® * 0004 3 
3499 RERARKARERAKKKERAAKKRAERKAKRAAKKARERARERKRAREKKKKLKAKEREKERKAAK KAKA 0022 3 
3500 * 40 41 * 42 43 * 44 4% 4 * 47% L 0002 3 
3501 * _OSKa * RECL == * ~—_XPRL * BFLG2 * UNUSED* 0021 3 
3502 RARRKRRARRKRAKKRAKCAKRKAAAAAKRAKKAKAKARARRAERERERRKAAAKKKRAKRKRERR AAR, 0001 3 
1 0022 3 
0002 3 
14 0004 3 
0001 3 
0002 3 
15) 0004 3 
0008 3 
0010 3 
16 0020 3 
0030 3 
0040 3 
17 0080 3 
O0EO 3 
O0FO 3 
18 OOFF 3 
0006 3 
19 0008 3 
0008 3 
000A 3 
0 


C10 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDF 


RBEQU 
0001 1797 RBSCHAIN EQU ADDRES OF NEXT REQUEST BLOCK 


VO9/11/81 12/08/81 21:28 


00843000 


OED3 BS 02 EA 


ERR LOC OBJECT CODE 


te ee 


L ATTCBC, BAS2), TCB2 


XR2-> ASSIGNED TCB 
RETURN TO CALLER 


QEDC 5005 ATALLSZ DS  CL3 

OEE1 5006 ATSVELM DS = CL5 

QEEO 5007 ATSVSSVL EQU  ATSVELM-1 
QEEO 5008 ALSSS — EQU _ATSVSSVL 
OEDE 5009 ATSVCHAN EQU  ATSVELM-3 
OEE] 5010 ATSV#BYT EQU  ATSVELM 


TCBTSSN HOLD AREA 
SAVE ELEMENT ADDRESS 
SS START VALUE 

SS VALUE ALLOCATED 
FORWARD CHAIN ADDRESS 
# BYTES IN INDEX 


OF3F 5E 00 3F 3F 
OF 43 00 20 39 


OF 46 76 02 AD 
OF 49 SF 00 04 37 
OF 4D DO 02 36 


OF50 1C 00 0000 DO 


OF55 7D 00 00 
OF58 75 02 01 
OF5B DO 01 10 


OF5E 75 02 A? 
OF61 9C 02 30 A4 


OF65 F4 01 04 
OF68 35 


OF69 74 02 A? 


#SVAT TCB ATTACH TRANSIENT 


01 
ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STF 
3504 RRKEKKRKARAAAAAAAAAAKKERAKAARA RE RK AREA AKRA KR KAKA RRA RKAREIRRRERERIRIR IP IRI IR 02 000C 355 
3505 * SESSION UNIT BLOCK (SUB) 7 OO0E 355 
3506 RARAARAAKRRAAARARAKRARARARARRAKARARAAR AAA RRR RARAAA KARR AAA AARARARRREER 0010 356 
03 0010 356 
0000 3508 SUBECN €QU — TUBECN EVENT CONTROL MASK Let enone 0010 356 
0080 3510 SUBSSKIP EQU  TUBSSKIP . NO SKIP BIT 04 0011 356 
3511 * BITS 182 NOT USED 0080 356 
3512 * BITS 3-7 MUST BE ZERO 356 
05 356 
0001 3514 SUBCOMP1 EQU — TUBCOMPL SUB COMPLETION BYTE 1 356 
0080 3515 SUBSACTV EQU  x'80° _ SUB REQUEST ACTIVE 0040 356 
0040 3516 SUBSCMPL EQU X'40' =. SUB REQUEST COMPLETE 06 357 
3517 * BITS 2:7 ARE USED TO REFLECT THE MINOR RETURN CODES - SEE MACRO 357 
@ * $DTFO FOR THE DEFINED SET OF MINOR RETURN CODES. 357 
07 0020 357 
0002 350 SUBCOMP2 EQU — TUBFLAG SUB COMPLETION BYTE 2 357 
0040 3521 SUBSSPRC EQU  X‘40° . [MS SPANNED RECORDS 357 
3522 * THE REMAINING VALUES ARE POSSIBLE MAJOR RETURN CODES - SEE 08 357 
3523 * MACRO SOTFO FOR THE POSSIBLE MAJOR RETURN CODE VALUES. 0010 357 
357 
0003 3525 SUBCMOD EQU  TUBCMND SUB COMMAND MODIFIER 09 357 
0020 3526 SUBSEXEC EQU  X'20' . SESSION EXEC 1/0 OPERATION CODE 358 
0030 3527 SUBSEOX EQU X‘30° . SESSION EOX MODIFIER 0008 358 
0010 3528 SUBSEOXM EQU X'10' . SESSION EOX MODIFIER 10 358: 
0028 3529 SUBSPTH EQU  X‘28' . SESSION PASS THRU MODIFIER 358 
0008 3530 SUBSPTHM EQU  X‘08‘ . SESSION PASS THRU MODIFIER 358 
0024 3531 SUBSFMH EQU X'‘24' . SESSION FH MODIFIER 11 0004 358: 
0004 3532 SUBSFMHN EQU  X'04' . SESSION FMH MODIFIER 358 
0022 3533 SUBSEOC EQU  X‘22° . SESSION EOC MODIFIER 358 
0002 3534 SUBSEOCM EQU X'02" . SESSION EOC MODIFIER 12 358 
0021 3535 SUBSFAIL EQU  X'21' . SESSION FAIL MODIFIER 358 
0001 3536 SUBSFAIN EQU  X‘Ol' ~ SESSION FAIL MODIFIER 0002 35% 
0022 3537 SUBSEOF EQU  SUBSEOC . SESSION EOF MODIFIER 13 359 
0002 3538 SUBSEOFM EQU  SUBSEOCN . SESSION EOF MODIFIER 359; 
359. 
0004 3540 SUBCYND EQU  TUBCMOD SUB COMMAND CODE 14 359: 
0001 3541 SUBSGET EQU  X‘O1' . GET OPERATION 359! 
BSPUT EQU  X‘02' . PUT OPERATION 0001 359 
0004 3543 SUBSEVOK EQU X‘04" . EVOKE OPERATION 359 
0008 3544 SUBSRCD EQU xX‘08' «REQUEST CHANGE OF DIRECTION 359% 
0010 3545 SUBSREL EQU  xX‘l0° ~ RELEASE OPERATION 35% 
0020 3546 SUBSACQ EQU X'20° . ACQUIRE OPERATION 16 
0030 3547 SUBSSACQ EQU  X'30' . SPECIAL ACQUIRE OPERATION 0013 360! 
0040 3548 SUBSCAN EQU  x*40' . CANCEL OPERATION 0014 3602 
0080 3549 SUBSNRP EQU xX‘80' . NEGATIVE RESPONSE VV 
ODEO 3550 SUBSEOSN EQU  X‘EO' . NORMAL END OF STEP OR JOB 
OOFO 3551 SUBSEOSA EQU  X'FO" . ABNORMAL END OF STEP OR JOB 0016 3604 
OOFF 3552 SUBSASF EQU X'FF‘ . ASSIGN FAILURE IN [CSSQS I 360! 
3606 
0006 3554 SUBDATAa EQU SUBCIWD+2 DATA BUFFER ADDRESS 
0008 3555 SUBOUTL EQU SUBDATAa+2 OUTPUT LENGTH 19 
0008 3556 SUBEFFL EQU  SUBOUTL EFFECTIVE INPUT LENGTH 0018 360% 
OO0A 3557 SUBASGNL EQU SUBOUTL+2 ASSIGNED GR PREALLOCATED BUFFER LENGTH 0019 360° 


Cll 


#SVAT TCB ATTACH TRANSIE! 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


® 


07275000 


VO9/11/81 12/08/81 21:28 ot 


OF38 5F 00 A5 37 5042 SLC ALST2(1,BAS1),ALLO0020+1¢,BAS1) ALLOCATED ALL ? 


OF3C F2 04 3B 5043 JNH — ALLOOO80 


OF 3F 5E 00 3F 3F 
OF 43 DO 20 39 


A ALONE, BAS1), F52 
OF 49 5F 00 04 37 SLC ATSV#BYTC1,BAS1),ALLO0020+1¢,BAS1) DONE WITH AREA 
OF 4D DO 02 36 BNL __ALL00020¢, BAS1) 


OF50 1C 00 0000 DO 


OF58 75 02 01 
OF5B DO 01 10 


OFSE 75 02 A7 L 
OF61 9C 02 30 A4 


5049 ALLOOO75 MVC #¢#), ALSAVE(, BAS1) 
OF55 7D 00 00 5050 CLI ATSVCHAN-1¢,BAS1),0 

ATSVCHANC, BAS1), F52 
BNE — ALLO0010¢, BAS1) 


ATTCBC, BAS1), TCB2 
MVC ATSVSIZE(3, TCB2), ATALSIZ¢,BAS1) SAVE SIZE AND ARR 


YES, ALLOCATION DONE 


5044 ALLOOO70 ALC —ALLO0040+1¢1,BAS1), ALLO0040+1(,BAS1) DOUBLE Q-CODE 
BNOL ALLO0030¢, BAS1) 


NOT DONE BRANCH 

BUMP TO NEXT BYTE 

NO, CHECK NEXT BYTE 
RESTORE MASTER PATTERN 
ANY MORE CHAINS ? 

GO CHECK CHAIN OF 07641400 
INDEX ELEMENTS 07642100 | 17 


XR2-> ASSIGNED TCB 07642800 
07643500 | 1 


SXFER_ID-RSVTX, REFRESH-YES CALL #SVTX 07644200 


OF65 F4 01 04 SVC 
OF68 35 OF68 5057 DC = ALICRSVTX) 
5058 *** END OF EXPANSION ** 


OF69 74 02 A? 5059 ST ATTCBC, BAS1), TCB2 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 

02 OOOC 3558 SUBSSBA EQU  SLIBASGNL +2 
OOOE 3559 SUBXSCRA EQU  SUBSSBa+2 
0010 3560 SUBBUBA EQU — SUBXSCRa+2 

03) 0010 3561 SUBSNUBA EQU  SUBBUBA 
0010 3562 SUBTSUBa EQU  SUBBUBa 


04 0011 3564 SUBBFFLG EQU  SUBBUBa+1 
0080 3565 SUBSPRAL EQU  X'80' 
3566 * 
05) 3567 * 
3568 * 


0020 3573 SUBSDOD EQU X'‘20' 


STORE TCB ADDRESS 


D12 
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ADDRESS OF SESSION OCL CNTL. BLOCK 02 
ADDRESS OF SUBSYTEM CONTROL TABLE 

ADDRESS OF ASSOCIATED BUB 

ADDRESS OF ASSOCIATED SNUB 03 
ADDRESS OF TARGET SUB 


FLAG BYTE FOR BUFFER USAGE 04 
«BUFFER IS PREALLOCATED 
THE SUBSYSTEM HAS ALLOCATED A BUFFER 
OF LENGTH SUBASGNL AND ADDRESS OF 05 
SUBASGNA. 
. SUBSYSTEM SUPPORTS DATA ON DISK 
IF AN ASSIGN FAILS FOR AN OUTPUT 
OPERATION, THEN ICFOM WILL WRITE 
THE DATA TO DISK. 
. DATA IS ON DISK 


3574 * 
3575 *® 
08 3576 * 
0010 3577 SUBSNRPV EQU X'10" 
3578 * 
09 3579 *® 
3580 * 
0008 3581 SUBSPSTH EQU  X‘08' 
10 3582 * 
3583 * 
3584 * 
ll 0004 3585 SUBSALCQ EQU X'04' 
3586 * 
3587 * 
12 3588 * 
3589 * 
0002 3590 SUBSALSQ EQU X'02" 
13 3591 * 
3592 * 
3593 * 


0001 3596 SUBDFRSP EQU  X‘Ol 

15) 3597 * 
3598 * 

3599 *® 


0013 3601 SUBCHAIN EQU  TUBCHAIN 


THIS BIT IS SET ON BY THE SUBSYSTEM 

OR ICFOM TO INDICATE INPUT OR OUTPUT 

DATA IS ON DISK. $ 
«NEGATIVE RESPONSE OPERATION VALID 

THIS BIT IS SET ON BY THE SUBSYSTEM 

TO INDICATE IF A NEGATIVE RESPONSE 09) 

OPERATION IS VALID. 
. THIS IS A PASS THRU USER 


THIS BIT IS SET ON BY THE SNUF 10 
SUBSYSTEM TO INDICATE A PASS THRU 
SESSION. 

. COMMON QUEUE SPACE IS ALLOCATED - 11 


THIS BIT IS SET ON BY ICFOM AFTER 
ASSIGNING A BUFFER IN COMMON QUEUE 
SPACE. SUBXPRL IS THE LENGTH AND 12 
SUBXPRMa THE ADDRESS. 

. SUBSYTEM QUEUE SPACE COR COMMON 
THIS BIT IS SET ON BY ICFOM OR THE 13 
SUBSYSTEM AFTER ASSIGNING A BUFFER 
IN THE SUBSYSTEM'S QUEUE SPACE. 
SUBASGNL AND SUBASGN@ ARE THE LENGTH 14 
AND ADDRESS. 


- DEFINITE RESPONSE - DON'T DO READ AHEAD 


THIS BIT IS SET ON BY THE SUBSYSTEM 1 
TO PREVENT ICFOM FROM DOING A READ 
AHEAD GET OPERATION WHEN CD NOT REC. 


SUB CHAIN FIELD 


0014 3602 SUBSTSKI EQU SUBCHAIN+! SUBSYSTEM TASK ID 


0016 oe SEAT EQU  SUBSTSKI+2 


ane 


PAD TO ADD TO BUFFER LENGTH 


. LEFT HAND BYTE IS FOR INPUT 
- RIGHT HAND BYTE IS FOR OUTPUT 


0018 3608 SUBXPRIA EQU  SUBXFACT+2 


ADDRESS OF OPERATION PARM LIST 
RESERVED FOR SUBSYSTEM USE 


0019 3609 SUBSRES1 EQU — SUBXPRMa+1 


0001 1869 SCAMDSIZ EQU  X‘O1' 
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X'OL* - DISK FILE SI2E 


ERR LOC OBJECT CODE 


#SVAT TCB ATTACH TRANSIENT 


ADDR STM 


OO1A 361 
001C 361 
0018 361. 
001C 361: 
OO1E 361: 


0020 361 
0022 361 
0022 361% 
0024 361! 
0025 362 
0027 362) 


002F 362: 
0030 362: 


JAIN *®& 


f - 9 MECARVTFS nNIcY 


07642100 


07642800 
07643500 
07644200 


07644900 


81 09/11/81 12/08/81 21:28 
ERR LOC OBJECT CODE 


IFFER 
IF 


4 11/81 12/08/81 21: 
ERR LOC OBJECT CODE 


oN eS 


#SVAT TCB ATTACH TRANSIENT 
1 


ADDR STMT SOURCE STATEMENT 


OO1A 3610 SUBSRES2 EQU SUBSRES1+1 
OO1C 3611 SUBXCHNA EQU  SUBSRES2+2 
001B 3612 SUBSRES3 EQU  SUBSRES2+1 
OO1C 3613 SUBSRES4 EQU  SUBSRES3+1 
OO1E 3614 SUBASGNA EQU — SUBXCHNa+2 


0020 3616 SUBWSID EQU TUBWSID 
0022 3617 SUBWSWA EQU  TUBWSWA 
0022 3618 SUBPCFGA EQU  SUBWSWA 
0024 3619 SUBTCB EQU  TUBTCB 
0025 3620 SUBUTSKI EQU  SUBTCB+1 
0027 3621 SUBLOCA EQU  SUBUTSKI+2 


OO2F 3623 SUBUSER EQU  TUBUSER 
0030 3624 SUBOPSTS EQU  TUBOPSTS 
0032 3625 SUBJCBa EQU TUBJCBA 
0034 3626 SUBQSHOR EQU  SUBJCBa+2 


0035 3628 SUBATTRI EQU TUBATTRI 
0040 3629 SUBDSAP EQU  TUBACN 

0020 3630 SUBCMOT EQU = TUBCMDT 
0010 3631 SUBSGN EQU  TUBSGN 

0008 3632 SUBFTOD EQU  TUBTSRQ 
0004 3633 SUBSTPJ EQU TUBSTPJ 
0002 3634 SUBDSAB EQU  TUBLIOFR 
0001 3635 SUBGFAL EQU  TUBFCNSL 
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RESERVED FOR SUBSYSTEM USE 
CHAIN POINTER TO NEXT XSUB 
RESERVED FOR SUBSYSTEM USE 
RESERVED FOR SUBSYSTEM USE 
ADDRESS OF ASSIGNED AREA 


PHYSICAL ID OF THE SESSION 

SS OF SESSION WORK AREA 

SS OF PRINTER CONFIGUARTION RECORD 
SUB OWNER TCB ADDRESS 

SUB OWNER TASK [0 

LOCATION ADDRESS 


SESSION USER ID 
SESSION STATUS 
ADDRESS OF JCB 
ADDRESS OF SUBSYS. Q-SPACE HEADER 


ATTRIBUTE BYTE 1 

« DISABLE IS PENDING IN SUB 

. SUB IS A REQUESTOR SESSION 

. SESSION SUCCESSFULLY SIGNED ON 

. FIRST TIME OPERATION 1S DONE 

. JOB INITIATION NOT ALLOWED 
DISABLE KILL PENDING 

-_X'B1" MAJOR RETURN CODE RECEIVED 


3636 * REMAINING BIT 1S NOT DEFINED 


0036 3637 SUBATTR2 EQU TUBATTR2 


0080 3639 SUBMSTDY EQU  TUBMSTDY 
0010 3640 SUBMDATA EQU  TUBMDATA 


ATTRIBUTE BYTE 2 


. SESSION IS COMMAND CAPABLE 
« SESSION HAS AN ASSOC. JCB 


3641_* THE REMAINING BITS ARE RESERVED 


0037 3643 SUBATTR3 EQU TUBATTR3 


0080 3645 SUBIIS EQU TUBIIS 
0040 3646 SUBIMI EQU  TUBINI 
0020 3647 SUBIPS EQU  TUBIPS 
0010 3648 SUBIARF EQU  TUBIARF 
3649 * BITS 4-7 NOT DEFINED 


0038 3651 SUBLIN® EQU  TUBATTR4 


0000 3653 SUBLINI EQ 0 
0001 3654 SUBLIN] EQU 1 
0002 3655 SUBLIN2 EQU 2 


0039 3657 SUBATTRS EQU = TUBATTRS 


0020 3659 SUBEOXR EQU  TUBLOP 
0004 3660 SUBREL EQU  TUBREL 
0002 3661 SUBSRQ EQU TUBSRQ 
0001 3662 SUBABTRM EQU  TUBABTRM 


INVITE INDICATORS 


. INVITE SCHEOULED TO SUB 

~ [IMPLICIT INVITE TO SUB 
._INVITE DONE BY PREVIOUS STEP 
. AUTO-PRUF INVITE 


LINE NUMBER OF SESSION 


. LINE NUMBER FOR INTRA SUBSYSTEM 
. LINE NUMBER 1 
. LINE NUMBER 2 


ATTRIBUTE 5 


._END OF TRANSACTION CODE RECEIVED 
. SESSION RELEASED 

« SRT RELEASED REQUESTOR 

- CALL TERMINATION PRIOR TO RELEASE 


3663 * OTHER 4 BITS ARE NOT DEFINED 


#SVAT TCB ATTACH TRANSIE 


ADDR STMT SOURCE STATEMENT 


0080 1923 SCAMBSCA EQU 


0020 1924 SCAMSRJE EQU 
0040 1925 SCAMARJE EQU 
0010 1926 SCANSNA EQU 
0008 1927 SCAMRWS EQU 


C13 
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12/08/81 21:28 #SVAT TCB ATTACH TRANSIE 


ERR LOC OBJECT CODE 


! 


*SVAT TCB ATTACH TRANS 


ERR LOC OBJECT CODE 


15 
16 
7 
18 
1 
014 
J09711/81 12/08/81 21:28 ‘ #SVAT TCB ATTACH TRANSIENT PAGE 83 09/11/81 12/08/81 21:28 01 SVAT TCB ATTACH TRANSIENT 

ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR SI 

02) 02 3 

003A 3665 SUBATTR6 EQU _ TUBATTR6 ATTRIBUTE BYTE 6 s 

03 0080 3667 SUBRAHD EQU  TUBUSLP . READ AHEAD DONE 03 x 

0040 3668 SUBO412 EQU _TUBUSSV . 0411/12 RETURN CODE GIVEN 0001. 3¢ 

0020 3669 SUBRQCD EQU  TUBSYLST « ROCD RECEIVED IN READ AHEAD MODE 0000 36 

04 0004 3670 SUBNCOM EQU  TUBSRILK . NON-COMMUNICATING SESSION. 04 0002 3¢ 

0008 3671 SUBMRDTA EQU  TUBMRDTA «NRT PROC WITH DATA ENTERED 0004 37 

3672 * BITS 3 AND 5-7 UNUSED 0000-37 

05) 05) 0040 37 

3674 ® TWO UNUSED BYTES 0000 2 

7 

06) 003E 3676 SUBAPRNT EQU  TUBAPRNT ID OF ASSOCIATED PRINTER 06 37 

0041 3677 SUBDSKA EQU SUBAPRNT+3 SSS VALUE OF PREALLOCATED DISK AREA 37 

0043 3678 SUBRECL EQU SUBDSKa+2 MAXIMUM TRANSMISSION RECORD LENGTH 0000 37 

; 07 0045 3679 SUBXPRL EQU SUBRECL+2 LENGTH OF ASSOCIATED PARN LIST 7 0001 37 

‘ 0002 37 

0046 3681 SUBBFLG2 EQU  SUBXPRL+] FLAG BYTE TWO 0003 37 

08 0080 3682 SUBSFALV EQU § X‘80" . FAIL OPERATION IS VALIO 08 0004 37 

3683 * THIS BIT IS SET ON BY THE SUBSYSTEM 0005 37 

3684 * TO INDICATE IF A FAIL OPERATION 0006 37 

09 3685 * IS VALID. 09 0007 37 

0040 3686 SUBSINV EQU X‘40' OPERATION IS WITH INVITE 0008 37 

0009 37 

10) 3688 * BITS 1-7 NOT DEFINED 10 000A 37 

0008 37 

0048 3690 SUBLENGH EQU 72 LENGTH OF A SUB 000C 37 

ll 3691 *** END OF EXPANSION ** 8 000C 37 

0017 37 


12 37 


— 
ined 


— 
Ww 


ray 


15 0039 37 


~ 
Wi 


16 


V? 0001 37 


~ 
<i 


18 0008 37. 


> — 
ie] [==] 


: x S 
vyvy 


cop] 
~~ 
By 
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ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


002F 1977 SCACONFG EQU SCADSSIO#+2 2 SS OF CONFIGURATION RECORD 
1978 * 
0031 1979 SCASHIST EQU SCACONFG+2 2 START SS OF HISTORY FILE 
03} 0033 1980 SCAHFSIZ EQU SCASHIST#2 2 SIZE OF HISTORY FILE 


cE 


83 VO9/11/81 12/08/81 21:28 


47 VO9/11/81 12/08/81 21:28 


#SVAT CB ATTACH TRANSIENT O1 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


3695 * GENERAL TASK WORK AREA ACCESS EQUATES 


03 3696 * 03 
0001 3697 TWAPUT EQU X'‘01' PUT TO TASK WORK AREA 
0000 3698 TWAGET EQU x‘00" GET FROM TASK WORK AREA 
04 0002 3699 TWASYS EQU X‘02' SYSTEM REQUEST ¢ XR] = TCB a ) 04 
0004 3700 TWAWSWA EQU  X‘04" USE WORKSTATION WORK AREA 
0000 3701 TWATWA EQU  xK‘00" USE ALLOCATED TASK WORK AREA 
05 0040 3702 TWAREAL EQU xX'40' DATA AREA IN REAL STORAGE 05 
0000 3703 TWAXLATE EQU  X'00' DATA AREA IN TRANSLATED STORAGE 
3704 * 
06) 3705 * WORKSTATION WORK AREA - ONE PER COMMAND WORKSTATION 06) 
3706 * 
0000 3707 TPPAEOV EQU 0 TAG 0 - SAVE AREA FOR RD EOV 
0001 3708 TWAYPS12 EQU 1 TAG 1 - PROCEDURE PARM SAVE AREA 
0002 3709 TWAMPS34 EQU 2 TAG 2 - PROCEDURE PARM SAVE AREA 
0003 3710 TWAMPSS6 EQU 3 TAG 3 - PROCEDURE PARM SAVE AREA 
0004 3711 TWAMPS78 EQU 4 TAG 4 - PROCEDURE PARM SAVE AREA 
0005 3712 TWAAPSOA EQU 5 TAG 5 - PROCEDURE PARM SAVE AREA 
0006 3713 TWASPSBC EQU 6 TAG 6 - PROCEDURE PARM SAVE AREA 
09 0007 3714 TWAMPSDE EQU 7 TAG 7 - PROCEDURE PARM SAVE AREA 09 
0008 3715 TWHPPSFO EQU 8 TAG 8 - PROCEDURE PARM SAVE AREA 
0009 3716 TWAMLCL EQU 9 TAG 9 - LOCAL AREA 
10 OOOA 3717 TWAASINS EQU 10 TAG 10- SYSIN SAVE AREA 10 
0008 3718 TWAMMDSA EQU 11 TAG _11- MRT DATA SAVE AREA 
O00C 3719 TWARSAVE EQU 12 TAG 12- SAVE/RESTORE AREA CLENGTH-33) 
11 000C 3720 TWAPUSER EQU 12 P USER SAVE AREA (12-22) ll 
0017 3721 TWAYINQ EQU 23 : INQUIRY SAVE AREA (23-33) 
0022 3722 TWAMLGIO EQU 34 : LOGICAL 170 RESERVED AREA (34-44) 
12 3723 * 44 TAG 44- END OF SAVE/RESTORE AREAS 1 
0020 3724 TWAAWSSS EQU 45 TAG 45- WORK STATION CONFIGURATION 
OO2E 3725 TWAACOMT EQU 46 TAG 46- COMMUNICATIONS CONFIGURATION 
13 O02F 3726 TWAPLOGR EQU 47 TAG 47~ SYSLOG RESPONSE DATA 1 
0030 3727 TWAFLOGC EQU 48 TAG 48- SYSLOG COMMINCATIONS TO CONSOLE 
0031 3728 TWAPTKMQ EQU 49 TAG 49- TASK MESSAGE QUEUE AREA 
14 3729 * 54 TAG 54~ END OF MESSAGE QUEUE AREA 14 
0037 3730 TWAMOCLC EQU 55 TAG 55- OCL COMMAND SAVE AREA 
0038 3731 TWAPXLAT EQU 56 TAG 56- TRANSLATE TABLE AREA 
15 0039 3732 TWOARRNG EQU 57 TAG 57~ DUAL MESSAGE ROUTING AREA 15 
3733 * 58 TAG 58- RESERVED THRU 59 
734 * 
16 3735 * COMMAND PROCESSOR TAGS 16 
3736 * 
0000 3737 TWAPNUSE EQU 00 TAG 00- NOT USED 
7 0001 3738 TWAYSCO] EQU 01 TAG O1- SYSTEM CONSOLE IMAGE 17 
3739 * 07 TAG 07- END 
0014 3740 TWAPCEND EQU 20 NUMBER OF IMAGES 
18 0008 3741 TWAMIQO! EQU 08 TAG 08- MESSAGE QUEUE 18 
3742 * 3 TAG 13- END OF MESSAGE QUEUE TAGS 
OOOE 3743 TWAPCURT EQU 14 TAG 14- CURRENT SYSTEM PRINTER IMAGE 
19 OOOF 3744 TWAMSCSV EQU 15 TAG 15- SYSTEM CONSOLE SAVE/RESTORE AREAS 19 
OOOF 3745 TWAMCNSL EQU 15 : CONSOLE SAVE AREA (15-26) 
OOIB 3746 TWAAUSSA EQU 27 : WORKSTATION SAVE AREA (27-38) 
0 0 
C15 


*SVAT TCB ATTACH T 


TENT PAGE 48 09/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


905C 2031 SCASYS2 EQU  SCASYSI+1 1 
0080 2032 SCAMATBS EQU  X'80' 


SYSTEM CONFIGURATION BYTE 6 
~ COM TASK BEING ASSIGNED 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE 


A 


RRSZRgge 


SSVAT TCB ATTACH TRANSIE! 


~ WO9/11/81 12/08/81 21:28 , #SVAT TCB ATTACH TRANSIENT 
1 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


00850000 0027 3747 TWAYSTAT EQU 39 
0033 3748 TWAYERPS EQU 51 
3749 * 52 
003C 3750 TWAYCSIMQ EQU 60 
3751 * 119 
3752 * 
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. STATUS SAVE AREA (39-50) 

TAG 51- 1/0 ERP SAVE AREA FOR MSG BUILD 
TAG 52~- RESERVED THRU 59 

TAG 60- CONSOLE SYSLOG MESSAGE QUEUE. 
TAG_119- END OF CONSOLE MESSAGE QUEUE. 


3753 * TWA EXTENSION ELEMENT EQUATES 


3754 * 
0002 3755 TWAXMAP EQU 02 
0003 3756 TWAXMAPL EQU 03 
0004 3757 TWAXNEXT EQU — TWAXMAP+2 
0006 3758 TWAXSS EQU = TWAXNEXT+2 
0007 3759 TWAXN EQU TWAXSS+1 
0008 3760 TWAXLEN EQU  TWAXN+l 
3761 **® END OF EXPANSI.:! ** 


ADDR STMT SOURCE STATEMENT 


0040 2085 SCAMCOUT EQU X'40' 
0020 2086 SCAYHELP EQU  X‘20' 
0010 2087 SCAMCPAF EQU = xX'10' 


TWA AVAILABLE TRACKS MAP 
LENGTH OF MAP FIELD 

CHAIN FIELD 

DISK ADDRESS OF THIS ELEMENT 
CONTAINS LENGTH OF MAP FIELD 
LENGTH OF TWAE 


49 O9/11/81 12/08/81 21:28 


CONSOLE READY TO OUTPUT MESSAGE 
HELP FEATURE ACTIVE [R31 
C. P. WSQS ASSIGN FAILURE {R3] 


SAIUIUER LY Wt 


SATERROS C 001 


02 


03} 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADOR S 


Oe Oe Care| ee ese 


04 


06 00FO 3 


07 OOF6 3 


10 0032 3 


11 0035 3 


15] 


16 


V7 


5/8 8 31 8 318 ¢ 


g 


#SVAT CB ATTACH TRANSIENT 


01 


ERR LOC OBJECT CODE 


SAIDINQY C 001 O0F2 
13]/S$AIDIOER C 001 0001 
SAIDPRNT C 001 00F6 
SAIDRBKS C 001 OOF8 
14) S$AIDRECO C 001 OOFE 
SAIDREDY C 001 OFA 
SATDRLON C 001 OOF4 
L5]SAIDRLSE C 001 OOFF 
SAIDRLUP C 001 O0F5 
SAIDSYRQ C 001 OOFO 


3783 
3809 4655 
3776 
3778 
3811 
3782 
3775 
3810 
3774 
3773 


16] SAIDTEST C 001 003D 3796 


S$ATACHER C 001 0001 0247 4390 4690 
$ATBATCH C 001 0090 0233 

17} $ATCOMON C 001 0040 0241 4252 
SATCREAT C 001 0080 0220 0231 0232 0233 
SATDATA C001 0008 0226 0231 4717 

18] SATDATAA C 001 0018 0249 0250 4528 4723 18) STRBFLG1 C 001 
SATERROI C 001 0001 0256 4421 STRBFLG2 C 001 
SATERRO2 C 001 0002 0257 4456 


SATERRO3 C 001 0003 0259 4448 1 
SATERRO4 C 001 0004 0262 4232 


19 
SATERROS C 001 0005 0263 4514 
20) 
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85 W09/11/81 12/08/61 21:28 #SVAT TCB ATTACH TRANSIENT PAGE 86 VO9/11/81 12/08/81 21:28 #SVAT CB ATTACH TRANSIEN 


01 


ERR LOC OBJECT CODE Al 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


UILD 
3765 * * 
E. 3766 * EQUATES FOR WORK STATION VALUES * 03 
UE. 3767 * x 
3768 * RREREKKRRERAKER RR RARE KR ER RRR ERR ERK KR RK RK 
ee 
3770 * AID BYTES OC 
o 
OOF1 3772 SAIDENTR EQU  x'S1" ENTER/RECORD ADVANCE Oo 
OOFO 3773 SAIDSYRG EQU  X'FO' SYSTEM REQUEST 06) oC 
OOFS 3774 $AIDRLUP EQU X'F5' ROLL_UP a 
OOF 4 3775 SAIDRLON EQU  X'F4* ROLL DOWN o 
OOF6 3776 $AIDPRNT EQU X'F6' PRINT KEY 07 x 
OOF3 3777 SAIDHELP EQU  X'F3" HELP KEY CNON-ERROR MODE) a 
OOF8 3778 SAIDRBKS EQU X'F8' RECORD BACKSPACE KEY a 
OOFB 3779 SAIDHLPE EQU X'FB' HELP KEY IN ERROR MODE 08 
00BD 3780 SAIDCLER EQU X'BD' CLEAR KEY 
OOF2 3781 SAIDATTN EQU  X'F2" ATTENTION/ INQUIRY KEY 
OOFA 3782 $AIDREDY EQU X'FA' NOT READY-->READY TRANSITION AID 09 
OOF2 3783 SAIDINGY EQU X'F2' ATTENTION/ INQUIRY KEY 
0031 3784 SAIDCMOl EQU = X‘31' 
0032 3785 SAIDCMO2 EQU  X°32' 10 
0033 3786 SAIDCMO3 EQU X'33' ox 
0034 3787 SAIDCMO4 EQU  X*34" 00 
0035 3788 SAIDCMOS EQU  X‘35' 1h 00 
0036 3789 SAIDCMOG EQU X'36' x 
V4 00 


0037 3790 SAIDCMO7 EQU = X'37' COMMAND KEY 7 
0038 3791 SAIDCMOS EQU X‘38' OMMAND KEY 8 
0039 3792 SAIDCMOD EQU  K'39' COMMAND KEY 9 


003A 3793 SAIDCMIO EQU  X‘3A' 
003B 3794 SAIDCI1 EQU X‘3B' 
003C_3795 SAIDCMI2 EQU X'3C‘ 
003D 3796 $AIDTEST EQU X'3D' 
00B1 3797 SAIDCM13 EQU X'B1' 
0082 3798 SAIDCM4 EQU X'B?.' 
0083 3799 SAIDCMI5 EQU  X'B3" 
0084 3800 SAIDCMI6 EQU  X'B4' 
00B5 3801 SAIDCMI7 EQU  X‘BS5' 
OOB6 3802 SAIDCMI8 EQU  X'B6’ 
0087 3803 SAIDCMI9 EQU  X‘B7' 
0088 3804 SAIDCNZ20 EQU  X‘B8' 
00B9 3805 SAIDCNZ1 EQU X'B9' 
OOBA 3806 SAIDCM22 EQU  X‘BA' 
00BB 3807 SAIDCM23 EQU  X‘BB' 
OOBC 3808 SAIDCN24 EQU X‘BC’ 
0001 3809 SAIDIOER EQU  X'01' 
OOFF 3810 $AIDRLSE EQU X'FF’ 
OOFE 3811 SAIDRECO EQU  X'FE' 
OOFC 3812 SAIDGAIJ EQU X'FC’ 


15} 


COMMAND KEY 22 7 
COMMAND KEY 23 

COMMAND KEY 24 

1/0 ERROR OCCURRED 

PSEUDO RELEASE AID 

PSEUDO RECOVERY AID FOR CP 
GAIJE ENTER AID 


C17 
#SVAT TCB ATTACH TRANSIE 


*SVAT TCB ATTACH TRANSIE PAGE = 50 09/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0008 2139 SCAMACNG EQU X‘08' 


RARS 44 4h PRAMALAR Prmui 


. DISPLAY ADDR COMPARE DUMP MESSAGE 


atid a a lal 


12]$LDDLINK C 001 0005 1573 1574 4255* 4261 4262 N2|ACEMAB C001 0005 0079 0080 


S$LODLOAD C 001 000B 1578 1579 4243" ACEMASK C001 OOFE 0095 
1575-1577 4246* ACEMSCL C001 0080 0084 4604 


1571-1572 3] ACEMWAIT C 001 0008 0090 
15741575 4244* 4254 4522 ACEPARI] C 001 0006 0080 0081 
1572-1573 ACEPARI2 C 001 0007 0081 0082 
15771578 N4IACEPARMS C 001 0008 0082 0083 
ACEPRIV C001 0040 0086 4604 
ACEQUIES C 001 0001 0094 
NSJACETCBA C 001 O0OF 0098 0099 
ACETYPE C001 0009 0083 0096 
ACEXLOFF C 001 0004 0093-4604 
16)ACEXR1 C001 000B 0096 0097 
ACEXR2 C001 0000 0097 0098 


17] SLOSFTCH C 001 0008 1590 1599 17] ACE2 C001 0002 4144 ©4591* 
SLOTOADR C 001 0002 1588 _ 1598 ACSWAD C001 OO1A 0187 on 
STRBDATE C 001 000D 2836 2838 ACSWBDCH C 001 002C 0147 


18}$TRBFLG1 C 001 0000 2830 2832 NS|ACSWCACH C 001 0014 0135 
STRBFLG2 C 001 0001 2832 2834 ACSHCOMB C001 OOF? 0213 
STRBLEN C 001 OO0E 2833 ACSWCSCQ C001 6042 0177 

19]S$TRBTIME C 001 0007 2834 2836 4751 4752 4753 4754 4755 4756 QIACSWCX C001 0013 0200 
SWSALARM C 001 0004 3827 ACSWDISK C001 0060 0145 
SWSBLCUR C 001 0010 3825 ACSHECS C001 OO1F 0212 

O} VO} 

018 
09/11/61 12/08/61 21:26 #SVAT TCB ATTACH TRANSIENT PAGE 87 09/11/81 12/08/81 21:28 ] [#SVAT TCB ATTACH TRANSIENT 
01 D1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STI 
00870000 | 02 
3815 * 
03 3816 * TWO BYTE WRITE CONTROL CHARACTER 


3817 * 


ale oe af 


OOCO 3819 SWSERASE EQU  X'CO' VALUE TO ERASE INPUT FIELDS 

0040 3820 $WSRSMDT EQU  X'40' VALUE TO RESET ALL MOT BITS 
3821 * BITS 2-7 NOT USED (MUST BE ZERO) 

0080 3822 $WSRBLDS EQU  X'80' RESET BLINKING DISPLAY 

0040 3823 SWSBLDIS EQU X‘40' BLINK THE DISPLAY 

0020 3824 $WSRBLCR EQU  X'20' RESET BLINKING CURSOR 

0010 3825 $WSBLCUR EQU  X'10' BLINK THE CURSOR 


0008 3826 S$WSUNLOK EQU X'08' UNLOCK (RESET) THE KEYBOARD 
07 0004 3827 SWSALARM EQU X'04" SOUND AUDIBLE ALARM p 
0002 3828 $WSRSMSG EQU _X‘02' RESET MESSAGE WAITING LIGHT 
0001 3829 SWSSTNSG EQU X*01" SET NESSAGE WAITING LIGHT 
08 vs 
3831 * 
09 3832 * SCREEN ATTRIBUTE BITS 
3833 * 


386 
386 

386 
386 

386 
386 
387 
387 

387 

387 

387 
387’ 
387 
387 
387! 
387 
388 
388; 
388 

388 
388' 
388 
388) 


0001 3835 S$WSRVING EQU ¥'O1' 


0002 3836 SWSHIINT EQU  X‘02' HIGH INTENSITY FIELD 
0004 3837 SWSUNSCR EQU X'‘04' UNDERSCORE FIELD 
0008 3838 SWSBLINK EQU  X‘08' BLINK THE FIELD 
0010 3839 $WSCLIRK EQU  X‘10" COLUMN MARK FIELD 
12 0007 3840 $WSNODIS EQU  X'07' NON-DISPLAY FIELD 
3841 * 
3842 * THE FOLLOWING IS A DESCRIPTION OF THE FIELD FORMAT WORDS THAT 
13 3843 * FOLLOW THE SF ORDER FOR INPUT FIELDS. THEY OCCUR IN PAIRS AS 
3844 * FOLLOWS: 
3845 * CFULDCFW2) OR, 
14 3846 * CFWLDCFW2>CRSEQ)CRSEQ#) OR, 


3847 * CFWLDCFWZ)CMODULD(MOD10) OR, 
3848 * CFWLCFW2>CMODULDCNOD11) OR, 


15 3849 * = CFU) CFU2)CRSEQ)CRSEQ#)CMOOUL(MOD1O) OR, 
3850 * —_CFWLCFW2)CRSEQ)(RSEQ#) (MODUL (M0011 
3851 * 
16 3852 * FIELD BITS BIT DESCRIPTION OR VALUE 
3853 * FU O-1 01 
3054 * 2 BYPASS FIELD 
17 3855 * 3 DUP ALLOWED 
3856 * 4 MDT BIT CON IF 1, OFF IF 0) 
3857 * 5-7 MATRIX OF VALUES 
18 3858 * 000 ALPHAMERIC 
3859 * 001 ALPHA ONLY (NO NUMERIC) 
3860 * 010 RESERVED 
19 3861 * 011 NUMERIC ONLY 
3862 * 100 KATAKANA 
3863 * 101 OVERSTRIKE CHARACTER ALLOWED 
¢ 
C18 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


4588* 4598 4602 4602 4602" 4621 
4604* 


4603* 4629 


0001 4143 
C 001 0002 4144 


4588 4591 4597* 4598 4602 4602 4603 4604 4621 4629 


4591" 4597 


ACSWSCQ C 001 0042 0177 
ACSWCX C001 0013 0200 
ACSWOISK C 001 0060 0145 


ACSWECS C001 OO1F 0212 
019 
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D1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR 
D2 3864 * 110 RESERVED 02 
3865 _* m1 SIGNED NUMERIC 
3866 * ~——«FU2 0 AUTO ENTER WHEN FIELD IS EXITED 
D3 3867 * 1 FIELD EXIT REQUIRED 0. 
3868 _* 2 FORCE UPPERCASE ALPHA 
3869 * 3 RESERVED 
3870 * 4 MANDATORY ENTER 04 
3871 * 5-7 MATRIX OF VALUES 
3872 * 000 NO ADJUST 
3873 * 001 RESERVED 0 0001 
3874 * 010 RESERVED 
3875 * 011 RESERVED 
3876 * 100 RESERVED 
3877. * 101 RIGHT ADJUST ZERO FILL 
3878 * 110 RIGHT ADJUST BLANK FILL 
3879 * Ml MANDATORY FILL 
3880.*  —RSEQ___—0-7 10000000 
3881 * = RSEQ# = 0-7 SEQUENCE NUMBER OF NEXT INPUT FIELD 
3882 * MODUL 0-7 10110001 
3883 * = MODI0—iO-7 10100000 
3984* MODIl 0-7 01000000 
3885 * 


3886 _* ENO OF EXPANSION 


3887 *** END OF EXPANSION ** 


C19 


*SVAT TCB ATTACH TRANSIENT PAGE §=52 VO9/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


2247 * EQU X‘Ol' 


2248 * 
OOA8 2249 SCADCFG9 EQU SCADCFG3+1 1 REMOTE CONFIGURATION BYTE 1R3] 
0080 2250 SCANRWSA EQU X‘80" . REMOTE WORK STATIONS ACTIVE 


2251 * FOR THIS IPL 


ee a ee so ey a ee 


ACSIMSTS C001 002F 0211 
ACSWISVC C001 0044 0133 4635 

14} ACSUKTST C 001 O04F 0210 
ADACTIVE C 001 0004 0427 
ADCDMPRQ C001 0001 0652 

15] ADCFOUND C 001 0002 0651 
ADCMATCH C 001 0010 0648 — 0655 
ADCREAL C001 0040 0646 0655 

16] ADCRESET C 001 OOFC 0655 
ADCTASK C001 0080 0645 0655 
ADCTBF C001 0004 0650 0655 

17}ADCTBN C001 0008 0649 0655 
ADCVERFY C 001 0020 0647 — 0655 
ADEXIT C001 0080 0421 

18] ADINQURY C 001 0020 0423 
ADITRMOD C 001 0002 0428 
ADRSTOMP C 001 020 0437 

19} ADSCO960 C 001 0040 0436 


VO9/11/81 12/08/81 21:28 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


3889 * WSPL 


PARAMETER LIST EQUATES FOR 


020 
“SVAT TCB ATTACH TRANSIENT 
ERR LOC OBJECT CODE ADDR S 


3 


g 


| 


3893 * SYSTEM REQUESTS TO WORK STATION DATA MANAGENENT 


3894 * 


0001 3896 WRTC 8 EQU OF1 


0000 3898 WOROK 
0001 3899 WRACC EQU X‘O1' 
0002 3900 WORSTP = EQU X'‘02' 
0006 3901 WORSTD QU X'06' 
0008 3902 WORAQO  EQU X'03' 
0011 3903 WORACR EQU X'‘ll' 
0014 3904 WRKBD EQU X'l4' 
0018 3905 WORAFW EQU  X‘18' 
0024 3906 WORNAV «=EQU  X'24° 
0028 3907 WORREL EQU  X'28' 
0032 3908 WORAFS EQU X‘32' 
0034 3909 WORIRJ = EQU  X‘34' 
0038 3910 WORAFN EQU  X'38' 
0040 3911 WOROFL EQU  X'40' 
0044 3912 WORSPF =EQU  X'44' 
0045 3913 WOPOGE EQU X‘45' 
0046 3914 WORPUN EQU  X'46' 
0048 3915 WORPAL 

0050 3916 WORGRF 

0051 3917 WORGI 


EQ X‘00' 


0084 3921 WORPEP 


0002 3923 WOPM © EQU = WORTC+1 


0080 3925 WSYS  EQU  X'80' 
0040 3926 WOVR EQU X‘40° 
0040 3927 WOFMHO EQU  X‘40' 
0020 3928 WROL EQ X'‘20' 
0020 3929 WOPTH EQU  X‘20° 
0010 3930 WOUNF = EQU. = X'10' 
0008 3931 WPRT EQ x'08' 
0008 3932 WORDSN EQ xX‘08' 
0006 3933 WWTER EQU  X'06' 
0004 3934 WDSAVE 
0004 3935 WORD 
0002 3936 WORSTR 
0001 3937 WOPRUF 


2 VO9/11/81 12/08/81 21:28 #SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


2301 * 
00C1_2302 SCADXNI1 EQ 


SCADXMID-1 


EXTERNAL RETURN CODE 


OPERATION SUCCESSFUL 

ACCEPT SUCCESSFUL TO REQUESTOR 
STOP REQUESTED BY SYSTEM OPERATR 
STOP REQUESTED WITH DATA AVAIL. 
ACQUIRE OK TO OWNED TERMINAL 
ACCEPT REJECTED- NO INVITES 
INPUT REJECTED-KEYBOARD DISABLED 
ACQUIRE FAILED TEMPORARILY 

WORK STATION RELEASED HIMSELF 
RELEASE OF SRT REQUESTOR-REJECT 
ACQUIRE FAILED-SECURITY 

INPUT REJECTED-BUFFER TOO SMALL 
ACQUIRE FATLED-NON-WAI TABLE 
WORK STATION OFFLINE 

STOP INVITE FAILED-DATA AVAIL. 
INVALID GAIJI DURING PRINT OP. 
PRINT ISSUED FROM UNLOCKED KBD. 


AB RES Sg 8889 888 


Sg ss esees 
a eh oe oh oe 


g 


25888858 


2 OPT TAKEN ON GJI RAM FULL COND 
2 OPT TAKEN ON INVALID GJI CODE 
2 OPT TAKEN ON UNDEF. GJI CODE 
READ SCREEN CMD REJECT. G.: 
PERMANENT 1/0 ERROR OCCURRED 
PERM. 1/0 ERROR ON PUT-NO-WAIT 


EXTERNAL OP~CODE MODIFIER 


288 
ws ww 


0013 3 
SYSTEN REQUEST OO1A 35 
OVERRIDE REQUEST 0045 34 
FUNCTION MANAGEMENT HEADER 004i 35 
ROLL REQUEST 0032 34 
PASS THRU MODIFIER 0020 39 
UNFORNATTED REQUEST 0025 35 
PRINT REQUEST ooz1 35 
READ SCREEN MODIFIER 0010 39 
WRITE ERROR OPERATION 0015 39 

ool! 39 
READ MODIFIED IMMEDIATE 000 39 
RESTORE REQUEST 00S 39 

O0FO 39 


C20 
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ERR LOC OBJECT CODE ADDR 


-__EXAN IDS 1-7 


3] ASGNPAGE C 001 0010 0474 
ASGNRTRY C 001 OO0F 0476 
ASGNSEQ C001 0020 0473 

14] ASGNWATR C 001 0008 0475 
ATALLSZ A 003 OEDC 5005 
ATALSIZ A001 OF81 5073 

5] ATCONONE A 001 OFBA 5088 
ATCONS A001 OFB5 5085 
ATCX0800 A 001 OFB6 5087 

16}ATERROR A001 0£12 4916 
ATEOO30 A 003 0E32 4925 
ATEOO5O A 003 OE41 4940 

17] ATEO06O A004 OE4A 4946 


AT000100 A 003 
AT000110 A 005 


4694" 4697* 4923* 4985 4996" 

4478 4536* 4694 4964* 4969% 5031 5038 5054 5060* 5065 
4286 4354 4488 4600 4759 4778 4805 4969 
5087 

4287 

4231 4420 4447 4455 4468 4513 4539 
4922 

4926 

4919 

4947* 

4808 

5111 

4788" 4814 5108 5111 

4814 4814 4814" 

4788* 4819 

5108 

4521 


ATEOO70 A 004 0E53 4948 


ATMAP) =A. 002 ~OFBO 5082 
ISATMCDED A 001 OFD2 5110 
ATMCODE A 001 OFBF 5101 
ATMLEN C001 0013 5111 
ATMOFF C001 0007 5108 
ATMPRM A 001 OFC6 5107 


ATPMRL =A 002 OFB4 5084 AT000230 A 003 


021 


#SVAT TCB ATTACH TRANSIENT 
01 
ERR LOC OBJECT CODE i 


89 VO9/11/81 12/08/81 21:28 atl TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


53 VO9/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE 


OOES 3988 WDNEOJ 
OOFO 3989 WDAEOS 


#SVAT TCB ATTACH TRANSIENT 


EQU X‘ES8* 


EQU X'FO" ABNORMAL END OF STEP 


C21 
PAGE 54 09/11/81 


ADDR STMT SOURCE STATEMENT 


2355 * 


WITHIN THE INDIVIDUAL CONFIGURATION 
BYTES. EACH ENTRY IS TWO BYTES LONG. 


MYVTE A err laDri <imarreari? 


12/08/81 21:28 


00883000 02 00 
00 
a 00 
0003 3940 WOPC = EQU © MOOPI+1 EXTERNAL OP-CODE 03 
00 
0001 3942 WOGET EQU X‘Ol' INPUT OPERATION 04 00 
0002 3943 WPUT EQU X‘02" OUTPUT OPERATION 00 
0003 3944 WOPTG | EQU WOGET+MDPUT PUT THEN GET OPERATION 00 
0004 3945 WONOW = EQUX‘04" NO WAIT REQUEST 05 00 
0005 3946 WOINV _EQU _WOGET*WDNOW INVITE INPUT OPERATION 00 
0006 3947 DPN = EQU) WOPUT+WDNOW =~ PUT-NO-WAIT OPERATION 00 
0007 3948 WOPTI. = EQU.)« WOPUT*WDINV. PUT THEN INVITE INPUT 06) 
0008 3949 WACI QU X‘08" ACCEPT INPUT 
0009 3950 WACO ~ ~EQU ‘09° ACQUIRE TERMINAL REQUEST 00 
0099 3951 WSACQ EQU X'99" SPECIAL ACQUIRE REQUEST 07 
OOOA 3952 WOREL -EQU X‘OA' RELEASE TERMINAL REQUEST 
000C 3953 WGTA = EQU  X‘OC’ GET TERMINAL ATTRIBUTES 00 
0000 3954 WEGTA EQU xX‘OD' EXTENDED GET TERMINAL ATTRIBUTES 03 
ONE 3955 WORDS EQU X‘OE' SPECIAL READ OPCODE 
0010 3956 WSTI QU X10" STOP INVITE REQUEST 00 
0012 3957 WOSTP «© EQU.«WOSTI+\WDPUT == STOP INVITE THEN PUT 09 00 
0013 3958 WOSPG —EQU —WOSTI+WDPUT+WDGET STOP INVITE, PUT THEN GET 00 
0016 3959 WOSPN EQU WOSTI+WDPN STOP INVITE, PUT-NO-WAIT 00 
0017 3960 WOSPI © EQU WOSTI+WDPUT#WDINV STOP INVITE, PUT THEN INVITE 10 00 
0020 3961 WRES —EQU X'20' RESET KEYBOARD 00 
0021 3962 WORTG  -EQU WORES*WOGET RESET THEN GET DATA 
0025 3963 WORTI © EQU WDRES+WDINV RESET THEN INVITE INPUT 11 
0040 3964 WERS EQU X'40' ERASE iNPUT FIELDS 00 
0041 3965 WETG | EQU  WOERS+WDGET ERASE THEN GET DATA 
0045 3966 WETI © EQU WOERS+WDINV ERASE THEN IAVITE INPUT 1 
0080 3967 WOCLR EQU  X'80° CLEAR THE SCREEN 00 
0080 3968 WEVK EQU  X'80° KE COS 00: 
0088 3969 WEVE  EQU x'83" EVCKE END OF TRANSACTION 13 00; 
0085 3970 WEVI EQ X‘85' EVOKE INVITE 
0081 3971 WEVE EQU. xK*8i" EVOKE GET 
0042 3972 WOPEC QU "42" PUT END OF CHAIN 14 00 
0022 3973 WPEF = EQ. X‘22" PUT END OF FILE 00) 
0012 3974 WFP QU. X‘l2" PUT FUNCTION MGMT HEADER 00) 
0017 3975 WFMHI = EQU X'I7" PFN INVITE 15 001 
0013 3976 WFTHG §=FQU§ X‘13" PFN GET 001 
OOIA 3977 WPEX  EQU. XK ‘IA® PUT ENO OF TRANSACTION 001 
0045 3978 WORCDI QU xX‘45' REQ. CHANGE DIR. INVITE 16 001 
0041 3979 WORCDG EQU x'41' REQ. CHANGE DIR. GET 
0032 3980 WFAIL EQU  X‘32° PUT FAIL RESPONSE 
0020 3981 WONGRP EQU X'20' NEGATIVE RESPONSE 7 
0025 3982 WONGRP! EQU X'25' NEGATIVE RESPONSE INVITE 
GRPG = EQU. ‘21° NEGATIVE RESPONSE GET 
0010 3984 WOCANL EQ X‘l0' CANCEL 18} 
0015 3985 WOCAMI EQU  X‘15° CANCEL INVITE 
0011 3986 WCAMG EQU  X‘ll® 
OOEO 3987 WONEOS EQU  xX'EO" 19 


We, ee ee 
ATO00060 A 004 O8DB 4293 4291 
ATO00100 A 003 090A 4327 4379 BAS2 C001 
14{AT000110 A 005 O91F 4334 4332 
ATO00120 A 005 094C 4354 4336 BATCOUNT C 001 
ATO00125 A 003 O95E 4359 4371 
15] AT000130 A 004 0975 4366 4364 
AT000135 A 003 0980 4369 4361 4367 
ATO00140 A004 098A 4372 4357" 
16] ATOOO150 A 003 O98E 4373 4356 
ATO00160 A 004 09A3 4379 4346 4351 4353 4374 4377 
ATO00180 A 003 O9A7 4389 4328 
17]AT000185 A 004 09C9 4409 4406 
ATO00190 A 004 O9CD 4414 4408 _ 
AT000195 A004 0908 4418 4395 4415 
18] AT000200 A 004 O9DF 4420 4349 
AT000205 A 003 09E4 4422 4419 
ATOOO210 A 004 O9FB 4436 4424 
19]AT000220 A 003 OAI1 4449 4442 
AT000225 A 003 OAI7 4451 4432-4434 
AT000230 A 003 OAID 4453 4450 
0) a8 


022 


#SVAT TCB ATTACH TRANSIENT 
01 
ERR LOC OBJECT CODE ADOR STM 
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#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


OOF8 3990 WOAEOJ EQU X'FS' ABNORMAL END OF JOB 02) 4028 
OOFF 3991 WOASFL EQU  X'FF' ICSSQS ASSIGN FAILURE 4025 
0008 3992 WSTMR EQU  X‘OB' SET TIMER 4030 
0 4031 
402 
0005 3994 WOUTL EQU  WDOPC+2 OUTPUT LENGTH 4033 
0005 3995 WEFFL EQU WOOUTL EFFECTIVE INPUT LENGTH 04 
0007 3996 WORECA EQU WOEFFL+2 RECORD AREA ADDRESS 
0009 3997 WOTUB = EQU = WORECA+2 TUB ADDRESS 435 
0008 3998 W960 © EQU « WOTUB+2 MASK FOR WHICH LINES TO DISPLAY aa022 0 M36 
000C 3999 WAID EQU W960+1 AID BYTE ON INPUT OPERATIONS  aa022 437 
0000 4000 WOIOPC ~EQU  WAID+1 INTERNAL OPERATION CODE 0080 47,38 


0001 4006 WOSROl] EQU X‘Ol' SAVE AREA 1 - MESSAGE/SYSLOG 
0002 4007 WOSRO2 EQ X'02' SAVE AREA 2 - INQUIRY 1 

0003 4008 WOSRO3 EQU X‘03' SAVE AREA 3 - INQUIRY 2 
0008 4009 WOSRCN EQU X'08' SYSTEM CONSOLE SAVE AREA 
0009 4010 WOSRCM EQU xX'09' CONSOLE MODE SAVE AREA 

OOOA 4011 WOSRCW EQU X'OA' CONSOLE WGRK STATION MODE SAVE AREA 


10 051 


11 1 0002 4054 


QOGE 4013 WORUPD 


EQU _WOIOPC+1 ROLL FLAGS 


12 


0080 4015 WRUP EQU X'80' ROLL UP 
0040 4016 WORDN =EQU  X'40' ROLL DOWN 
0020 4017 WORCL EQ X'20' CLEAR VACATED LINECS) 


13 


QOOF 4019 WOWLNE EQU  WORUPD+1 NUMBER OF LINES TO ROLL 
0010 4020 WOSLNE EQU  WOALNE+1 START LINE NUMBER FOR ROLL 
0011 4021 WELNE EQU  WOSLNE+1 END LINE NUMBER FOR ROLL 

0012 4022 WOVSLN EQU WDELNE+1 VARIABLE START LINE NUMBER 
0014 4023 WIND = EQU  WOVSLN2 ADDRESS OF OVERRIDE INDICATORS 
0016 4024 WOFMTN §=EQU = WDINDa+2 FORMAT INDEX ENTRY ADDRESS 
0017 4025 WOLEN = EQU = WOFMTN+1 PARAMETER LIST LENGTH 
4026 *** END OF EXPANSION ** 


16 0011 4069 


V7 0014 4072 


C22 
*SVAT TCB ATTACH TRANSIENT PAGE 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


SVC R-BTYE EQUATES 


MIG IVIG MUN WN GL GL UH DSH USD UNO UGE UGT 
5048 5049 5050 5051 5052 5053 5054 5059 5060 5061 5065 5066 
5066 5067 

BAS2 C001 0002 4156 4979 4980* 4981 4983 4984 4985 4985 4987 4988 4988 4989 4990 
4991 4991 4992 4993 4994 4996 4996 4997 5003 


C 001 0080 0809 
C 001 0040 0810 
C 001 0020 0811 
C001 0010 0812 C 001 
C 001 0008 0813 C 001 
C 001 0004 0814 C 001 
C001 0001 0816 
C 001 0040 0788 
€ 001 0001 4161 
C001 0002 4162 
C001 0001 4137 
C 001 0002 4138 
C001 0001 4133 
C001 0002 4134 
C001 0001 4141 DSPERPND C 001 
023 
T vOo/11/81 12/08/61 21:28 #SVAT TCB ATTACH TRANSIENT PAGE 92 VO9/11/81 12/08/81 21:28 + *SVAT TCB ATTACH TRANSIENT 
01 
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02 4028 * XNTEQ 00890000 | 02 0010 
4029 RARAAKKAKRAAAAKARARAERAAKKRAAARAKRAKAARK KKK KAAAKAAKRARAKEK RAR RAHA ARR IIIRIRR OO1E 
Se 4030 RRARKRAKRRAKKRARAKARARRAKKKRKRAARAKH KARA AKAAKAKARAARRKKKRAK KARR AK AKRARRA RK KK OO1F 
03 4031 ** MAIN STORAGE TRANSIENT AND TRANSFER CONTROL RIB EQUATES xn 03 0020 
4032 RARKRAARAKKKRKKAAAKAARAKRARARERAAKRARARAKI KARRKRAARRAAAKKAKKKK KHAKI 0021 
4033 RRAAKAAKKARARAARAKARAAAAARKRARKRAAAKAKARA RAK KKAARAARKRAKKKAARAARAKKAK RAK 0022 
04 04 0023 
0024 
4035 RARRRAAAAAARAAARARRRRARARAKARKAERRAKARARRRARRARAARREKRKRKARKARAKAAARAKKKRKR AK 0025 
05 4(36 * GENERAL EQUATES FOR TRANSIENT/TRANSFER TABLE ENTRIES * 05 0026 
437 RRAAAARAAAKRARAERAARRAARARKK CRA AARAAKAKKARRKARARAAKARAKRRAKRARAAAAKAAKI RAKKR 0027 
0080 4°38 XEXAMID EQU X‘80° EXAM ID TRANSFER ROUTINE 0028 
06 0040 1039 XEAOFF EQU X‘40° SET EA CYCLE XLATE OFF INDICATOR 06 0029 
0020 4040 XEBOFF QU X‘20' SET EB CYCLE XLATE OFF INDICATOR 002A 
OO1C 4041 KFERCTL EQU  X*10° TRANSFER CONTROL ROUTINE 0028 
07 0020 4042 XNTPRIV EQU xX‘20' PRIVLEGED TRANSIENT 07 002¢ 
0008 4043 XNTAREAS EQU  X‘08' FIRST SECTOR IN TRANSIENT AREACHIGH) 0020 
OOOF 4044 XNTAREAE EQU xX ‘OF' LAST SECTO® IN TRANSTENT AREA CHIGH) 002E 
08) 0008 4045 XFERIAON EQU  X'08' TAR TRANSLATION ON 08 002F 
0004 4046 XFEREAON EQU  X‘04' SET EA ON TRANSFER CONTROL 0030 
0002 4047 XFEREBON EQU  X‘02° SET EB ON TRANSFER CONTROL 0031 
09 0001 4048 XFERWPON EQU  X‘O1' SET ON WRITE PROSECTCNON-PRIVLEDGED) 09 0032 
4049 RARKRKRACKRRARRAAAARARAAAARKRARARRARRRAARAKAARKRK RERKKRARAKRERRAAEKRKRAERERARK 0033 
4050 * ‘SYSTEM’ TRANSIENT RIB EQUATES CI.E., IMPLICIT DISK ADDR, LENGTH) * 0034 
10 4051 RRRKRAAKKRAAARARAAKAAKREKARARKKAKRARRAARRAKAKAKRARKRKAAKKRAKRAAAAREKKEAARKRAR 10 0035 
0000 4052 RRSVDOO EQU x'00' RESERVED 0036 
0001 4053 RFIND  EQU  X‘OI° FIND 0037 
11 0002 4054 ROPEN EQU X‘02' OPEN ll 0038 
0003 4055 RCLOSE EQU X‘'03' CLOSE 0039 
0004 4056 REOJ QW X‘0s" ENO-OF - J08 003A 
12 0005 4057 RSLOG =EQU X‘05' SYSLOG 1 0038 
0006 4058 RSLIST EQU  X'06' SYSLIST 003C 
0007 4059 RSIN  EQU X‘O7' SYSIN . 0030 
13 0008 4060 RSGET EQU X‘08' SOURCE GET 1 O03E 
0009 4061 RSISG  EQU X'09' MESSAGE RETREIVE 003F 
O00A 4062 RLIBRY EQU xX‘0A’ LIBRARY OPEN/CLOSE 0040 
14 0008 4063 RVTOCFD EQU xX‘0B' VTOC READ/WRITE FD 14 0041 
OO0C 4064 RALLOC EQU X‘0C' ALLOCATE 0042 
0000 4065 RDALOC EQU  x‘OD" DEALLOCATE 0043 
15 OOOE 4066 RSALOC EQU X‘OE' SPECIAL ALLOCATE 145 0043 
OOOF 4067 RINFO  EQU X‘OF' RETRIEVE SYSTEM INFORMATION 
0010 4068 RVTORD EQU XK'l0° VTOC READ/WRITE RO 0110 
16 0011 4069 RSNAP = EQU.sX‘1I° SNAP DUMP 16 0088 
0012 4070 RPGHLT EQU X‘12' RPG HALT 
0013 4071 ROMCALL EQU  X‘13" DATA MANAGEMENT CONTROLLER 
17 0014 4072 RPRALGN EQU  X'14" PRINTER ALIGNMENT 7 
0015 4073 RCPRT EQU X‘15' COMMAND PROCESSOR ROUTER 
0016 4074 RLOPEN EQU  X‘l6" LIMITS OPEN 
19 0017 4075 RWSDM = EQU.sX'17" USER WSDM REQUEST 1 
0018 4076 RSWSOM EQU  X'18" SYSTEM WSOM REQUEST 
0019 4077 RFINOLIB EQU  xK'19° USER LIBRARY FIND REQUEST 
19 OO1A 4078 RAFA = EQUSSCX‘IA" AFA ACCESS TRANSIENT 19 
001B 4079 RSPOOL EQU X‘1B' SPOOL INTERCEPT REQUEST 
OO1C 4080 RSPALC ~EQU X‘IC’ SPOOL ALLOCATE REQUEST 
0 0) 
C23 
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2445 * 
0040 2446 SVCFD 


DELAYED SVC R-BYTE EQUATES 
EQU  X'40' DISK [0S 


are 4 ee a, eee fe eee Bee 


13)DMERR4 C001 O0E4 1197 1198 
DMERR5 C001 O0&5 1198 1199 


DMERR6 C001 O06 1199 1200 
OMERR? C001 OOE7 1200 1201 
OMERRS C001 OOE8 1201 1202 


DMERR9 C001 OO£9 1202 1203 
DMERIO C001 OOEA 1203 1204 
DMER11 C001 OOEB 1204 = 1205 
C 001 OOEC 1205 1206 
16}0MER13 C001 OOED 1206 1207 
DMERI4 C001 OOEE 1207 1208 
DMERI5 C001 OOEF 1208 1209 
17/DMER16 C001 OOFO 1209 1210 
OMERI7 C001 OOF] 1210 1211 


DMERI8 C001 OOF2 1211 
DMPINPRG C 001 0040 0352 
DMPROTCT C 001 0080 0349 
DMPSUSAC C 001 0020 0355 
DSABL C001 0080 0823 4200 
DSPADACT C 001 0010 0407 
024 
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14 


15 


00890000 001D 4081 RCPERR QU X'1D' COMMAND PROCESSOR 1/0 ERROR 02 
RRRRR OOIE 4082 RTTC —FQU__X'IE* TASK-TASK_COMMUNICATONS 0001_ 
BRAKE OOIF 4083 RCPTC  EQU X‘IF' COMMAND PROCESSOR TASK-TASK 0002 
xR 0020 4084 RSETX EQU X'20' SET EXIT 03 0001 
RRRIK 0021 4085 RWDOB QU X'21' WSDM_ TRANSIENT 0002_ 
RRRRA 0022 4086 RSVNR = EQU.X‘22' uF 0002. 
4 0023 4087 RWDDG = EQU X'23' w 04 0001 | 
0024 4088 RWAF FQUX'24' os 0001 
RRARR 0025 4089 RWDDO = EQU.SCX'25° st 0002. 
® 0026 4090 RWDDA = EQUX'26' us 05) 0002 . 
HAAR 0027 4091 ROFFLINE EQU X'27" OFFLINE M1V_DATA MGMT. 0001 
0028 4092 RWDDH = EQU. X'28" WSDM TRANSIENT 0001 
0029 4093 RWDDQ EQU X'29' 06} 0002 | 
002A 4094 RWCPEQUX'2A' 0001 | 
0028 4095 RPRAZ EQ X‘2B' 0002 « 
0020 4096 RCM «= EQU:SCX'2C' COMMAND OCL INTERFACE 07 0001 
0020 4097 RIOERR EQU X‘2D' 1/0_ERROR TRANSIENT 0002 ! 
002E 4098 REXTND EQU  X'2E' EDF EXTEND TRANSIENT 0001 ¢ 
002F 4099 RUPDAT EQU X'2F' EDF UPDATE TRANSIENT 08 0002 « 
0030 4100 RCKXPT EQU _X'30' CHECKPOINT TRANSIENT 0001 ¢ 
0031 4101 RSPMIC EQU  X‘31° SPOOL TRANSIENT 0002 © 
0032 4102 RICDA = EQU.X"32' ICF (CVC) 09 0001 « 
RRRM 0033 4103 RICDB EQU_X'33' ICF (CVC) 0002 : 
ye 0034 4104 RICDC  EQU  XK'34° ICF CCVC) 0001 
RRR 0035 4105 RSVTX QU X"35' TWA EXTENSION 10 0002 « 
0036 4106 RSORT —EQU X'36' SORT TRANSIENT 0001 ¢ 
0037 4107 REXTRA EQU  XK‘37° EXTENDED TRACE 0002 © 
0038 4108 RWDDL  EQU X'38' WSDM TRANS [ENT 11 0001 « 
0039 4109 RGLFR EQU "39" GLF TRANSIENT 0002 
OO3A 4110 RGLFAC EQU XK'3A° GLF TRANSIENT 0001 4 
003B 4111 REXTNP EQU X‘3B° EXTENDED PRINT 12 0002 4 
003C 4112 RSC —EQU X"3C' SMF COrM. DATA COLLECTION 0001 4 
. 0030 4113 RICDD PEER MULTIPOINT 0002 4 
0O3E 4114 RWDDU WSDM XIENT 3 0001 + 
003F 4115 RWOOT 7 0002 4 
0040 4116 REGE 7 0001 4 
0041 4117 RROOM RDOM TTC XIENT CALL 14 0002 4 
0042 4118 RWDHH WSOM XIENT 0005 4 
0043 4119 RSPOGS EQU. X'43° SPOOL QUEUE MiiT XTENT OOFF 4 
0043 4120 RXTEND €QU  RSPOMG LAST VALID ENTRY 15 0000 4 
0001 4 
O110 4122 XFLENBYT EQU  RXTENO*4*4 LENGTH OF XFER TABLE (BYTES) 0002 4 
0088 4123 XFLENWRD EQU = RXTEND®2+2 LENGTH OF XFER TABLE CHORDS) 16 0031 4 
4124 ®®® END OF EXPANSION ** 0033 4 
0035 4 
17 0038 4 
003A 4 
0030 4 
18 003D 4 
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2486 * TCB 00770000 [J 
24Q] RERREARARARRARARARRARRARARARRARRARARRRRRRRRERAR ARERR RRR IRI RIK 


DICURTRB C 001 0055 0560 0561 0566 
DICURXNT C 001 0053 0558 0559 
DICURX28 C 001 0008 0323 0324 
DIDSKTAB C 001 0000 0314 
DIDSKTBL C 001 0004 0315 
DIDSPFLG C 001 0024 0402 0417 
DIDSPTCB C 001 0030 0523 0524 
DIDSTIMNE C 001 0070 0625 0633 4824 
DIDSTQE C 001 002F 0490 0491 
DIENDA C001 0076 0662 
DIERRACE C 001 O001B 0386 0387 
DIERRMIC C 001 0019 0384 0385 
DIERRTCB C 001 OO1A 0385 0386 
DIFRCTCB C 001 003C 0522 0523 
DIFREEPT C 001 0020 0488 0489 
DIGPFLAG C 001 0036 0501 0512 
DIHCSTGA C 001 0071 0633 0635 
DIHCSTGD C 001 0072 0635 0641 
DIHPCSDA C 001 0060 0580 0591 
DIHPCSTK C 001 0061 0591 0592 
DIHPSTK C 001 0062 0592 0594 
OUIAR C001 0059 0569 0570 
DIIARS C001 0043 0533 0534 


13 


1 


15 


16 


17 


18 


19 


20 


025 
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4126 * — REGISTERS USED 
0001 4127 PRM1 = EQU 1 PARM LIST POINTER 
0002 4128 PRIZ = EQU 2 PARM LIST POINTER 
0001 4129 PSH! = EQU 1 PARM LIST POINTER 
0002 4130 PSH2 «EQU. 2 PARM LIST POINTER 
0002 4131 F52 FQU 2 BIT MASK POINTER 0800 F2 87 06 
0001 4132 F51 FQU 1 BIT MASK POINTER 
0001 4133 CPI EQ COMMAND PROCESSOR PARN 0803 7BE2E5C1E3 
0002 4134 CP2 FU 2 COMMAND PROCESSOR PARM 0808 08 
0002 4135 PAK2  EQU 2 PACKED DATA PARM 
0001 4136 JOB) = EQU st JOB NAME FIELD REU'STER 
0001 4137 COL EQU CODE INDEX REGISTER 
0002 4138 C2 EQU CODE INDEX REGISTER 
0001 4139 TCB1_ —_—EQU TCB POINTER 
0002 4140 TCB2  -EQU TCB POINTER 
0001 4141 CSB1 = EQU CSB POINTER 
0002 4142 CSB2 ss EQU C2 CSB POINTER 
0001 4143 ACEL «= EUs ACE POINTER 0809 F4 00 0D 
0002 4144 ACE2 EQU 2 ACE POINTER 3} = 080C 0002 
0001 4145 JCB = EUs JCB POINTER 
0002 4146 JCB2 =~ EQU 2 JCB POINTER 
4 0001 4147 RB1 EQ 1 RB POINTER 01100000 | 09} 080 35 02 0141 
4 0002 4148 RBZ EQ 2 RB POINTER 01110000 
4 0001 4149 SIZ] EQU REGISTER 10 SAVE ALLOC. SIz 0812 85 02 17 
3 0002 4150 S122 EQU REGISTER TO SAVE ALLOC. SIZ 0815 9C 18 2A 18 
4 0001 4151 ATRI REG. TO POINT INTO ATRS 0819 F6 00 80 
4 REG. TO POINT INTO ATRS 
0001 4153 SYNI SYSIN BUFFEP O81C 35 02 0141 
5 0002 4154 SYN2 SYSIN BUFFER 
5 BASE REGISTER 1 g 
6 BASE REGISTER 2 0820 8E 00 74 0093 
5 TUB INDEX REGISTER 1 
7 0002 4158 TUB2 TUB INDEX REGISTER 2 0825 BS 02 17 


0001 4159 TABI TUB INDEX REGISTER 1 
0002 4160 TAB2 TUB INDEX REGISTER 2 

0001 4161 BUFI TNOEX BUFFER POINTER 

0002 4162 BUF2 INDEX BUFFER REGISTER 

0005 4163 SNASIZ EQU 5 SNA REGION SIZE 0828 BS 01 1€ 
GOFF 4164 DETACH QU X‘FF DETACH REQUEST 0828 F2 90 06 
0000 4165 ALLOHIGH EQU 0 

0001 4166 ALLOSIZE EQU  ALLOHIGH*1 

0002 4167 ALLONEXT EQU  ALLOSIZE+1 082E F4 00 07 
0031 4168 ATSVACEA EQU TCBATRS-30 SAVED ACE ADDRESS 0831 001D 
0033 4169 ATSVRBA EQU ATSVACEA+2 SAVED RB ADDRESS 0833 31 

0035 4170 ATSVSCa EQU  ATSVRBa+2 SAVED SCAN BUFFER ADDRESS 

0038 4171 ATSYSSSA EQU ATSVSCa+3 SAVED SWAP AREA ADDRESS 

003A 4172 ATSWWSSA EQU _ATSVSSSa+2 SAVED WSWA ADDRESS 

003C 4173 ATSVARRA EQU  ATSVUSSa+2 SAVED ARR 

0030 4174 ATSVSIZE EQU ATSVORRA+1 SAVED ALLOC. SIZE 
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2539 *VWVVVWVVVVVVWV OTHE FOLLOWING FIELDS ARE ORDER DEPENDENT VV 


IZ]DIXAMSWI C 001 O00A 0322 03 


DIMKIOBA C 001 0034 0498 
DIMXNTPT C 001 002E 0489 0490 

DINUXNTO C 001 0000 0305 0306 0314 
DINUXNT1 C 001 0001 0306 0307 
DINUXNT2 C 001 0002 0307 0308 
DINUXNT3 C 001 0003 0308 0309 
14/DINUXNT4 C 001 0004 0309 0310 
DINUXNTS C001 0005 0310 0311 


74 


13 


J5]DINUXNT? C 001 0007 0312 
DIPGFULL C 001 0080 0336 
DIPMRPSR C 001 005A 0570 0571 
16] DIPREVRB C 001 0055 0561 

DIQHSAVE C 001 0038 0513 0514 
DIQSAVE C O01 OO4E 0547 0552 
DIQUEUEA C 001 003F 0525 0526 
DIRDCS C001 006D 0620 0622 
DIRDMS C001 O06C 0619 0620 
18}D1REGPTR C 001 0015 0376 0377 
DIRNQSAV C 001 0063 0594 0598 
DIRQ C001 O05B 0571 0572 
DIRTTABL C 001 0040 0526 0531 
DISAVEIN C 001 0042 0532 0533 
DISECA C001 0016 0377 0378 


0320 


17 


1 


EN1064 A 001 
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00910000 } 02 4176 * TOMAC NANE-#SVAT, ATTR-CO0900, JUMP-Y, RLO-D 01310000 | 02 c 
00920000 4177 LEVEL 08 RELEASE LEVEL 4 
00930000 4178 ATTR 00900 LIBRARY ATTRIBUTES 4 
00940000 | 03 4179 RLD OD RLD OPTION 03 4 
00950000 4180 MRT 00 MRT OPTION 0834 F4 00 06 4 
00960000 0800 F2 87 06 JUMP AROUND MAIN STORE CONSTANTS 0837 0080 0838 4 
00970000 04) 0839 01 0839 4 
00980000 0803 7BE2E5C1E3 0807 4182 DC CL5'#SVAT' MODULE NAME 4 
00990000 0808 08 0808 4183 oc XL1‘08" RELEASE LEVEL 083A 34 01 OF84 4 
01000000 | 05 05} —083E 36 01 OFB9 4 
01010000 4185 _*®* END OF EXPANSION ** 0842 F2 01 05 4 
01020000 4186 * 01320000 
01030000 | 06 4187 * MOVE THE CALLER'S ATTACH PARM LIST TO THE CURRENT RB WORK AREA 01330000 | 06] 0845 CO 87 0E12 4 
01040000 4188 ® TO DO AWAY WITH PMR CONCERNS FOR TRANSLATION TO THE ATTACH 01340000 
01050000 4189 * PARAMETER LIST. 01350000 0849 04 0849 4 
093 01053000 | 07 4190 * 01360000 | 07 4 
093 01056000 4191 * PR OPI-N TURN OFF OP1 TRANSLATION 01370000 4 
01060000 0809 F4 00 OD 4192 SWC SVCPMR,QO = CHANGE PAR SVC. 4 
01070000 080C 0002 0800 4193 DC —AL2(2+0+0+0) INLINE PARAMETERS. 08} 0840 5F 7F 7F 7F 4 
01080000 4194 ®®* END OF EXPANSION ** O84E 74 02 17 4 
01090000 4195 * TCBa R-TCB2 KR2-> CURRENT TCB 01360000 0851 B8 20 27 4 
01100000 O80E 35 02 0141 4196 L 321, TCB2 GET TCB ADDRESS. O09} 0854 F2 90 19 4 
01110000 4197_*** END OF EXPANSION ** ; 
STZ 01120000 0812 B5 02 17 4198 LT TCBCRBC, TCB2), RBZ XR2-> CURRENT RB 01390000 4 
512 01130000 | 10) 0815 9C 18 2A 18 4199 MVC RBSLEN+SATLENG-1(SATLENG, RBZ), SATLENG-1(, PRM) MOVE PRM 01400000 | 10} 4 
01140000 0819 F6 00 80 4200 LPMR  PRV+DSABL 01410000 0857 8C_03 15 OFFD 4 
01150000 4201 * CBA R-TCBZ XR2-> CURRENT TCB 01420000 085C 8C 01 1D OFBC 4 
01160000 | 11] 081C 35 02 0141 4202 L321, T¢B2 GET TCB ADDRESS. 11] 0861 8C 03 19 OFBE 4 
01170000 4203 **® END OF EXPANSION ** 0866 8C 00 1B OFFD 4 
01180000 4204 * DSABL CANCL-Y, TCB-TCB2 DISABLE CANCEL 01430000 086B 8C 00 1A OFFE 4 
01190000 | 12] 0820 8E 00 74 0093 4205 ALC TCBCNCNT(1, TCB2), NUASCA*SCADCON] INCREMENT CANCEL COUNT 12] 0870 B8 02 27 4 
01200000 4206 *®* END OF EXPANSION ** 4 
01210000 0825 B5 02 17 4207 T TCBCRBC, TCB2), RB2 XR2-> CURRENT RB 01440000 0873 F2 90 06 4 
01220000 | 13 4208 * 01460000 | 13 
01230000 4209 * FREE THE ATTACH PARAMETER LIST IF SO SPECIFIED IN THE 0876 7C 01 74 4 
01240000 4210 * PARAMETER LIST 0879 7C O1 75 4 
01250000 | 1 42 * 01490000 | 14} 087C B8 40 27 4 
01255000 0828 BS 01 1£ TEN RBSLEN+SATFLAG(, RBZ), SATFRPRM FREE ATTACH PARMLIST? O87F F2 90 0B 4 
01260000 JF AT000005 NO, BYPASS FREE 01510000 
01270000 | 15) 15] 0882 AC 01 10 19 4 
01280000 QUEUE-YES, LEN-SATLENG FREE ATTACH PARMLIST 0886 AC 01 17 1D 4 
01290000 O82E F4 00 07 4215 SW SVCFREE,QO ‘ISSUE FREE REQUEST 4 
01291000 | 16) 0831 0010 0832 4216 OC —AL2(S$ATLENG+4) LENGTH + 4 OF AREA TO FREE 16 4 
01292000 0833 81 0833 4217 OC _ALICX'80'+1) FREE FUNCTION BYTE BY 
; aaa 4218 **™ END OF EXPANSION ** : 
i 
01295000 
01296000 0880 68 O1 2C 16 4 
1297000 } 18] 0891 68 02 2B 16 4 
0895 5E 01 2C 2C y 
0899 7C 00 2 ry 
19} 089C BB 07 1D 4 
4 
4 
0 
C26 
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ECMIOERR C 001 0021 0670 
ECMLOCK C001 0010 0682 
ECMMASK C001 0001 0678 
ECMNSKIP C 001 0080 0667 4306 
ECMPARM C 001 0000 0666 

ECNREAL C001 0040 0668 

ECMSYSLG C 001 0028 0677 
ECMTAS C001 0026 0675 
ECNTINER C 001 0024 0673 


16 


17 


19JECMTTC C001 0020 0669 4306 19} EXAN C001 0004 04 


EN1064 A001 ODF2 4895 4885 4883 


D27 
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4220 * 
4221 * ASSIGN THE TCB FOR RUNNING THE NEW TASK IN THE SYSTEM 


aa185 01310000 | 02, 


4222 * 01560000 
03 4223 *T000005 ASSGN LEN-TCB! £N ASSIGN A TCB 01570000 03} 089F 5C 00 1C 2B 
0834 F4 00 06 4224 ATOOO005 SVC SVCASSGY, ASSIGN REQUEST O8A3 5E_00 1C 1C 
WTS 0838 4225 DC AL2CTCBLEN) ASSIGN LENGTH OBA? 5E 00 IC IC 
04) 0839 01 0839 4226 DC ALIC1+0) ATTRIBUTES OBAB 5E 00 IC IC 
4227_*** END OF EXPANSION ** O8AF 7C FF 1B 
083A 34 01 OF84 4228 ST ATTCB, TCBI STORE ASSIGNED TCB ADDRESS 01580000 0882 6E 00 1B 15 
05] —083E 36 01 OFB9 4229 A ATZERO, TCB1 ASSIGN SUCCESSFUL ? 01590000 08B6 6C 01 19 19 
0842 F2 01 05 4230 JNE_ATOO010 YES, SET UP THE TCB 01600000 O8BA 5F 01 19 1D 
01320000 O8BE 5E 00 18 1B 
RK AREA 01330000 | 06] 0845 CO 87 0£12 4231 B —_ATERROR GO TO ERROR ROUTINE 01610000 [06 
ACH 01340000 
01350000 0849 04 0849 4232 Bc ALICSATERRO4) UNABLE TO GET TCB SPACE 01620000 
01360000 | 07 4233 * 01630000 
RANSLATION 01370000 4234 ® INITIALIZE ALL TCB FIELDS TO 0°S 01640000 
4235 * 01650000 
08} 084A 5F 7F 7F 7F 4236 ATOOOO10 SLC TCBLEN-1(TCBLEN, TCB1), TCBLEN~1(,TCB1) ZERO OUT TCB 01660000 8} 08C2 4E 00 2C OFBA 
O84E 74 02 17 4237 ST __TCBCRBC, TCB1), RBZ STORE POINTER TO RB 01670000 O8C7 4F 01 19 OFB6 
TB 01380000 0851 B88 20 27 4238 TBN -RBSLEN+SATFLAG1(,RB2), $ATQKINT ATTACH AN INITIATOR ? 01680000 O8CC CO 02 O8C2 
09 0854 F2 90 19 4239 JF $C000100 NO, DON'T TRY QKINIT 01690000 09 
08D0 60 00 2C IF 
RB 01390000 4240 * 01700000 
ML) MOVE PRM 01400000 | 10 4241 * THE ATTACH REQUEST IS FOR AN INITIATOR, SO ATTACH CIM. 01710000 08D4 F2 04 04 
01410000 0857 8C 03 15 OFFD 4242 MVC__RBSLEN+SLODTEXT(4,RB2), CIM +3 MOVE IN SSSN VALUES 01790000 
TC 01420000 O85C 8C 01 1D OFBC 4243 MVC RBSLEN+SLDDLOAD(2, RB2), INITLDa MOVE IN LOAD a #298 01800000 0807 9C 00 IF 2C 
11} 0861 8C 03 19 OFBE 4244 MVC RBSLEN+SLODSTRT(4,RB2), INITSCA MOVE IN START Ca  aa298 01820000 0808 6C 00 2C IF 
0866 8C 00 1B OFFD 4245 MVC__RBSLEN+SLODTOTC1,RB2),@CIML+3 MOVE IN TOT SECTORS 01830000 
01430000 0868 8C 00 1A OFFE 4246 IC RBSLEN+SLODRLDC1, RBZ), @CIML+4 MOVE IN RLD DISP. 01840000 
CANCEL COUNT 12] 0870 B8 02 27 4247 SCO00100 TBN RBSLEN+$ATFLAG1(,RB2),$ATNCNIQ DON'T ALLOW @a093 02191000 
4248 ® CANCEL OR INQUIRY ? 09093 02192000 OSDF 5C 00 2A 2C 
01440000 0873 F2 90 06 4249 JF SC000710 NO, ALLOW BOTH 92093 02193000 O8E3 5E 00 2A 2A 
01460000 | 13 O8E7 5E 00 2A 2A 
01470000 0876 7C 01 74 4250 ‘VI TCBCNCNT(, TCB1),1 SET NO CANCEL CNT — aa093 02194000 O8EB 5E 00 2A 2A 
01400000 0879 7C O1 75 4251 T  TCBIQCNTC, TCB1), 1 SET NO INQ. CNT 9a093 02195000 O8EF 5C 00 20 2C 
01490000 | 14] 087 88 40 27 4252 SCO00110 TBN RBSLEN+$ATFLAG1(,RB2),SATCOMON SUPPORT COMMON 2? © aa093 02200000 
ARML IST? 01500000 O87F F2 90 0B 4253 JF aTo00020 NO, DOES NOT SUPPORT CoN 02210000 
01510000 
15] 0882 AC 01 10 19 4254 MVC RBSLEN*SATLOADC2, RBZ), RBSLEN*SLODSTRT(,RB2) SET LOAD 02220000 
RHLIST 01520000 0886 AC 01 17 10 4255 MVC __RBSLEN+SLDDLINK(2, RB2), RBSLEN+SATLOADC, RBZ) SET LINK O8F3 7C AD 50 
4256 * ADDRESS AND START CONTROL ADORESS EQUAL O8F6 7A 40 6€ 
16 4257 * 02250000 
4258 * CALCULATE TCBBEGL VALUE FROM TASK'S LINK EDIT ADDRESS 
17 ASSUME LINK EDIT OF 0 
Bg TCBBEGL+1(, TCB1), RBSLEN*SLODLINK-1(, RBZ) CONV. LINK @ 
18] 0891 68 02 2B 16 TCBBEGL(, TCB1), RBSLEN*+$LDDLINK-1(,RB2) TO TCBBEGL VALUE 
TCBBEGL+1(2, TCB1), TCBBEGL+1(, TCB1) (MAKE A HEX OFFSET 
TCBNSS12(, TCB1),0 RESET (512 TO 0 
19 RBSLEN*$ATLOAD(,RB2),X'O7* ENSURE ON 8 BYTE BOUNDARY 


#SVAT TCB ATTACH TRANSIEN #SVAT TCB ATTACH TR 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


OOOF 2647 TCBRDYQ EQU TCBCHAIN+2 — SYSTEM READY QUEUE CHAINING FIELD 
OOOF 2648 TCBSWAPQ EQU  TCBROYQ SYSTEM READY QUEUE SPECIAL EQUATE 
0011 2649 TCBXNTQ EQU  TCBRDYQ+2 SYSTEM TRANSIENT QUEUE CHAIMING FIELD 
0013 2650 TCBRTUB EQU  TCBXNTQ+2 TUB ADDRESS OF REQUESTOR 


ICATOR 
NOICATOR 
PENDING 


2652 NW THE FOLLO 
0015 2653 TCBJCBA EQU TCBRTUB+2 
0017 2654 TCBCRB £Q 


ING FIELOS ARE OROER DEPENDENT VWWWWWWWWWWW 
ADDRESS OF TASK JOB CONTROL BLOCK 
CURRENT REQUEST BLOCK POINTER 


ee ee he 


ERBMNRR C001 0004 0716 
ERBMNRSP C 001 0020 0727 
ERBMPERR C 001 0001 0739 
ERBNPOST C 001 0008 0733 
ERBMPUR C001 0003 0717 
ERBMRERR C 001 0003 0737 
ERBNORMN C001 0000 0753 
ERBPTASK C 001 0001 0743 
ERBSOPD C 001 OOFO 0758 
ERBSOPO C001 0080 0759 
ERBSOP1 C001 0040 0760 
ERBSOP2 C001 0020 0761 
ERBSOP3 C001 0010 0762 
ERBTRMID C 001 0080 0724 
EXAN C 001 0004 0457 
C 001 0090 0801 


15 


16 


17 


18 


FIAL2VTA C 001 
17] FIANBLRN C 001 0080 of 
FIAMCKPT C 001 0040 0° 
FLANCONS C 001 0040 0¢ 
18] FIANDIRC C 001 0020 of 

FIAMDLTC C 001 0020 0% 
FIANDNFG C 001 0004 0 
19] FIAMDPCK C 001 0010 oF 

FIANGASK C 001 0008 0: 
FIANHKAS C 001 05 


028 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
01540000 (02 4268 * BE THE LINK EDIT ADDRESS IF THE MODULE WAS LINK EDITED TO A 02360000 | 02 
01550000 4269 ® 2K BOUNDARY. 02370000 


AOE FOO00 4270 * 02380000 
01570000 03) 089 1c 28 azn NVC TCBAARR-1C1, TCB1), TCBBEGL(,TCB1) MOVE IN BEGL VALUE 02390000 | 03 

CIC 4272 ALC _TCB@ARR-1C1, TCB1), TCBAARR-1(, TCB1) DOUBLE VALUE 02400000 

y TER ADDRESS 01580000 0882 6£ 00 18 15 4276 ALC  TCBAXR2C1, TCB1), RBSLEN*SLODTEXT(, RB2) ADO IN PROG. SIZE 02450000 
FUL ? 01590000 08B6 6C 01 19 10 aan HVC TCBAXR1C2, TCB1), RBSLEN+SATLOADC, RBZ) MOVE IN LOAD ADDR. 02460000 | 05 

E TCB 01600000 O8BA 5F 01 19 10 4278 ATO00040 SLC TCBAKR1C2,TCB1), TCBAARR(, TCB1) DECREMENT LINK a 02470000 


4279 TCBAXRI-1¢1, TCB1), TCBAKR2<, TCBI) ADD IN SECT. SIZE 
JUTINE 01610000 4280 * 
4281 * CALCULATE THE NUMBER OF 2K BLOCKS OF MAIN STORAGE REQUIRED ‘0 
TCR SPACE 01620000 4282 * START THE TASK CTCBMSSIZ). THIS WILL BE THE LARGEST OF THE 
01630000 4283 ® PROGRAN SIZE REQUIRED TO LOAD THE MAIN LINE OR THE PROGRAY 
01640000 4284 ® SIZE TO EXECUTE PASSED IN THE ATTACH PARN LIST. 
01650000 4285 * 
OUT TCB 01660000 03}  08C2 4E 00 2C OFBA 4286 ATOO0050 ALC TCBMSSI2(1,TCB1),ATCONONE ADD 2K TO MSSIZ REQ'D 
TO RB 01670000 O8C7 4F 01 19 OFB6 4287 SLC TCBAXR1(2,TCB1),ATCXO800 _—-DECREMEN? BY 2K 
ITIATOR ? 01680000 NOT UP TO SIZE YET 
QKINIT 01690000 
CLC TCBMSSI2(1, TCB1), RBSLEN+SATMGSIZ(,RB2) LARGER SIZE 
01700000 4290 *® THAN PROGRAM SIZE ? 
1. 01710000 0804 F2 04 04 4291 JNH — ATO00060 NO, LARGER SIZE SPEC. 
| VALUES 01790000 
a WAIVE 01800000 0807 9C 00 IF 2c 4292 PWC _RBSLEN*SATMSSIZ(1,RB2), TCBMSSIZ(, TCB1) MOVE IN LARGER 02610000 
TCA  aa298 01820000 O8DB 6C 00 2C IF 4293 ATOOO060 MC TCBNSSIZ(1, TCB1), RBSLEN*SATMGSIZ(,RB2) MOVE IN SIZE 02620000 | 11 
ECTORS 01830000 4294 * 02630000 
TSP. 01840000 4295 * INITIALIZE TCBTSSN C#2K BLOCKS K 8) 02640000 
M 99093 02191000 4296 * 02650000 | 12 
88093 02192000 O8DF 5C 00 2A 2C 4297 MVC TCBTSSNC1,TCB1), TCBMSSIZ(, TCB1) MOVE IN SWAP SIZE 02660000 
#09 02193000 O8E3 5 00 2A 2A 4298 ALC TCBTSSNC1,TCBI), TCBTSSNC, TCB1) MULTIPLY BY 2 02670000 
O8E7 5E 00 2A 2A 4299 ALC TCBTSSNC1,TCB1), TCBTSSNC, TCB1) MULTIPLY BY 4 02680000 | 1 
CNT -aa093 02194000 OBEB 5E 00 2A 2A 4300 ALC _TCBTSSNC1, TCB1), TCBTSSNC, TCB1) MULTIPLY BY 8 02690000 
09 67195000 OSEF 5C 00 20 2C $301 MVC TCBRGSIZC1, TCB1), TCBYSSIZC, 1CB1) MOVE IN REGION Size 02890000 
ON? A093 02200000 4302 * 02900000 | 14 
UPPORT COM" 02210000 4303 ® INIT. TASK'S TTC IN CASE IT DOES TASK TO TASK COMMUNICATION. ALSO 02910000 
4304* ALLOW NEW REQUESTOR ATTACHES IN CASE OF A MAT 02920000 
SET LOAD 02220000 4305 * 02930000 | 15 
SET LINK 02230000 O8F3 7C AO 50 4306 MMI TCBTTC-1¢,TCB1), ECMNSKIP+ECMTTC INITIALIZE TTC VALUE 02940000 
ee 03740000 O8F6 7A 40 OF 4307 SBN TCBSTAT4(, TCB1), TCBATTCH ALLOW MRT ATTACH 02950000 
02250000 16 
____ 02260000 
02270000 
. LIK a 02290000 
CBBEGL VALUE 02300000 {18 18 
EX OFFSET 02310000 
0 02320000 
TE BOUNDARY 02330000 19 
02340000 
= eA —“‘“‘C‘“‘“‘“‘s‘*zr 
VO 0 
C28 
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0002 2701 TCBLCKSP EQU X‘02' INTERLOCK FOR SPOOL FILE 
2702 * EQU. X'‘O1' INTERLOCK FOR RESERVED 


006A 2704 TCBSSTID EQU TCBLCKMK+1 | SHARED STORAGE TASK IDSK BITS 


006B 2706 TCBTSKID EQU TCBSSTID+l TASK ID 


ns ie 


ERR LOC OBJECT CODE 


O8F9 7C 00 19 


O8FC C2 02 0200 
0900 _4C_00 1A 0000 
0905 4C 00 1B OO0E 
090A BD 00 OC 
0900 F2 81 97 


0910 7C 00 IC 
0913 B8 02 77 
0916 B9 80 77 
0919 F2 90 03 


O91C 7C 05 1C 
O91F 20 01 0141 OD 
0924 B5 02 00 
0927 F2 01 22 
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R SIZE 
SPEC. 


IN LARGER 
IN SIZE 


SIZE 


02360000 
02370000 
02380000 
02390000 
02400000 
02410000 
02420000 
02440000 
02450000 
02460000 
02470000 
02480000 
02490000 
02500000 
02510000 
02520000 
02530000 
02540000 
02550000 
02560000 


02570000 


02580000 
02590000 
02600000 


02610000 
02620000 
02630000 
02640000 
02650000 
02660000 
02670000 
02680000 
02690000 
02890000 
02900000 
02910000 
02929000 
02930000 
02940000 
02950000 


15|FIADVTOC C 001 0010 0910 0935 0944 1039 


16/FIALLGLB C 001 0020 1021 


FIADTYPE C 001 O00C 0845 0855 


FIALLGCD C 001 0028 1016 
FIALLGIN C 001 0040 1019 


FIALIVTA C001 OO1E 0935 


FIAMDNFG C 001 0004 0960 
FIAMDPCK C 001 0010 0863 
FIANGASK C 001 0008 0973 


FIAMHKAS C 001 0010 0956 INITLDA A 002 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
4309 * 02 
4310 * SET UP VALUES IN THE FOLLOWING WORK FIE: 1S TO BE USED TO DETER- 
4311 * MINE IF THE TASK'S MAIN STORAGE REQUIRE! “ITS DO NOT EXCEED 


4312 * WHAT IS CURRENTLY AVAILABLE ON THE SYSTE. :. 

4313 * TCBAXR1-1 = TCBRGSIZ2-TCBMSSIZ OF ATTACHR 

4314 * TCBAXR1 == MAXIMUM ACTIVE SWAPPABLE REw ‘ON EXCEPT ATTACHOR 
4315 * TCBAXR2~1 = SCAMS#2K (# OF SWAPPABLE 2K PAGES AVAILABLE) 


092A B9 80 77 


BAXR2 = SCAMAXRG (MAXINUM ACTIVE SWAPPABLE REGION) 03050000 0920 88 02 77 
4317 * 03060000 0930 F2 90 70 
05] 08F9 7C 00 19 4318 (NI TCBAXR1C, TCB1),0 FIND MAX ACTIVE SWAPPABLE 03090000 | 05 
4319 ® REGION EXCLUDING CURRENT TCB 03100000 0933 6E 00 1C 20 
4320 * 03110000 0937 5D 00 1C iA 
06 4321 ® THE FOLLOWING BLOCK OF CODE CALCULATES THE MAXIMUM ACTIVE 03120000 093B F2 84 Al 
4322." SWAPPABLE REGION IN THE SYSTEM EXCLUDING THE ATTACHOR'S TASK 03130000 
wee 03140000 093E 50 00 18 IC 
O7| —08FC C2 02 0200 4324 LA NUACPTCB, TCB2 XR2-> CP'S TCB 03150000 | O7| 0942 F2 02 5E 
0900 4C 00 1A 000D 4325 MVC TCBAXR2-1(1, TCB1), NUASCA+SCAMS®2K MOVE IN #2K SWAP aa093 03153000 
0905 4C 00 1B O00E 4326 ‘WC TCBAXR2C1, TCB1), NUASCA+SCAMAXRG SET E=SCAMAXRG  an093 03156000 0945 5C 00 18 IC 
08} 090A BD 00 oc 4327 ATOOO100 CLI TCBCHAIN-1(, TCB2),0 ANY MORE TCB'S ? 03160000 | 08} 0949 F2 87 57 
0900 F2 81 97 4328 JE___AT000180 NO, HAVE GOT VALUE —_aa093 03170000 
094C 4E 00 05 OFBA 
09} 0910 7C 00 IC 4329 tI TCBAARR-1(, TCB1),0 SET ADD FACTOR TO. 0 aa093 03170400 0951 BD 00 0A 
0913 BS 02 77 4330 TBN _TCBSTAT6(,TCB2), TCBSNARQ USER OF SNA ? 9093 03170800 0954 F2 81 37 
0916 BY 80 77 4331 TBF  TCBSTAT6C, TCB2), TCBATNS AND NOT ATTACHED NS? aa093 03171200 
10} 0919 F2 90 03 4332 JF atooo110 NO, FACTOR IS 0 99093 03171600] 10] 0957 34 02 0980 
095B B5 02 0B 
O9I1C 7C 05 IC 4333 PI TCBAARR-1(, TCBI), SNASIZ SET TO 10K FOR SNA aa0o3 03172000 O95E B9 80 04 
11] 091F 20 01 0141 0D 4334 ATOOO110 CLC — NU@ACEQH*QHDSPTCBC2), TCBCHAINC, TCB2) CURRENT TCB  aaz90 03172400 | 11] 0961 B9 80 07 
0924 B5 02 0D 4335 L___TCBCHAINC, TCB2), TCB2 XR2-> NEXT TCB 9093 03172800 0964 F2 90 19 
0927 F2 Ol 22 4336 INE ATOO0120 NO, NOT CURRENT TCB 03173200 
12 12| 0967 6C 00 1D 04 
096B BD 00 00 
O96E F2 01 04 
3 B 
0971 5E 00 10 1C 
0975 50 00 19 10 
14 14) 0979 F2 u2 04 
097C 5C 00 19 1D 
15 15} 0980 BD 00 00 
0983 B5 02 01 
0986 CO 01 095E 
098A C2 02 0000 
098E B8 80 77 
17 17} 0991 F2 10 OF 
0994 6£ 00 1c 20 
18 1 0998 5D 00 19 IC 
099C F2 02 04 
19) 19] 099F 5C 00 19 1C 


09A3 CO 87 090A 


C29 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0020 2755 TCBCN3PD EQU X'20' 3 OPTION CANCEL PENDING 


0010 2756 TCBMABTN EQU  X'10' TASK IS_IN ABNORMAL TERMINATION 
0008 2757 TCBMSAFL EQU X'08' 2 OPTION-FLUSH PROC 

0004 2758 TCBMSTAB EQU  X'04' 2 OPTION-CONTINUE PROC 

0002 2759 TCBAEOEO EQU  X‘02‘ TAKE _ASYNC EXIT ON ERROR ONLY 


iE = 98 VO9/11/81 12/08/81 21:28 


TER- 


CHOR 
p) 


APPABLE 


03170400 
03170800 
03171200 


03171600. 


03172000 
03172400 
03172800 
03173200 


15 


16]HPASGERR C 001 0080 0581 


17{HPHALTED C 001 000D 0589 


18]HPNOTBSY C 001 0008 0585 0589 


19] TAR C 001 0010 0780 


F51 C 001 0001 4132 —_4982* 4983 4990* 4993* 4995 

F52 C 001 0002 4131 5021* 5022 5028 5029 5030 5034 5041 5046* 5051* 
GETPANYP C 001 0020 0454 

GETPHSIC C 001 0010 0455 

GETPNOTC C 001 0008 0456 


HPCSSVC_C 001 0010 0584 
HPERRPND C 001 0001 0588 0589 


HPI2SVCA C 001 0020 0583 
HPNOSTRT C 001 0002 0587 


HPSTART C 001 0040 0582 
HPWAITNG C 001 0004 0586 0589 


TARX C 001 0008 0818 


INITLDA A 002 OFBC 5094 = 4243 


030 


#SVAT TCB ATTACH TRANSIENT 


01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 4338 * 
4339 * IF USER'S OF SECONDARY SNA ACTIVE, THEN MAX ACTIVE REGION SIZE aa093 
4340 * MAY BE TASK'S REGION SIZE PLUS 10K. ALSO ENSURE THAT IF 99093 
03 4341 * TASK IS AN SNA USER, THEN IT'S REGION SIZE PLUS 
4342 * THAT OF SNA'S CAN FIT TOGETHER 
4343 * 99093 
04) 092A B9 80 77 4344 TBF TCBSTAT6C, TCB2), TCBATNS ATTACHED SWAP ? 
0920 BS 02 77 4345 TBN _TCBSTAT6(,TCB2),TCBSNARQ AND USER OF SNA? —-aa093 
0930 F2 90 70 4246 JF ATO00160 NO, IT 1S NOT 3093 
05) 
0933 6E 00 1C 20 4347 ALC TCB@ARR-1(1,TCB1), TCBRGSIZ(, TCB2) ADD IN REG. SIZE aa093 
CLC TCB@ARR-1(1, TCB1), TCBAXR2~1¢, TCB1) ENOUGH STORAGE ?@a093 
06] 0938 F2 84 Al 4349 JH AT000200 NO, THERE IS NOT 92290 
TCBAXR2(1, TCB1), TCBAARR-1(, TCB1) NEW MAX. ACTIVE ? aa093 
07] +0942 F2 02 5E 4351 JNL — ATO00160 NO, IT IS NOT 99093 
0945 5C 00 1B IC TCBAXR2(1, TCB1), TCBAARR-1(, TCB1) MAKE NEW MAX ACTIVGa093 
OS} 0949 F2 87 57 CHECK NEXT TCB 92093 
TCBPRIOR(1,TCB1),ATCONONE ADD 1 TO ACTIVE TASK COUNT 
09] 0951 BD 00 OA CLI TCBPUSH-1(, TCB2),0 ANY ON PUSH QUEUE ? 


0954 F2 81 37 JE__ATO00150 NO, DON'T CHECK THEN 
10) 0957 34 02 098D 4357 ST — ATO00140+3, TCB2 STORE TCE ADDRESS 
095B B5 02 08 4358 L TCBPUSH(, TCB2), PSH2 POINT TO PUSH ELEMENT 03250000 
O95E B9 80 04 4359 ATOOO125 TBF —PUSHIND(, PSH2), PUSHPART INVALID PUSH ELEMENT ? 03260000 
11} 0961 B9 80 07 4360 TBF — PUSHCORE(, PSH2), PUSHNONS OR TASK NON-SWAPPABLE ? 03270000 }1 
0964 F2 90 19 4361 JF AT000135 YES, DON'T FIGURE SCANS#2K 03280000 
12} 0967 6C 00 10 04 4362 MVC -TCBAARR(1,1CB1),PUSHINOC,PSH2) MOVE IN REG. SIZE @a093 03282000 
0968 BD 00 00 4363 CLI PUSHOCH-1(, PSH2),0 LAST PUSH ELEMENT aa093 
O96E F2 01 04 64 30 NO, FACTOR IS OK 
13 
ALC TCB@ARR(1, TCB1), TCBAARR-1¢,1CB1) ADD IN SIZE 
0975 5D 00 19 10 4366 ATOOO130 CLC = TCBAXR1(1,TCB1), TCBAARR’ = "1) SIZE > MAX? 
14 0979 F2 02 04 4367 JNL = -ATO00135 NO, NOT GREATER 03300000 
097C 5C 00 19 10 4368 MVC TCBAXR1(1, TCB1), TCBAARRC, TCB1) MOVE IN SIZE 89093 03310000 
1 0980 BD 00 00 4369 ATOOO135 CLI PUSHOCH-1¢,PSH2),0 ANY MORE ON QUEUE ? 03320000 
0983 B5 02 01 4370 L PUSHOCH(, PSH2), PSH2 POINT TO NEXT 03330000 
0986 CO 01 095E 37 BNE — AT000125 YES CHECK NEXT 03340000 
16 
098A C2 02 0000 4372 ATOOO140 LA #, TCB2 RELOAD TCB ADDRESS —_aa093 03350000 
O98E B8 80 77 TASK ATTACHED NON-SWAP? 
17] 0991 F2 10 OF 4374 JT ~~ ATO00160 YES, DON'T FIGURE IN 03370000 }7 
ALC TCBAARR-1(1, TCB1), TCBRGSIZ(¢, TCB2) ADD IN REG SIZE aa0d3 
18} 0998 5D 00 19 IC 4376 CLC = TCBAXR1(1, 7CB1), TCBAARR-1¢,TCB1) SIZE > MAX ? 093 03380000 
O99C _F2 02 04 4377 JNU__ATO000160 NO, NOT GREATER THAN faa093 
19] 099F 5C 00 19 1C 4378 MVC TCBAXR1(1, TCB1), TCBAARR-1¢, TCB1) MAKE NEW MAX aa093 


09A3 CO 87 090A 4379 ATO00160 B ATO00100 CHECK NEXT TCB 
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ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


OO7E 2810 TCBSTAT? EQU  TCBX+] TCB STATUS BYTE 7 

2811 * 
0080 2812 TCBSPWTR EQU X‘80' SPOOL WRITER ID ; 
0040 2813 TCBSPLRS EQU  X'40' SPOOL TERMINATION 


ee ee Oe ee ae ee 


4) TWLRESO4 C 001 O02F 
TWLRESO5 C 001 
TWLO8000 C 001 0019 
TWL50000 C 001 
1WL51000 C 001 


#SVAT TCB ATTACH TRANSTEN 


ERR LOC OBJECT CODE 


O9A7 75 02 17 
O9AA BS 01 27 


O9AD F2 90 28 


0980 35 02 0141 


0984 6C 00 27 20 
O9B8 6F 00 27 2C 


O9BC B8 80 77 
O9BF F2 10 07 


09C2 5F 00 1B 27 
0906 F2 87 04 


09C9 5E 00 1A 27 


O9CD 5D 00 18 19 
09D1 F2 02 04 


0904 5C 00 1B 19 


0908 5D 00 1A 2D 
O9DC F2 02 05 


O9DF CO 87 0E12 


O9E3 01 

09E4 75 02 17 
O9E? B8 02 1E 
O9EA F2 10 OF 


SPAWLACOUS LF UL Wier 1Z04 1Z0) 
IWLRESO5 C 001 0031 1285 1289 
TWL08000 C001 0019 1273 1274 
5] 1W.50000 C 001 001B 1274 = 1275 
1WL51000 C 001 001D 1275 


GLIWMFITAF C 001 0020 1251 
IWMJCBAD C 001 0013 1267 1268 


TWMODLDA C 001 F800 1343 
TWMODSKa C 001 0059 1324 = 1325 
1WMODSK1 C 001 0050 1325 
IWARTREL C 001 0001 1245 
TWTCBAD C 001 0015 1258 1269 
TWMTUBAD C 001 0017 1269 1273 


TWANFLD C001 0011 1263 1267 
Sy IWNOQUE C 001 0040 1250 
IWNOTERN C001 0010 1238 
TWONLYER C 001 0040 1236 


7 


8 
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9a093 
ION SIZE aa093 
F 90093 
99093 
90093 
aa093 
ea 
NA ? 0093 
j 90093 


EG. SIZE a093 
STORAGE 700093 
NOT 0290 


ACTIVE ? aa093 


i ag093 


MAX ACTIVaG09 
-B 9093 


VE TASK COUN 


WUEUE ? 
CK THEN 


RESS 
1 ELEMENT 

EMENT ? 
WAPPABLE ? 
JGURE SCANS#2K 


G. SIZE aaog3 
MENT 40093 


26 R093 
? 38093 


DRESS 093 
) NON~SWAP? 


GURE IN 
EG SIZE aa093 


XK ? 8095 
ER THAN [aa093 


MAK 88093 
B 


1/81 12 


0) 


03173600 02 
03174000 
03174400 
03174800 03} 
03175200 
03175600 
03176000 94 
03176400 
03176800 
® 
03177200 
03177600 
02178000 96 


03178400 
03178800 


| 


03179200 
03179600 d 
03210000 : 
03220000 $Y 
03230000 


03235000 
03250000 
03260000 
03270000 
03280000 


81 21:28 


1276 


031 
#SVAT TCB ATTACH TRANSTENT PAGE 100 VO9/11/81 12/08/81 21:28 - 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
4381 * 03440000 | 0 
4382 * AT THIS POINT: TCBRGSIZ=TCBMSSIZ=REGION SIZE 10 EXECUTE 03450000 
4383 * TCBAXR1=B=MAX. ACTIVE SWAP EXCLUDING ATTACHOR 03460000 
4384 -* TCBAXR2-1=SCANS#2K=NUPBER AVAIL. SWAP PAGES 03470000 | 03} 
4385 * TCBAKR2=E=SCAMAXRG 03490000 
4386 * CHECK THE BIT IN THE SECOND FLAG BYTE OF THE PARAMETER LIST TO aaz90 03500000 
4387 * SEE IF THE SATACHER REQUEST FOR STORPE IS ON. @a290 03510000 | 04 
4388 * NOW TEST FOR THE REQUEST FOR THE EXTRA STORAGE (FROM ATTACHER) aa290 03515000 
O9A? 75 02 17 4389 ATOOO180 L —«TCBCRBC, TCB1), RB2 XR2->ATTACHER'S TCB  aa290 03520000 
O9AA BS 01 27 4390 TBN  RBSLEN+SATFLAG1(, RBZ), SATACHER 94290 03540000 | 05) 
4391 * IF THE BIT IS NOT ON, THEN SKIP THE NEXT BLOCK OF CODE aa290 03550000 
4392 * CHECK TO SEE IF THERE IS ANY EXTRA .;ORAGE AVAILABLE 9290 03570000 
4393 * IF NOT, SKIP TO TRY THE REGULAR ATTACH WITHOUT EXTRA STORAGE  aa290 03590000 | 06 
4394 * OTHERWISE, SUBTRACT THE EXTRA STORAGE FROM WHAT IS REQUESTED aaz90 03610000 
O9AD F2 90 28 4395 JF ATOOOINS te = 94290 03622000 F 
- 7 
4396 * TCBa _R-TCB2 - 8290 03624000 
0980 35 02 0141 4397 C321, TCB2 GET TCB ADDRESS. 
4398 *** END OF EXPANSION ** 08 
09B4 6C 09 27 20 4399 MVC TCBAINL4(1, TCB1), TCBRGSIZ(, TCB2) 93290 03626000 
0988 6F 00 27 2C 4400 SLC TCBAINL 4(1, TCB1), TCBMSSIZ(, TCB2) 98290 03628000 
4401 * CHECK IF THE ATTACHING TASK IS NONSWAPPABLE aa290 03630000 | 09 
4402 * IF IT IS SWAPPABLE, SKIP TO INCREMENT THE NUMBER OF 2K AVAILABLE@a290 03650000 
4403 * IN THE SYSTEM. OTHERWISE, FIRST SUBTRACT THE EXTRA STORAGE FROMAA290 03660000 
4404 * THE MAXIMUM ACTIVE REGION SIZE. @a290 03670000 | 10 
O9BC B8 80 77 4405 TBN _ TCBSTAT6(, TCB2), TCBATNS IS HE NON-SHAPPABLE ? aa290 03673000 
O9BF F2 10 07 4406 Jt AT000185 IF NOT,DO NOT SUBTRACTaaZ90 03676000 
u 
09C2 5F 00 1B 27 4407 SLC TCBAXR2(1, TCB1), TCBAINL4(, TCB1) DEDUCT EXTRA i290 03680000 
09C6 F2 87 04 4408 J AT000190 SKIP ADDING TO SYSTEM TOTAL  aaz90 03685000 
09C9 5E 00 1A 27 4409 ATO00185 ALC TCBAXR2~1(1,1CB1), TCBAINL4(, TCB1) ADD TO MS#2K ——_-aai290 03690000 
4411 * COMPARE SCAMAXRG WITH THE MAXIMUM ACTIVE SWAPPABLE REGION 9a290 03700000 | 13 
4412 * IF THIS TASK IS NOT GREATER THAN THE MAX ACTIVE SWAPPABLE TASK aa290 03701000 
4413 * THEN JUMP. OTHERWISE, MAKE THIS TASK THE MAX ACTIVE SWAP TASK aaz90 03702000 
O9CD 5D 00 18 19 4414 ATOOO190 CLC} TCBAXR21, TCB1), TCBAXR1(, TCB1) 94290 03703000 | 14 
09D1 F2 02 04 4415 JNL_ATO00195 38290 03704000 
09D4 5C 00 1B 19 4416 MVC TCBAXR2C1, TCB1), TCBAXR1(, TCB1) 8290 03705000 | 15} 
4417 * NOW CHECK IF THERE IS ENOUGH STORAGE AVAILABLE TO FIRE UP TASK aa290 03706000 
0908 50 00 1A 2D 4418 ATOOO195 CLC TCBAXR2-1(1, TCB1), TCBRGSIZ(, TCB1) 3290 03707000 
O9DC F2 02 05 4419 JNL — AT000205 OKAY-JUMP, OTHERWISE ERROR 4290 03710000 | 16 
O9DF CO 87 OE12 4420 ATOO0200 B _ATERROR GO ISSUE ERROR 290 03720000 
V7 
09E3 01 09E3 4421 DC ALICSATERRO1) NOT ENOUGH SWAPPABLE STOR. 03730000 
0964 75 02 17 4422 AT000205 L —«sTCBCRBC, TCB1), RB2 XR2-> CURRENT RB 98290 03740000 
09E7 BS 02 1E 4423 TBN —RBSLEN+SATFLAG(, RBZ), SATNSWAP IS TASK TO BE NON-SWAP? 03750000 | 18 
O9EA F2 10 OF 4424 JT Ato00210 YES, IT IS TO BE 8290 03760000 
ee 7 
¢ 
C31 


*SVAT TCB ATTACH TRANSIENT PAGE 64 09/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


2818 * STRB  V-EQU 

2819 * TIMER REQUEST BLOCK 

2820 ®RARRARRARARARANAREARRARRRARARARARRARRRERRRARARERAAARRRRERRERERARRRERER 

2821 * 00 ®01 * 02 07 * 

2822 * FLG1 * FLG2* TIME ie 
® 


AOU LWT TAN. 


#SVAT TCB ATTACH TRA 


ERR LOC OBJECT CODE 


O9€D 5D 00 2D 18 
O9F1 F2 04 23 


O9F4 5C 00 1B 20 
O9F8 F2 87 IC 


O9FB 5F 00 1A 2D 
OSFF 7A 80 77 
0A02 7A 01 00 
OA0S 5D 00 1A 1B 


OA09 F2 02 05 


OAOC CO 87 0F12 
OA10 03 

OAL] 7D 00 05 
0A14 F2 01 06 


0A17 7D 05 1A 
OAIA F2 02 0B 


OAID 7D 07 1A 
0A20 F2 02 05 


OA23 CO 87 0E12 


0A27 02 


*SVAT CB ATTACH TF 


ERR LOC OBJECT CODE 


JCBOCRLB C001 
14] scBocsBP C 001 


JCBDDATE C 001 
15] JCBDDFRG C 001 
JCBDDTFA C 001 


15121513 
1518 4750 
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03440000 
EXECUTE 03450000 
JING ATTACHOR 03460000 4428 * UPDATE THE OLD SCAMAXRG IF NEW TASK'S REGION SIZE EXECEEDS 
SWAP PAGES 03470000 4429 * THE OLD MAXIMUM ACTIVE SWAP SIZE. 
03490000 4430 _* 
ETER LIST TO aa290 03500000 O9ED 5D 00 2D 1B 4431 CLC = TCBRGS12(1, 1CB1), TCBAXR2¢, TCB1) WILL IT BE NEW MAX? 
aa290 03510000 O9F1 F2 04 23 4432 JNH = ATO00225 NO, IT WILL NOT 38290 
ROM ATTACHER) aa290 03515000 
FACHER'S TCB © aa290 03520000 O9F4 5C 00 18 20 4433 MVC TCBAXR2(1, 1CB1), TCBRGSI2¢, TCBi) MOVE IN NEW MAX 
90290 03540000 |05| O9F8 F2 87 IC 4434 J AT000225 GO UPDATE VALUES 3290 
CODE aa290 03550000 
BLE 2a290 03570000 4435 * SUBTRACT TCBRGSIZ FROM SCANS#2K aa290 0A34 F2 87 0 
(TRA STORAGE  a8290 03590000 }06] O9FB 5F 00 1A 2D 4436 ATOOO210 SLC  TCBAXR2-1¢1,TCB1), TCBRGSIZ(, TCB1) DECR. BY REG. S12aa290 
IS REQUESTED aaz90 03610000 O9FF 7A 80 77 SBN TCBSTAT6C, TCB1), TCBATNS INDICATE ATTACHED NON-SWAP 0A37 CO 87 OF 
90290 03622000 0A02 7A 01 00 SBN TCBSTAT1¢, TCB1), TCBNSWAP INDICATE TASK NON-SWAP 
4439 * IS SCAMS#2K LESS THAN OR EQUAL TO THE MAX ACTIVE SWAP REGION? @az90 
8290 03624000 OA0S 5D 00 1A 1B CLC TCBAXR2-1(1, TCB1), TCBAXR2¢, TCB1) WILL TASK'S INIT aa290 
SCAMS#2K ? 93290 
OS} = 0A09 F2 02 05 NO, IT WILL NOT 30290 
aa290 03626000 
98290 03628000 
43290 03630000 4444 * WE CAN NOT START A NON-SWAPPABLE TASK UP THAT WILL PUT AN 
F 2K AVAILABLE@A290 03650000 4445 * ALREADY ACTIVE TASK COTHER THAN THE ATTACHOR) TO SLEEP. 
A STORAGE FROMBAZ9O 03660000 
90290 03670000 OAOC CO 87 OE12 4447 B ATERROR ERROR, TASK'S INIT. 
IN-SWAPPABLE ? @€290 03673000 
0 NOT SUBTRACTAA290 03676000 OA10 03 OALO 4448 DC = ALICSATERRO3) WILL PUT ANOTHER TO SLEEP 
OAL1 7D 00 05 4449 AT000220 CLI TCBPRIOR(, TCB1), ZERO TS ATTACHOR ONLY ACTIVaa290 
T EXTRA 8290 03680000 OA14 F2 01 06 4450 JNE _AT000230 NO, ENSURE 14K AVAIL. aa290 
TEM TOTAL 98290 03685000 
OAI7 7D 05 1A 4451 AT000225 CLI TCBAXR2-1(, TCB1), FIVE 10K SWAPPABLE AVAIL.? aa290 
) TO MS#2K a8290 03690000 OAIA F2 02 08 4452 JNL__ATO00240 YES, ALLOW ATTACH 
E REGION #8290 03700000 OAID 7D 07 1A 4453 AT000230 CLI © TCBAXR2-1, TCB1), SEVEN NO, THEREFORE MUST HAVaa290 
WAPPABLE TASK aa290 03701000 OA20 F2 02 05 4454 JNL___ATO00240 AT LEAST 14K SWAPPABLE 
VE SWAP TASK a290 03702000 
90290 03703000 {14} 0A23 CO 87 0E12 ERROR - AT LEAST 14K 
0290 03704000 
OA27 4456 DC ALI $ATERROZ) NOT AVAILABLE 
#8290 03705000 
| FIRE UP TASK aa290 03706000 
90290 03707000 
E ERROR aa290 03710000 
ERROR 88290 03720000 
GH SWAPPABLE STOR. 03730000 
RRENT RB 98290 03740000 
TO BE NON-SWAP? 03750000 
1S TO BE 38290 03760000 


C32 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


2842 * TQE 
2843 * DATE LAST CHANGED: 03/10/77 JHP 


2844 RRAKRKARRAAAKARARAKARARRARAAARAA RAK AE ARAAKAAKAKRKARKK KARR EK RAKKKERKKHKRIIK 


slalalslatalalatalalatalatelalatatatatabad 


o7* * 


l 


15] JCBDWSBP C 001 


JCBDIPRC C 001 


JCBLLNTH C 001 
16] JCBNBTCH C 001 


JCBMDEAD C 001 


JCBNOKAL C 001 
17] JCBMOOMD C 001 


JCBMOPRD C 001 


JCBMOSRC C 001 
10] JCBMEIBa C 001 


JCBMEOMP C 001 
JCBMEVPR C 001 
19) JCBMEXTD C 001 
JCBMFLIS C 001 


SCBMELUC C 001 
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03770000 }02 
Y 03780000 
EDS 03790000 

03800000 |03 
03810000 
NEW MAX? 03820000 

T aa290 03830000 }04 
MAK 03840000 

ES 9290 03850000 }05 
A290 03855000 

REG. S1Z@a290 03860000 |06 
HED NON-SWAP 03870000 
NON-SWAP 03880000 
EGION? @az90 03885000 
S INIT @a290 03890000 
9a290 03895000 
T @a290 03910000 
03920000 

AN 03930000 |09) 
03940000 
03950000 

INIT. 03960000 |10 
ER TO SLEEP 03970000 

LY ACTIVaa290 04120000 |11 
AVAIL. @290 04130000 

AVAIL. 2 8290 04140000 |12} 
ACH 04150000 

MUST HAVAAZ90 04160000 }13 
WAPPABLE 04170000 

ST 14K 04180000 |14 
04190000 

15 

16 

7 

18 

17 

20 
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AERERRARKERRKRA 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


OA28 5C 00 19 20 
OA2C CO 87 0E65 


0A30 CO 87 OEE2 
0A34 F2 87 05 


0A37 CO 87 OE12 


15431544 


1481 


033 
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ADDR STMT SOURCE STATEMENT 


4458 * GO TO CALCULATE THE NUMBER OF TRACKS TO ALLOCATE, AND THEN 30290 


4459 * ALLOCATE THE SWAP AREA ON DISK. 90290 
4460 ATO00240 MVC = TCBaXR1(1, TCB1), TCBRGSI2(, 1CB1) SET SIZE TO CONVERT..1290 
4461 B SWAPSIZE GO CONVERT #2K TO TRACKS a0290 
4462 * 

4463 * NOW BRANCH TO THE ALLOCATE SUBROUTINE TO 8290 
4464 * ALLOCATE THE REQUIRED SWAP AREA ON DISK aa290 
4465 * 30290 
4466 B ALLOC GO ALLOCATE SWAP AREA aa290 
4467 J ATO00242 JUMP SUC CESSFUL 20290 
4468 B ATERROR GO TO ERROR ROUTINE aa290 


DC = ALL CSATERROS) 


SWAP AREA NOT AVAIL. aa290 


ERR LOC OBJECT CODE 


04191200 
04191800 
04192400 
04193000 


04193600 
04194200 
041943800 
04195400 
04196000 
04196600 
04197200 


04197500 


C33 
‘#SVAT_TCB ATTACH TRANSIENT PAGE 


ADDR STMT SOURCE STATEMENT 


0008 2890 TTLEN EQU  TQEFLNK+1 
2891 *** END OF EXPANSION ** 


LENGTH OF THE TQE. 


0 “SVAT TCB ATTACH TRA 
1 


03} 


OS 


06 


07 


OS 


10} 


1] 


14 


15 


16 


V7 
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ERR LOC OBJECT CODE 


OA3C 4C 01 29 OFEO 
OA41 5C 01 37 29 
OAS 4C 00 38 OF81 
OA4A 75 02 17 

OA4D 6C 00 05 20 
OA51 6C 00 68 28 


OA55 70 00 68 
OAS8 F2 01 20 


OASB OE 00 0273 OF 
OA61 3D_E0 0273 
OA65 F2 82 04 


OA63 3C 01 0273 


OASC C2 02 0200 
OA70 8D 00 6B 0273 
OATS CO 81 OA5B 


OA79 BD 00 OC 
OA?C B5 92 0D 
OA7F CO 01 OA70 


0A83 4C 00 68 0273 
0A88 02 02 00 


OA8B F4 00 06 
OASE 0030 
0A90 U1 


OAS] 36 Ol rc” 
0A95 F2 01 05 


0A98 CO 87 O12 
OASC 05 

OAST SF 1111 11 
OAAL B4 01 33 


OAAS 85 02 17 
OAAT 7C 10 11 


*SVAT CB ATTACH TF 


ERR LOC OBJECT CODE 


JCBMSCRT C001 0008 1410 


JCBMSELT C 001 0002 
14) JCBMSEOJ C 001 


JCBMUPS? C 001 0002 1432 


= 102 VO9/11/81 12/08/81 21:28 0 
1 
ERR LOC OBJECT CODE 


90290 04191200 | 02 


9290 04191800 
JERTa.290 04192400 
aa290 04193000 } 03) 
04193600 OA3C 4C 01 29 OEEO 
9a290 04194200 | 04) 0A41 5C 01 37 29 
a290 04194800 OA45 4C_00 38 OF81 
A290 04195400 OA4A 75 02 17 
EA aa290 04196000 | 05}  0A4D 6C 00 05 20 
OA51 6C 00 68 28 
9a290 04196600 
06 
aa290 04197200 
aa290 04197500 |07}  OA55 70 00 6B 


OA58 F2 01 2D 


08}  OA5SB OE 00 0273 OFBA 


034 


#SVAT TCB ATTACH TRANSIENT 


ADDR STMT SOURCE STATEMENT 


4471 * 
4472 * AT THIS POINT: 
4473 * TCBAXR2-1=SCANS#2K 


PAGE 103 VO9/11/81 12/08/81 21:28 


4474 * TCBAXR2 =SCAMAXRG ALSO, MAIN STORAGE IS AVAILABLE 


TCBTSSN-1(2, TCB1), ALSSS 


MOVE IN ALLOCATE SS VALUE 


ATSVSSSA-1¢2, TCB1), TCBTSSN-1¢, TCB1) SAVE IN TCB 


ATSVSSSAC1, TCB1), ATALSIZ 
TCBCRBC, TCB1), RB2 


SAVE SIZE ALLOCATED 
XR2-> CURRENT RB 


TCBPRIORC1, TCB1), RBSLEN*SATPRIOR(,RB2) MOVE IN Paa354 
TCBTSKIDC1, TCB1), RBSLEN*SATTSKIDC,RB2) MOVE IN Taa354D 


4483 * IF A TASK ID IS PASSED IN THE ATTACH PARAMETER LIST, BYPASS 


4484 * CALCULATING THE NEW TASK'S ID. 


CLI = TCBTSKIDC, TCB1),0 
JNE___AT000242 


ANY TASK ID ? 
YES, BYPASS ID ASSIGN 


4488 ATOOAZ42 ALC NU@CPTCB+TCBNSCNT(1),ATCONONE ADD 1 TO ID 


0A61 3D £0 0273 4489 CLI _NU@CPTCB+7CBNSCNT, TCBMAXID MAXIMUM ID ? 
OA6S F2 82 04 4490 JL ATOOB242 NO, IT IS IN RANGE 
09 
ORGS 3C 01 0273 4491 VI NUACPTCB+TCBNSCNT, 1 SET ID TO 1 
4492 ® 
10 4493 * ENSURE ASSIGNED ID IS UNIQUE 
4494 * 
OASC C2 02 0200 4455 4T00B242 LA = NUACPTCB, TCB2 XR2-> FIRST TCB 
11[ —0A70 8D 00 68 0273 4496 Al. W242 CLC TCBTSKIDC1, TCB2), NUACPTCB+TCBNSCNT UNIQUE VALUE ? 
0A75 CO 81 OASB 4497 BE ATOOA242 NO, ASSIGN NEXT ID 
12] 0A79 BD 00 OC 4498 CLI TCBCHAIN~1¢, TCB2),0 ANY MORE TCBS ? 
OA7C B5 92 0D 4499 L TCBCHAINC, TCB2), TCB2 XR2-> NEXT TCB 
OA?F CO 01 OA70 4500 BNE  ATOOC242 YES, CHECK NEXT 
13 
0A83 4C 00 6B 0273 4501 MVC TCBTSKID(1, TCB1), NUACPTCB+TCBNSCNT MOVE IN TASK ID 
ASS 02 02 00 4502 ATOOD242 LA OC, TCB1, TCB2 XR2-> CURRENT TCB 
14 4503 * 
4504 * ASSIGN AN RB TO START THE NEW TASK 
4505 * 
15 4506 * ASSGN LEN-RBSTLEN ASSIGN AN RB 
OASB F4 00 06 4507 SVC _SVCASSGN,O ASSIGN REQUEST 
OASE 0030 OASF 4508 DC AL2(RBSTLEN) ASSIGN LENGTH 
16} 0A90 01 OA90 4509 DC ALIC1+0) ATTRIBUTES 
4510 *** END OF EXPANSION ** 
OA91 36 O1 OFBD 4511 A ATZERO, RBI ASSIGN SUCCESSFUL ? 
17] 0A95 F2 01 05 4512 JNE — ATO00243 YES, SUCCESSFUL 
0A98 CO 87 OE12 4513 B _ATERROR GO TO ERROR ROUTINE 
18) 
OASC 05 OASC 4514 uC ALICSATERROS) ERROR CODE 5 
OASE 5F 11 11 11 4515 ATO00243 SLC RBSLEN-1(RBSLEN, RB1), RBSLEN-1(,RB1) ZERO OUT RB 
19] OAAL B4 01 33 4516 ST _ATSVRBA, TCB2), RBI SAVE RB ADDRESS 
OAA4 B5 02 17 4517 L TCBCRBC, TCB2), RBZ XR2-> CURRENT RB 
OMA? 7C 10 11 4518 NVI RBSINL4C,RB1), XFERCTL SET UP XFER CONTROL 
C34 
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ERR LOC OBJECT CODE 


SSVAT TCB ATTACH TRANSIENT 


ADDR STMT SOURCE STATEMENT 
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2893 * TUB 


2894 RARRRERRAAERRK RARER ER RARER ERER RE RRE RIES EIIIIIIIEIIREIIIIIOI IOP IE 


2895 * 
220K *® 


* 


TEDMIANA! JAITT BIorr Coho TCOMI AMC *« 


01 


te) 


07 


09 


10 


11 


15 


16 


n2 


“SVAT TCB ATTACH TRANSIE 


ERR LOC OBJECT CODE 


OAAA 6C 01 05 05 
OAAE 4C 01 03 0141 
OAB3 4C 01 08 OFB4 
OABS 6C 01 09 19 
OABC 35 01 OF84 
OACO 88 20 if 
OAC3 F2 10 31 


OAC6 BS 04 27 
ORCS F2 9 04 


OACC 6C 01 13 2A 
OADO BO 00 21 
OAD3 F2 81 04 


OAD6 6C 01 15 22 
OADA 3C 01 OF81 
OADE CO 87 OFE2 


OAE2 F2 87 05 


OAES CO 87 OE12 


OAES 07 

OAEA 4C 01 55 OFEO 
OAEF 5C 01 3A 55 
OAF3 CO 87 OCOB 


OAF7 B5 02 22 
OAFA B4 01 24 
OAFD 6C 01 15 32 
0B01 6C 01 55 22 
0805 B9 CO 03 
0B08 B8 20 39 
OB0B F2 90 19 


OBOE B4 02 2E 
0811 B5 01 24 
0B14 75 08 13 
0B17 7C 04 13 
OBIA E2 02 25 


0B1D F4 01 04 
0820 33 


OB2i 74 08 13 
0B24 F2 87 £4 


#SVAT TCB ATTACH TRANS! 


ERR LOC OBJECT CODE 


PAGE 103 V09/11/81 


LE 


OCATE SS VALUE 
IN TCB 

LLOCATED 

NT RB 

OVE IN Paa354 

OVE IN Taa354D 


, BYPASS 


? 
ID_ASSIGN 


N RANGE 


TCB 
: VALUE ? 
NEXT ID 


IN TASK ID 
iT TCB 


12/08/81 21:28 
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KARR ERR RRR 


NUGATQE C 001 O3A8 1745 = 1747 


15] NUaCPTAH C 001 0002 1699 
NUACPTCB C 001 0200 1698 1702 4324 4483" 4489 4491" 4495 4496 4501 4462 4809 4928 
NUBCSETC C 001 0380 1736 1738 

16|NUGCXIOB C 001 O1EO 1696 1698 
NUADLTQE C 001 03A0 1743 = 1745 
NUADPACE C001 0300 1749 1751 

17|NUaDPIOB C 001 0380 1747 = 1749 
NUADSTQE C001 0390 1738 1741 
NUAERACE C001 0310 1722 1724 

18] NUAIEACE C 001 0370 1734 = 1736 
NUAIPLAF C001 03FO 1753 1768 
NUALGACE C 001 0320 1724 1726 

19}NUALOADI C 001 2000 1777 
NUBMACE C001 0340 1728 1730 
NUAMANTQE C 001 0398 1741 = 1743 


20 
035 
01 OL 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
04360000 | 02}  OAAA 6C 01 05 05 4519 MVC RBSXR2(2,RB1),RBSXR2¢,RBZ) SET WEW TASK*S XR2 VALUE Ud) 
04370000 OAAE 4C 01 03 0141 4520 MVC___RBSXR1(2,RB1), NUAACEQH*QHDSPTCB SET TCBa AS NEW XR1 
04380000 OAB3 4C 01 OB OFB4 4521 MVC RBSPSR(2,RB1), ATPMRL MOVE IN PMR VALUE 04590000 
04390000 | 03]  OABS 6C 01 09 19 4522 MVC -RBSIARC2,RB1), RBSLEN+SLODSTRT(. RBZ) SET NEW START C a 4600000 | 03 
04400000 OABC 35 01 OF84 4523 L___ATTCB, TCBI RELOAD TCB ADDRESS 04610000 
04410000 OACO BS 20 1E 4524 TBN  RBSLEN+SATFLAG(,RB2),SATTUBAS TUB ADDRESS PASSED ? (04630000 
04420000 | 04) 0AC3 F2 10 31 4525 JT at000247 YES, A TUB @ PASSED o46an000 | OF 
04430000 
04440000 OAC6 BS 04 27 4526 TBN RBSLEN+SATFLAG1(, RBZ), SATNRTUB PASS TUB ADDRESS TO TASK? 04650000 
04443000 | 05] OAC9 F2 90 04 4527 JF = atooo2z44 NO, DON'T PASS ADDRESS 04660000 | 05} 
OACC 6C 01 13 2A 4528 MVC TCBRTUBC2, TCB1), RBSLEN*SATDATAA(, RB2) GIVE TUB ADDRESS 
4529 AT000244 CLI RBSLEN*+SATJCBa-1(,P82),0 ANY JCB ADDRESS PASSED ? 
OAD3 F2 81 04 4530 JE __ATOOA244 NO, NONE PASSED 
4531 * 
4532 _* IF NO TUB ASSOCIATED WITH THE ATTACH, THEN ALLOCATE A 1 TRACK 
4533 * TCBUSWA FOR TASK. 04720000 | 
04462800 | 08 4534 * 04730000 {05 
04463200 OAD6 6C 01 15 22 4535 VC TCBJCBAC2, TCB1), RBSLEN+SATJCBAC, RB2) MOVE IN JCBS 04740000 | 
04463600 OADA 3C 01 OF81 4536 ATOOA244 NVI ATALSIZ,1 SET TO ALLOCATE 1 TRACK 
09]  OADE CO 87 OEE2 4537 BALLOC AS A USHA 
54464000 
04464400 OAE2 F2 87 05 4538 J AT000245 ALLOCATE SUCCESSFUL 
04464800 | 10 
04465200 OAE5 CO 87 OF12 4539 B _ATERROR GO TO ERROR ROUTINE 
04465600 
04466000 | 11{ OAE9 07 ORES 4540 DC ALICSATERRO7) ERROR CODE 
04466400 OAEA 4C 01 55 OFEO 4541 AT000245 MVC TCBWSWAC2, TCB1), ALSSS MOVE IN ALLOCATED SS 
OAEF 5C 01 3A 55 4542 MVC ATSVUSSAC2, TCB1), TCBHSHAC, TCB1) MOVE IN ALLOCATED SS 04810000 
04466800 | 12]  OAF3 CO 87 OCOB 4543 B —_-AT000290 CONTINUE SETUP 9482n000 | 12 
04467200 
04467600 4544 * A TUB/SUB ASSOCIATED WITH THE ATTACH. INITIALIZE COMMON FIELDS 04820300 
13 4545 * IN TUB/SUB AND TCB. 04820600 | 13 
04468000 4546 * 04820900 
04468400 OAF7 B5 02 22 4547 ATO00247 Ls RBSLEN*SATTUBAC,RB2),TUB2  KR2-> REQUESTING SUB/TUB 04821200 
04470000 | 14] OAFA B4 01 24 4548 ST  TUBTCBC, TUB2), TCB1 STORE TCB ADDR. 03821500 | 14 
04480000 OAFD 6C 01 15 32 4549 MVC TCBJCBaC2, TCB1), TUBJCBaC, TUB2) SET JCB ADDR. 04821800 
04490000 OBO1 6C 01 55 2z 4550 MVC TCBLISWAC2, TCB1), TUBUSHAC, TUB2) SET USWA SS VALUE (04822100 
04500000 | 15] B05 B9 CO 03 4551 TBF — TUBCMNDC, TUBZ), TUBSEXEC AN ICS SESSION ? 04822400 | 15} 
0B03 BS 20 39 4552 TBN _SUBATTRSC, TUB2), SUBEOXR EOX RECEIVED ? 04822700 
BOB F2 90 19 4553 JF ATO00248 NO, BOTH NOT MET 04823000 
16 16 
OBOE 84 02 2€ 4554 ST _TUBTCB+WDTUB+1¢, TUB2), TUB2 STORE SUB ADDRESS 04823300 
04520000 OB11 B5 01 24 4555 L TUBTCBC, TUB2), TCBi XRI-> TCB 04823600 
04530000 | 17] 0B14 75 08 13 4556 Ls RBSWORKS+1(, TCB1), ARR ARR = SAVED TWO BYTES 04823900 | 1 
B17 7C 04 13 4557 NVI RBSWORKS+1(,TCB1),DBRTN4 CALL ICDB TO DEQUE AND FREE 94824200 
04540000 OB1A E2 02 25 4558 LA TUBTCB+iC, TUB2), XR2 XR2-> USPL 04824500 
18 4559 * SXFER ID-RICDB, REFRESH-YES CALL #.cDB 04824800 | 15 
04550000 0B10 F4 01 04 4560 sve 4,1 
04560000 0820 33 0820 4561 OC ALICRICDB) 
04563000 | 19 4562 *** END OF EXPANSION ** 19 
04566000 0B21 74 08 13 4563 ST __ RBSWORKS+1(, TCB1), ARR RESTORE SAVED BYTES 04825100 
04570000 0B24 F2 87 £4 4564 J -AT000290 CONTINUE ATTACH 04825400 
20) 0 
C35 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


2936 RRRARAAAARRARRAAERERE RA RRER RAE R EERIE KER EERIE KIKI IR IIR IIE 


2937 * ® 


2936 * TERMINAL UNIT BLOCK FOR PRINTERS x 
2939 * ® 


2940 RXAAREAAARRARAARARARARAA RARER RRA KAKA RAI AHH IRE IIR IOI 


ee ee ers Pee aaa aentnterenee aw ee ——— 


*SvAT 108 ATTACH 
ERR LOC OBJECT 00 


0827 7C O1 5B 
OR2A TC O01 76 
0820 COL 70 
OB30 74 02 13 
0833 B9 "D 03 
0836 F290 ie 


0839 9C 00 25 | 
OB3D BB 20 37 
OB40 F2 10 06 


OB46 BA 80 00 
0849 BB 40 01 
OB4C F? 90 BC 


OB4F F4 01 96 
B52 0016 
0854 01 


0855 &C Ol OF 2 
0859 99 CO 03 
OBSC F2 10 19 


OBSF 02 02 00 
0B62 C2 O1 0080 


0B66 F4 05 23 
0B69 02 


OB6A E2 01 00 
OB6D 75 02 OF 
0870 85 02 13 
0873 88 03 03 0 
0878 BA 80 00 
0878 SF OD 00 6 
OB7F 74 02 OB 
0B82 7C C4 09 
0885 88 20 37 
0B88 F2 90 15 


OBS8 BS $0 03 
OBSE BS 08 39 
0B91 F2 90 15 
0B94 BC 00 61 


OB97 F4 00 OF 


/11/81 12/08/81 21:28 


9/11/81 1 


02; 


03 


07 


4751 4752 4753 4754 4755 4756 


4649 4666 
1059 1060 
4841" 


4199 
47134717 
4200 


4723 4736 


4358* 4359 4360 4362 4363 4369 4370 4370* 


D036 
WSVAT TCB ATTACH TRANSIENT PAGE 105 WO9/11781 12/08/81 21:28 
1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
0827 7C 01 58 4565 AT000248 VI TCBINVCT(, TCB1), 1 INVITE COUNT = 1 
0B2A 7C 01 76 4566 YVI_TCBARQCT(,TCBI),1_—_ ALLOC. REQ. COUNT = 1 ; 
0820 7 01 70 4567 FT TCBAKSCTC, TCBID, 1 ALLOC. US COUNT = 
0830 74 02 13 4568 ST TCBRTUBC, TCB1), TUBZ SET REQ. TUB ADORESS 0482660 
0833 B9 CO 03 4569 TBF TUBCYND(, TUB2), TUBSEXEC AN ICS SESSION ? 0482090, 
0836 F2 90 16 4570 JF ATo002a9 NO, THEN ASSIGN ACE 0482" 26 
0839 9C_00 25 68 4571 MC __SUBUTSK! <1, TUB2), TCBTSKIDC, TCB1) MOVE IN TASK ID 04827500 
0830 B8 20 37 4512 TBN  SUBATTR3C, TUBZ), SUBIPS IPS INVITED 2 0487300 
0840 F2 10 06 4573 JT ATOOA2“3 YES, BYPSASS SETTING IMI age: 
0843 B., 40 37 4514 SBN SUBATTR3C, TUBZ), SUBIFI ST ON IMPLICIT IWITE 104828400 
OB46 BA 80 00 4575 SBN SUBECM, TUB2), TUBSSKIP SET ECM BIT 0488700 
0849 B8 40 01 4576 ATOOAZ4S TBN  SUBCOMPI<,TUB2),SUBSCMPL SUB CONPLETE ? * 04929000 
OB4C F? 90 BC 4577 JF aT000250 NO, DON'T QUEUE OP-END ACE 04829300 
4578 * 04830000 
4579 * A TUB/SUB ASSOCIATED WITH THE ATTACH. ASSIGN AN ACE AND QUEUE 4840000 
4580 * TO COMPLETE QUEUE OR WS QUEUE. 04850000 
4581 * ADD THE Q-QUAIT PARAMETER TO THE ASSIGN MACRO. 185 04870000 
4582 * DELETE ROUTINE FOR ERROR CODE 8, SATERROS. NO LONGER NEEDED.  aal85 
4583 *T000249 ASSGN LEN-ACELEN, Q-QUAIT ASSIGN AN ACE aa85 
OBAF F4 01 96 4584 ATO00249 SVC__ SVCASSGN, QuAIT ASSIGN REQUEST 
0852 0010 0853 4585 DC AL2CACELEN) ASSIGN LENGTH 
0854 01 0854 4586 DC ALIC1+0) ATP TBUTES 


10 


11 


12 


13 


15 


16 


7 


19 


0 


OB55 6C 01 OF 24 


4587 *** END OF EXPANSION ** 
4588 AT000250 MVC = ACETCBAC2,ACE1), TUBTCBC, TUB2) MOVE IN ASSIGNED TCB ADOR 


Ww 


0859 89 CO 03 4589 TBF — TUBCMNDC, TUB2), TUBSEXEC AN ICS SESSION 2 
OB5C F2 10 19 4590 JT _aT000259 YES, IT IS 
OB5F 02 02 00 4591 LA 0¢, ACE1), ACE2 XR2-> ACE 
0862 C2 01 008D 4592 LA NUASCA+SCADCSP3~1, XR1 XR1-> TUB LOCK 
4593 * TEST BIT-SCADTLOK LOCK VERTICAL TUB CHAIN 
0866 F4 05 23 4594 SVC SVCTEST,QXLOFF+QWAIT TEST AND SET SVC REQUEST 
0B69 02 0869 4595 DC ALI¢SCAD\ LOK) BIT TO BE TESTED AND SET 7 
4596 *** END OF EXPANSION ** 
OBGA E2 01 00 4597 LA 0, ACE2), ACE1 XR1-> ASSIGNED ACE 
OB6D 75 02 OF 4598 L__ ACETCBAC, ACE1), TCB2 XR2-> TCB 
0870 B5 02 13 4599 L TCBRTUBC, TCB2), TUB2 XR2-> TUB : 
0873 88 03 03 OFBA 4600 NNN TUBCMND(, TUB2), ATCONONE SET UP INVITE OP-CCDE aa023 05100000 | 
0878 BA 80 00 4601 ATO00259 SBN  TUBECTC, TUB2), TUBSSKIP SET ON THE NOSKIP BIT 05102000 
0878 5F OD OD OD 4602 SLC ACETCBa-2CACETCBa-1, ACE1), ACETCBa-2(, ACE]) ZERO ACE 05102900 
OB7F 74 02 OB 4603 ST — ACEXR1¢, ACE1), TUB2 STORE TUB ADDRESS 
0B82 7C C4 09 4604 MVI _ACETYPEC, ACE1), ACENSCL+ACEPRIV+ACEXLOFF SET TYPE 
0885 BS 20 37 4605 TBN  TUBATTR3C, TUB2), TUBIPS PROG. REQ. UNDER FORMAT? 
B88 F2 90 15 4606 JF aToo0260 NO, IT IS NOT 
0B8B B83 G0 03 4607 TEN TUG. *vDC, TUB2), TUBREXEC AN ICS SESSION ? aal4s 05116000 
OBBE 89 08 39 4608 TBF  TUBATTR5¢, TUB2), TUBRSF STOP FAIL ON RELEASE ? 05130000 
0891 F2 90 15 4609 JF AT000265 YES, QUEUE TO CMPLQ 95140000 
0B94 BC 00 01 4610 nV. TUBCOMPL(, TUB2),0 CLEAR ALL BITS IN CONPL 
4611 * QUEUE DEV-QHDWSC, DSPL-ACECHAIN-1 QUEUE ACE TO WSQ 
0897 F4 00 OE 4612 SVC SVCQUEUE,QO SVC FOR SYSTEM QUEUE FUNCTION 
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120d 91 


21:28 


2966 RRRRRIR IIR RR IR RRR IIR IR IR III TOR IIT IIR III IR III IR IR IR IRE 


2967 * TERMINAL UNIT BLOCK (TUB) * 


2968 RRRRARRIR RRR RIK RRR IIR IR IORI RITE ITI RI TT ITT RR RR TOE 


MERIT we vw ve tM 


C 001 0019 2478 


C 001 
C 001 


C 001 
C001 


01 


02 


03 


04 


05) 


07 


08} 


11 


12 


13 


C 001 


ERR LOC OBJECT CODE 
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PAGE 106 09/11/81 


12/08/81 21:28 


#SVAT TCB ATTACH TRANSIENT 


01 
ERR LOC OBJECT CODE 


AI 


SSVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


DO1 


ADDR STMT SOURCE STATEMENT 


PAGE 70 09/11/81 
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OB9A 06 OB9A 4613 DC — ALICQHDWSC) ~—-DISPLACL ENT TO DESIRED QUEIIE HEADER 02} OBFF C2 01 0250 
0B9B 00 OB9B 4614 DC ALICACECHAIN-1) "i PLACEMENT TO QUEUEING FIELD 
OB9C 40 ~0B9C 4615 DC ALICO*SYS+0+0) S\_ “EM QUEUE FUNCTION 0C03 F4 00 03 
4616 *** END OF EXPANSION ** 03} + 0C06 48 Oct 
OB9D F2 87 18 4617 J AT000270 CONTINUE SET UP 05170000 oco7_80 
OBAO BA 44 37 4618 AT000260 SBN TUBATTR3(, ‘JB2), TUBIMI+TUBSINI SET+SAVE IMPLCIT INVaaB30 05130000 | O04)  0CO8 B5 01 24 
OBA3 BB 08 3A 4619 SBF TUBATTR6(, TUB2), TUBNRDTA = SET OFF MRT DATA 05190000 OCOB 7A 42 00 
OBAS BA 40 01 4620 SBN TUBCONPL(, TUB2), TUBSCNPL. MARK TUB COMPLETE 05200000 OCOE SC 01 17 33 
OBAY 75 02 OF 4621 AT000265 L ——- ACETCBAC, ACE1), TCR2 XR2-> TCB 05200600 | 05} 9C12 1C 01 O00E 18 
OBAC E202 08 4622 LA TCBCMPLQ-1¢, TCB2), XR2 POINT TO COMPLETE QUEUE 05201200 
4623 * QUEUE DSPL-ACECHAIN-1 QUEUE ACE TO COMPLETE QUEUE 05201800 
OBAF F4 00 OF 4624 SVC SVCQUEUE,QO © SVC FOR USER QUEUE FUNCTION 06 
OBB2 00 OBB2 4625 OC XL1‘0' QUEUE HEADER DISPLACEMENT IS ZERO 
0BB3 00 OBB3 4626 DC ALICACECHAIN-1) DISPLACEMENT TO QUEUEING FIELD OC17 34 01 OF84 
0BB4 00 OBB4 4627 DC AL1CO¥0¥0) =~ SYSTEM QUEUE FUNCTION 07 
4628 *** END OF EXPANSION ** - 
OBB5 75 02 OB 4629 L ACEXRIC, ACEL, TUB2 XR2-> TUB 05202400 
OBB8 BY CO 03 4630 AT000270 TBF — TUBCNND(, TUB2), TUBSEXEC ICS SESSION ? 05203000 | 03 
OBBB F210 48 4631 JT aT000287 NO, EXIT LOGIC 05203600 
OBBE 3B 02 O08E 4632 SBF  NUASCA+SCADCSP3,SCADTLOK UNLOCK TUB CHAIN 05204200 | 09) 
aes 4633 * PIP ACSW-ACSWWSVC POST WS CONTROLLER 05204800 
OBC2 F4 00 0B 4634 SVC SVCPPSVC,0 
OBC 44 OBC5 4635 DC ALI CACSWMSVC) 10 
4636 *** END OF EXPANSION ** 
4637 * GPOST MASK-TCBTAS POST TEST AND SET WAITS 05205400 
OBC6 F4 00 01 4638 SVC SVCGPOST,O ll 
OBC9 20 OBC9 4639 DC ALICTCBTAS) 
OBCA 00 OBCA 4640 dC ALICO) 
4641 *** END OF EXPANSION ** 12 
OBCB 3D 00 O08F 4642 CLI NUASCA+SCADSNAT-1,0 REMOTE SNA TASK ACT. 8023 05206000 
OBCF F2 81 OC 4643 JE AT000283 NO, BYPASS SNA TASK aadz3 05206600 ‘ 
0BD2 35 01 0090 4644 L___ NUASCA+SCADSNAT, TCB1 XR1-> SNA TCB 3023 05207200 
0BD6 D2 01 50 4645 LA TCBTTC-1¢, TCB1), XR1 XRI-> SNA TTC A023 05207800 
4646 * POST DEV-QHDTTC, PREMPT-NO POST THE SNA TASK —aa023 05208400 | 14 
B09 F4 0003) 4647 SVC SVCPOST, QO 
OBDC 43 OBDC 4648 DC ALICQHDTTC) 
OBDD 80 OBDD 4649 DC AL 1CPREENPT+0+0) 13 
. - _4650_*** END OF EXPANSION ** 
OBDE B5 01 24 4651 ATO00283 | —-“‘ TUBTCBC, TUB2), TCBL RELOAD TCB ADDRESS  aa023 05326000 
OBE] B3 80 16 4652 TBN  TUBERPCTC, TUB2), ERBBUSY ERP IN PROCESS ? 05330000 | 16 
OBE4 F2 90 OC 4653 JF AT000285 NO, BYPASS ERP LOGIC 05340000 
OBE7 BB 20 16 4654 SBF TUBERPCT(, TUBZ), ERBDONE SET OFF ERP DONE 05350000 | 17 
OBEA BC 01 18 4655 NVI TUBERAIDC,TUB2),$AIDIOER SET TO 1/0 ERROR 05360000 
OBED 7A 01 79 4656 SBN TCBSUSPSC,TCB1), TCBNIOSP SET SUSPENDED DUE  aad23 05370000 
OBFO 7A 02 01 4657 SBN TCBSTAT2¢, TCB1), TCBSUSP SET TASK SUSPENDED 05. 30000 | 18 
OBF3 BO 10 38 4658 ATOO0235 TEN _ TUBATTRAC, TUBZ), TUBIQNP (INQ MENU PENDING ? 05390000 
OBF6 F2 90 OF 4659 JF -AT000287 NO, IT IS NOT 05400000 A 
1 
OBF9 7A 20 79 4660 SBN TCBSUSPS(,TCB1), TCBINQSP SUSPEND DUE 70 INQ  aa023 05410000 
OBFC 7A 02 Ot 4661 SBN TCBSTAT2(, TCB1), TCBSUSP SET SUSPEND DUE TO INQ 05420000 ig 


#SVAT TCB ATTACH TRANSIE 


ERR LOC OBJECT CODE 


00C3 3019 TUBSCNCL EQU 
0080 3020 TUBREXEC EQU 


- CANCEL INVITE OPERATION 
~ REMOTE EXEC 1/0 OPERATION CODE 


0081 3021 TUBRPOLL EQU 
0083 3022 TUBRCNCL EQU 
0040 3023 TUBMLOCL EQU 


“REMOTE [INVITE OPERATION 
~ REMOTE CANCEL INVITE OPERATION 
« THIS TUB IS A LOCAL TUB 


00CO 3024 TUBMSUB EQU 
0003 3025 TUBDEVIC EQU 


. COFF) IF OFF, THIS "S A SUB 
DEVICE ADDRESS 


RUTTUINT QOL 


Wid Lay 
€ 001 0010 2473 2478-2479 
C 001 0019 2478 
QNREF C001 0002 2465 4725 (4745 4764 
REFRESH C O01 0001 2464 . 
C001 0010 2472 
QSPEC C001 0009 2480 
QSYSREQ C001 0004 2467 
C 001 0008 2469 
QUEUE C001 0000 1054 
QWAIT ~~ C 001 0001 2463-2478 2480-4584 4594 5102 
C001 0004 2466 4594 4745 5102 
C001 0020 2474 
“C001 0040 2475 
C 001 0000 2476 4192 4215 4612 4624 4647 4664 4822 4830 4336 4909 4929 4942 


0001 


2462 


£02 
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ERR LOC OBJECT CODE ADDh STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


ADER OBFF C2 01 0250 4662 (A NUACPTCB+TCBTTC-1, XR1 XR1-> CP'S TTC ECB 
| 4663 * POST _DEV~QHOTTC, PREMPT-NO POST HIS TTC 
ae aco3 Fa 00 03 4664 SvC SVCPOST, QO 
0C06 48 4665 DC ALICQHDTTC) 
05170000 0c0? 80 4666 OC ___ALICPREEMPT+0+0) 
F " = 4667 *** END OF EXPANSION ** 
T INV@RBBO 05180000 OCO8 BS 01 24 4668 ATO00287 L —- TUBTCBC, TUB2), TCB1 XR1-> TUB 05460000 
05190000 OCOB 7A 42 00 4669 ATO00290 SBN _TCBSTAT1(, TCB1), TCBNOIO+TCBSWAPD SET ON NO I/O AND SWAP 05490000 
eB OOOO OCOE SC 01 17 33 4670 MVC TCBCRBC2, TCB1), ATSVRBaC, TCB1) MOVE IN RB ADDRESS 05500000 0C1B 35 02 0141 
05200600 OC12 1C 01 OOOE 18 4671 MVC NU@SCA+SCAMAXRG(2), TCBAXR2(, TCB1) MOVE IN #SWAP/MAX. RG 05520000 
QUEUE 5201200 4672 * 05520600 OCIF 6C 00 19 2D 
(ete QUEUE 081800" 4673 * TF A JCB ASSOCIATED SET ON ATTACHED THRU A NON-INITIATOR IF 05521200 0023 B5 01 17 
4674 * TASK BEING ATTACHED IS NON-INITIATOR ATTACHED. 05521800 0026 78 01 27 
" 4675 * _ 05522400 0C29 35 01 OFS84 
Se ee a 4676 St ATTCB, TCBI STORE NEW TCB ADDR. 05523000 OC2D F2 90 33 
0C30 CO 87 OE65 
z Ea 
05203000 0034 OC 00 OEDC OF81 
05203600 0C3A 6C 00 19 2C 
ss eee OC3E CO 87 OE65 
05204200 
" 05204800 0C42 2C 01 OEDB 29 
a eet ieee 0C47 AC 00 2D 2C 
0C4B CO 87 OESF 
WATTS 952055 OC4F CO 87 OFE2 


0C53 F2 87 04 


0C56 CO 87 0000 


OC5A 35 02 0141 


05207200 
05207800 


OC5E 8C 01 29 OEEO 


DO2 


*SVAT TCB ATTACH TRANSIENT 71 #SVAT TCB ATTACH TRAN 
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01 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


3073 * 02) 


EQU X'20' . UNIT NOT AVAILABLE CPRINTER ONLY) 


3074 * FQU X"10° «OUTSTANDING STATUS 

3075 * EXCEPTION STATUS EQUATES START 

3076 * QU X'OE' . NO STATUS CALL BITS OFF) 03} 
7 3077 * EQU_X'02" . NULL OR ATTRIBUTE ERROR 

sore * FQ X04" ~ INVALID ACTIVATE 

3079 * EQU  X‘06" . RESERVED 04 


107 ¥O09/11/81 12/08/81 21:28 


C 001 OO1F 4083 
C 001 003D 0627 
C 001 000D 4065 
C001 0013 4071 
C 001 0004 4056 
C 001 O02E 40938 
C 001 003B 4111 


C 001 0037 4107 
C 001 0001 4053 


C 001 0039 4109 
C 001 0032 4102 
C 001 0033 4103 
C 001 0034 4104 
C 001 0030 4113 
C 001 OO0F 4067 
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01 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


02 


03 


0006 3127 TUBSRDUK EQU Xx ‘06" . READ ISSUED TO UNLOCKED KEYBOARD ERROR 
0007 3128 TUBSPOFF EQU  X‘07" ~ WS IS POWERED OFF 

3129 * EQU  X‘08" . RESERVED 

3130 * EQU X'09' . SAVE OR RESTORE ERROR 


01 


02 


03) 


01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE f 
05430000 |} 02! CTT] lalallelalatlatataelalatetetatatetataetetateteatatetaatoielalatatatetlatatsalataitatalalalaisatalamiiatopiiat -¥2.0) 02} 0C63 BS 02 17 
05440000 4679 * NOW FIRST CALCULATE THE NUMBER OF TRACKS NEEDED FOR A SWAP —aa290 C66 79 00 14 
4680 * AREA FROM THE NUMBER OF 2K REQUIRED FOR THE ATTACHING TASK. 0C69 F2 81 OF 
03 4631 * THEN RETURN TO CALLER WITH THE NUMBER OF TRACKS TO 0 
4682 * DEALLOCATE/ALLOCATE. THEN DEALLOCATE OLD/ALLOCATE NEW. ocec 75 01 15 
4633 RRAREKKKRAERRR AKRAM K KHIR IIR IIR RII IR IIR IIR TOR OC6F 7A 10 63 
05460000 O4 = 0C72 B8 20 27 
ND SWAP 05490000 4685 * TCBA R-TCB2 XR2->CURRENT TCB 0C75 F2 90 03 
05500000 0C1B 35 02 0141 4686 321, TCB2 GET TCB ADDRESS. 
MAX. RG 05520000 | 05 4687 *** END OF EXPANSION ** 05] 0C78 7B 10 63 
8a001 05520600 OCIF 6C 00 19 2D 4688 MVC TCBAXR1¢1, TCB1), TCBRGSI2(, TCB2) 05523200 OC7B 35 01 OF 384 
00001 05521200 0C23 B5 01 17 4689 TCBCRB(, TCB2),RB1 XR1-> CURRENT REQUEST BLOCK aa290 05523220 OC7F BS 08 1E 
80001 05521800 | 06] 0C26 78 01 27 4690 TBN  RBSLEN*SATFLAGIC, RBI, SATACHER REQUEST EXTRA STOR? aa290 05523240 | 06] OC82 F2 90 OF 
4a001 05522400 0C29 35 01 OF 84 4691 ATTCB, TCB1 XR1-> ATTACHER'S TCB 30290 05523260 
40001 05523000 0C2D F2 90 33 4692 JF = AT000294 SKIP ALLOCATION OF EXTRA 30290 05523280 re 
07 
0C30 CO 87 0665 SWAPS I 2E CALCULATE TRACKS FROM SIZE 
08 OS} —0C85 B5 02 2A 
es CALCULATE TRACKS TO ALLOCATE 0C88 F4 02 51 
09) 09}  ocsB 07 0 
0C42 2C 01 OEDB 29 MVC ATALLSZ-1¢2), TCBTSSN-1¢, TCB2) SET SECTORS TO ALLOC aa290 OC8C_OA 0 
0C47 AC 00 2D 2C MVC TCBRGSI2(1, TCB2), TCBMSSI2(,TCB2) RESET REGION SIZE aa290 08D 01 of 
1 OC4B CO 87 OESF B DEALLOC GO DEALLOCATE THE OLD SIZE 00290 05523420 | 10 
OC8E 75 02 15 
OC4F CO 87 OEE2 B ALLOC GO ALLOCATE THE NEW SIZE aa290 05523440 0C91 BA 20 02 
11 ll 
0C53 F2 87 04 J AT000293 XR1->CURRENT TCB 0094 35 02 0141 
12} —0C56 CO 87 0000 4702 B 0 PROC CHECK IF YOU GET HERE 05523480 | 1 0C98 B5 02 17 
OC9B BS 10 1£ 
4703 *T000293 TCBa R-TCB2 GET CURRENT TCB ADDR. OC9E F2 10 35 
13] OC5A 35 02 0141 4704 ATO00293 L321, TCB2 GET TCB ADDRESS. 13 
4705 *** END OF EXPANSION ** 
OC5E 8C 01 29 OEEO 4706 MVC TCBTSSN-1(2, TCB2),ALSSS RESET ATTACHER'S SWAP a 
14 14 
OCAl 75 02 17 
OCA4 E2 02 12 
15 1 
OCA? BC 08 00 
OCAA F4 06 50 
16 16} — OCAD 0A4000 oC 
OCBO 34 01 OF S84 
7 17{ —-OCB4 75 01 15 
OCB7 D2 01 5F 
OCBA 68 01 00 02 
18 18} OCBE 68 03 00 03 
OCC2 68 01 01 04 
OCCé 68 03 01 05 
19 19} OCCA 68 01 02 06 
OCCE 68 03 02 07 
OCD2 35 01 OF 84 
20) 0 
003 
GE 71) -WO9/11/81 12/08/81 21:28 #SVAT TCB ATTACH TRANSIENT PAGE 72 09/11/81 12/08/81 21:28 #SVAT TCB ATTACH TRANS! 
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8290 05523040 
i290 05523060 
@i290 05523080 
aa290 05523100 
290 05523120 

*a290 05523140 
aa290 05523180 
aa290 05523200 
49290 05523220 
9290 05523240 
290 05523260 
48290 05523280 
aa290 05523300 
48290 05523320 
290 05523340 
38290 05523360 
avo 0552330 
afi290 05523400 
az90 05523420 
290 05523440 
8290 05523460 
290 05523480 
8001 05523500 
3290 05523520 
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) ERROR 


4120 
2277 


4122 4123 
2278 


ERR LOC OBJECT CODE 


0C63 B5 02 17 
0C66 79 00 14 
0C69 F2 81 OF 


OC6C 75 01 15 
OC6F 7A 10 63 
04 = 0072 B8 20 27 
0C75 F2 90 03 


05] —0C78 7B 10 63 
OC7B 35 01 0F84 
OC7F B8 08 1E 


06} —0C82 F2 90 OF 


07 


08} 0C85 B5 02 2A 


0C88 F4 02 51 


OC8E 75 02 15 
0C91 BA 20 02 
11 
0C94 35 02 0141 
12} 0098 85 02 17 
0C9B BS 10 IE 
OC9E F2 10 35 
13 


4709 
4710 


471 
4712 
4713 
4714 


45 


4708 ATO00294 L 


ADDR STMT SOURCE STATEMENT 


CLI 
JE 


L 
SBN 
i 


SBF 


4716 ATO00295 L 
RBSLEN+SATFLAGC, PRM2), SATDATA DATA TO PUT TO WSWA? aa00? 


4720 * THIS IS HOW FIRST TIME SYSIN DATA IS WRITTEN TO THE SYSIN 
4721 * WORK AREA FOR A TASK 


E04 


PAGE 


TCBCRBC, TCB2), RBZ POINT TO CURRENT RB = aa001 
TCBJCBA-1¢, TCB1),0 JCBLESS TASK ? #9001 
AT000295 YES, BYPASS CHECK @a00) 


TCBJCBaC, TCB1), JCB1 POINT TO JCB 3001 
JCBDSCH4C, JCB1), JCBMINTK SET ON NON-INIT. ATT. ag001 
RBSLEN+SATFLAGIC, PRMZ), SATQKINT ATTACHED VIA INIT? = 
AT000295 NO, BYPASS SET OFF 


109 VO9/11/81 


JCBDSCH4C, JCB1), JCBMINTK SET OFF ATTACH NONI. aa001 
ATTCB, TCB1 RELOAD NEW TCB ADDR. aa001 


47000350 NO, BRANCH 


4722 * 
4723 RBSLEN+SATDATAAC, PRNZ),SYN2 POINT TO DATA 
4724 * nih FUNC-SYSPUT, TAG-TWA#SINS,N-1, XL-YES, Q-QNREF 
4725 SVC 81, QNREF TSSUE TWA REQUEST 

OC8B 4726 DC = AL1¢3+0+4) =~ FUNCTION BYTE 

Ocsc 4727 OC _ALICTWASINS) TAG 

OC8D 4728 oC ALICL) LENGTH CIN SECTORS) 
4729 *** END OF EXPANSION ** 
4730 L TCBJCBaC, TCB1), JCB2 XR2-> JCB 
4731 SBN JCBDSCH1(, JCB2), JCBMRTWA INDICATE DATA IN USWA 
4732 *1000350 TCBa R-TCB2 XR2-> CURRENT TCB 


4733 ATOO0350 L 
4734 *** END OF EXPANSION ** 


4735 
4136 
4737 


4738 * 


L 
TBN 
JT 


321, TCB2 GET TCB ADDRESS. 


TCBCRBC, TCB2), RB2 XR2-> CURRENT RB 
RBSLEN+SATFLAG(, PRMZ), SATNONAM JOB NAME TO BE ASSIGNED? 
ATO00360 NO, BYPASS ASSIGN 


4739 * ASSIGN A JOB NAME BY PACKING THE TIME OF DAY INTO 3 BYTES 


1 4740 * 
OCAl 75 02 17 4741 L TCBCRBC, TCB1), RB2 POINT TO ASSIGNED RB 
OCA4 E2 02 12 4742 LA RBSLENC, RB2),2 USE PART AS WORK AREA 
15 4743 * STOD = TYPE-D&C,Q-QXLOFF +QNREF GET TIME OF DAY aa185 
OCA? BC 08 00 4744 MVI 0¢,2),8 TIME IN DECIMAL. 
OCAA F4 06 50 4745 SVC 80, QXLOFF+QNREF 
16] — OCAD 0A4000 OCAF 4746 DC = XL3"OA4000' = TIME OF DAY REQUEST. 


4747 *** END OF E\PANSION ** 


V7 


18 


19 


ERR LOC OBJECT CODE 


#SVAT TCB ATTACH TRANSIENT 


OCBO 34 01 OF84 4748 ST ATTCB, TCB1 STORE TCB ADDRESS 

0CB4 75 01 15 4749 L TCBJCBaC, TCB1), JCB1 POINT TO JCB 

ocB7 D2 01 5F 4750 LA___JCBDJOBN-2¢, JCB1), JOBI POINT TO JOB NAME FIELD 
OCBA 68 01 00 02 4751 M2N  0¢, JOB1), STRBTIME-5¢,PAK2) MOVE IN JOB NAME HOUR 
OCBE 68 03 00 03 4152 MAN 0¢, JOB1,, STRBTINE-4¢,PAK2)  NOVE IN JOB NAME HOUR 
OCC2 68 01 01 04 4753 M2N 1¢,JOB1>, $TRBTIME-3(,PAK2) MOVE IN JOB NAME MINUTE 
OCC6 68 03 01 05 47154 NNN 1¢, JOB1), STRBTIME-2¢,PAK2) MOVE IN JOB NAME MINUTE 
OCCA 68 01 02 06 47155 M2N  2¢, JOB1), STRBTIME-1¢,PAK2) MOVE IN JOB NAME SECOND 
OCCE 68 03 02 07 4756 MAN 2¢, JOB1), STRBT IMEC, PAK2) MOVE IN JOB NAME SECOND 
OCD2 35 01 OF 84 4757 L ATTCB, TCB1 POINT TO TCB 


004 


ADDR STMT SOURCE STATEMENT 


0O1B 3182 TUBOPTS EQU  TUBMIC+1 ERP MESSAGE OPTIONS 


3184 * 
3185 * 


SEE THE ERBDOPT FIELD OF THE ERB MACRO FOR ASSOCIATED MASKS. 


01 


03 


I 


09} 


10 


ll 


15] 


16 


Vv 


SSVAT TCB ATTACH TRANSIENT 
ERR LOC OBJECT CODE A 


0CD6 35 02 OD4F 
OCDA 8€ 00 12 OFBA 


OCDF F4 02 50 
OCE2 09 
OCE3 52 
OCE4 00 


gSsi2 


OCES 34 01 OF 84 
OCED 70 F6 6B 
OCEC F2 81 18 


OCEF 70 F8 68 
OCF2 F2 81 12 


OCF5S 7D FB 6B 
OCF8 F2 81 OC 


OCFB 7D F7 68 
OCFE F2 81 06 


0001 OE 00 0060 OFBA 


0007 35 02 0141 


ODOB B5 02 17 
ODOE 2C OB OFDI 10 
0013 B38 08 27 
OD16 F2 90 03 


0019 7A 20 6€ 


OD1C 7C FF 4F 
ODIF 5C 1E 4€ 4F 
0D23 BS 40 1E 
0026 7D 00 28 
0029 F2 91 22 


0D2C 1C 00 0040 28 
0031 OF 00 OD4D OFBA 


#SVAT TCB ATTACH TRANSIE 


ERR LOC OBJECT CODE 


3 09/11/81 


12/08/81 21:28 


E05 


*SVAT TCB ATTACH TRANSIENT SSVAT TCB ATTACH TRANSIENT 
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01 


ERR LOC OBJECT CODE ADDR STNT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR SI 


02} = 0CD6 35 02 004F 4758 ATO00360 L NUASCA+SCADLBF 1, 2 POINT TO SYS. LIBR. Fl 05980000 | 02} 0037 OC 00 0048 oD4D 4 
OCDA SE 00 12 OFBA 4759 ALC FIADLBUS(1, 2), ATCONONE INCREMENT USE COUNT 05990000 0030 OC 00 uD4A 0D4D 4 

4760 * (06000000 0043 OF 02 OD4D OFBO 4 

03 4761 * TURN ON SYSTEM IN USE LITE 06010000 | 03} 0049 4C 00 00 0200 ag 
4162 * 06020000 OD4E 75 02 17 4 

4763 * LITES CS-ON, Q-QNREF DON'T ALLOW REFRESH  aa185 4 

Oy  OCDF F4 02 50 4764 SVC SVCCXNT, QNREF 04) 48 
OCE2 09 OCE2 4765 DC _XL1‘09" TRANSIENT ID 4g 

OCE3 52 OCE3 4766 DC AL1CO+X"02"+X"50°) INDICATOR BYTE OD51 8C 12 24 OFDI 48 

05] + 0cE4 00 OCE4 4767 oC = XL1‘0" NOT USED 5] 0056 4C 01 21 OFB2 48 
4768 *** END OF EXPANSION ** 0058 7C 14 60 48 

OCE5 34 01 OF84 4169 ST ATTCB, TCB1 STORE TCB ADDRESS 06040000 ODSE E2 02 12 48 

06] —OCE9 70 F6 6B 4770 CLI TCBTSKIOC,TCB1), TCBIDSOP © RWS SDLC TASK ? aa093 06041000 | 06) 0061 74 02 IF 48 
OCEC F2 81 18 4771 JE ATO00365 YES, DON'T INCREMENT 093 06042000 0064 £2 02 07 48 

0067 74 02 18 48 

O7| OcEF 7D F8 6B 4772 CLI TCBTSKID(,TCB1), TCBIDSNR © RWS SNA TASK ? 093 06043000 | 07 48 
OCF2 F2 81 12 4773 JE ATO00365 YES, DON'T INCREMENT @a093 06044000 OD6A F4 00 OF 48 

006D 10 0D6D 48 

03] —OCF5 7D FB 6B 4774 CLI TCBTSKIDC,TCB1), TCBIDSDS © SECONDARY SDLC TASK? aa0ds2 06045000 | 08}  OD6E 70 OD6E 48 
OCF8 F2 381 OC 4775 JE AT000365 YES, DON'T INCREMENT aa052 06046000 48. 

OD6F 34 02 OEEO 48 

OCFB 7D F? 6B 4776 CLI TCBTSKIDC, TCB1, TCBIDSN1 SNA TASK? aacs2 06047000 | 09) 0073 4C 00 06 OEEO 48: 

OCFE F2 81 06 4777 JE ATO00365 YES, DON'T INCREMENT @a052 06048000 0078 C2 02 020C 48; 

48, 


l 0D01 OE 00 0060 OFBA 4778 ALC NUASCA+SCADCTUTC1),ATCONONE ADD 1 TO JOB COUNT 10} OD7C F4 00 OF 48 
4179 * 06050000 OD7F 00 ODIF 48 

4780 * MOVE THE SYSTEM LOADER PARAMETER LIST FROM THE ATTACH PARAMETER 0080 OC 0080 48) 

11 4781 * LIST TO THE BOOTSTRAP CODE MOVED TO THE RB AND EXECUTED AS THE 11{ 0081 00 0031 48: 
4782 * NEW TASK'S FIRST INSTRUCTIONS 48: 

4783 * 48: 

12 4784 *T000365 TCBa R-TCB2 XR2-> CURRENT TCB aa093 } = 0082 F4 00 OF 48; 
0007 35 02 0141 4785 AT000365 L 321, TCB2 GET TCB ADDRESS. 0085 44 0085 48° 

4736 *** END OF EXPANSION *% S886 6C 0D86 48: 

13] = 0D0B B5 02 17 4787 L TCBCRBC, [CB2), RB2 XR2-> CURRENT RB 06110000 | } 0087 C5 OD37 48: 


ODOE 2C OB OFD1 1D (VC ATNCODE+ATMOFF +$ATLOAD( $LDDLEN), RBSLEN+SATLOADC, RBZ) 
0013 B8 08 27 4789 TBN RBSLEN*SATFLAG1(,RB2), SATSYSTK SYSTEM TASK ATTACH? aa093 06140000 484 
1 0D16 F2 90 03 4790 JF = ATOOA365 NO, NOT A SYSTEM TASK 06150000 | | 48 
48. 
SBN TCBSTAT4(,TCB1),TCBS\STM | YES, MARK AS SYSTEN TASK 484 
15 4792 * 06160500 | 1 484 
4793 * MAKE ALL OF NEW TASK'S ATR VALUES X'FF ‘CINVALID) 484 
4794 *® 430 
16} OD1C 7C FF 4F 4795 ATOOA365 NVI [CBP TRSC, TCBi>, ‘FF * SET UP ADDRESSABILITY i 009: 78 01 79 484 
ODIF SC 1E 46 4F 4796 MWC TCBATRS-1(31, TCBi>, TCBATRS(, TCB1) IN TCB 0094 F260 OC 484 

0023 B8 40 1€ 4797 TBN —RBSLEN*SATFLAG(, RBZ), $ATREAL LOGICAL=REAL TO LNK a? 
17] 0026 7D 00 28 4198 CLI TCBBEGL(, TCB1),0 AND TCBBEGL NOT 0 ? 06163500 | 17} 0097 C2 02 FEFD 485 
0029 F2 91 22 4799 JC AT000367,xX'91° NO, BRANCH 485 
009B F4 01 04 435 
18 4800 * 1 OD9E 10 ODE 485 
4801 * MAKE ALL ATR VALUES FROM LOGICAL O TO THE NEW TASK'S TCBBEGL 485 
4802 * SERIAL IN VALUE, I.£. MAPPED LOGICAL = REAL TO LINK EDIT ADDRESS OD9F 34 01 OFS4 485 
1 4803 * 485 
0D2C 1C 00 OD4D 2B 4804 MVC ATO00366+4(1), TCBBEGL(, TCB1) MOVE IN OFFSET TO LAST+1 ODA3 F4 00 0B 485 
0031 OF 00 0D4D OFBA 4805 SLC AT000366+4(1), ATCONONE MAKE OFFSET TO LAST TO Map ODA6 17 ODAG 485 


005 
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01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


3231 * TERMINAL MODE INDICATORS i 


3232 RAARRRRRAARARRRAERRARRRARRER RARER RARER RII II TI III I RIOR TOR TOR IIIT TT TOI 


3233 * 1XXX - STANDBY MODE = * OX00 - INITIAL MODE 
3234 *® OOXX - CONSOLE MODE * 0101 - DATA MODE i 
3235 * 0110 - COMMAND MODE = * 0111 - INTERRUPT MODE & 


3236 RARARARARARERAAK AER ARK AAA ARR K RRARAKR ARERR RARER AAA AERA RR ERR RK 


0080 3237 TUBMSTDY FOU x‘'80' — TERMINAL ITN STANDRY mnnr COND 


VO9/11/81 12/08/81 21:28 


93 
93 


93 
93 


2 
2 


2 
02 


13 


3 


4 WO9/11/81 12/08/81 21:28 


POF UNL AAD 
14|SCADTBUF C 001 0097 2199 22901 
SCADTKSZ C 001 OOAA 2261 2263 4970 4987 5033 
SCADTLOK C 001 0002 2161 «4595-4632 
J5]SCADTRSZ C 001 O09 2205 2207 
SCADUCFG C 001 0006 2348 2349 2350 2351 2352 7368 
SCADUDT? C 001 0005 2349 
16]SCADUDT2 C 001 0003 2350 
SCADUDT3 C001 0001 2351 
SCADUDT4 C001 OOCF 2352 
T7|SCADVICE C 001 0055 2011 2013 
SCADMDBR C 001 0087 2286 2288 
SCADWDBT C 001 OOAC 2273-2274 «-2275:«2276 «2277-2284 
18] SCADWRKA C 001 00A6 2237 ©2239 
SCADUSQS C001 0098 2201 2°03 
SCADXNID C001 00C2 2300 2302 2312 2322 
19] SCADXMIT C 001 00C1 2302 
SCADXMI2 C 001 00C2 2312 
SCADXSLT C 001 0085 2129 2130 


£06 


02] 0037 OC 00 OD4B OD4D MVC ATO00366+2(1),ATO00366+4 = MOVE OFFSET TO INSTRUCTION 06167500 | 02} 4 
MVC ATO00366+1(1),ATO00366+4 = MOVE LENGTH-1 TO INSTR. 06168000 4 
0043 OF 02 O04) OFBO 4808 ALC ATO00366+4(3), ATMAP ‘ADO CONSTANT TO OFFSETS 06168500 ODA? 35 02 0141 4 
03] — 0D49 4C 00 00 0200 4809 ATO00366 MC = #(#, TCB1),NUASCA*NUBCPTCB+* MOVE IN CP'S ATRS 06169000 | 03 a 
OD4E 75 02 17 4810 ATO00367 L TCBCRBC, TCB1), RB2 POINT TO ASSIGNED RB 06170000 GOAB 85 02 17 a 
4811 * 06180000 | ODAE 2C 03 OFDS 26 a 
04 4812 * MOVE BOOTSTRAP CODE TO START TASK TO THE ASSIGNED RB 06190000 | 04] 0083 35 01 OFS4 a 
4813 * 06200000 OOB7 89 80 27 = a 
0051 8C 12 24 OFDI 4814 MVC RBSLEN+ATMLEN-1(ATMLEN, RBZ), ATMCODE+ATMLEN-1 MOVE IN COD 06210000 ODBA BD 00 00 a 
05] 0056 4C 01 21 OFBZ 4815 (VC TCBAPSNR(2, TCB1), ATPARR MOVE IN PMR VALUE 06220000 | 05} = ODBD 85 o2 05 a 
OD5B 7C 14 60 4816 (VI TCBTQE*+TQEFLG1+1-TQELENC, TCB1), TOEREAL+TOEBIN INIT. FLAG 06230000 ODDO F2 91 03 a 
ODSE E2 02 12 4817 LA RBSLENC, RBZ), XR2 POINT TO LOADER CODE 06240000 
06} 0061 74 02 1F 4818 ST — TCBAIARC, TCB1), XR2 STORE AS NEV CONTROL ADDR. 06250000 | 06 a 
0064 £2 02 07 4819 LA__ATMOFFC, XR2), XR2 XR2-> FETCH PARM LIST 06260000 00C3 Fs 00 05 a 
0067 74 02 1B 4820 ST —- TCBAXR2(, TCB1), XR2 STORE POINTER TO PARN 06270000 at 
07 4821 * SCB  FUNC-GET, AREA-DRCT1, DISP-D1DST IME 06280000 | O7| 0006 34 07 OF es a 
OD6A F4 00 OF 4822 SVC__SVCSCB,QO_——SCB GET/PUT SVC _# 
0060 10 O06D 4823 DC ALICX‘10°+0) FUNCTION BYTE OA 35 07 0141 a 
08}  OD6E 70 OD6E 4824 DC ALICDIDSTIME) DISPLACEMENT BYTE 08 a 
4825 *** END OF EXPANSION ** OOCE B5 62 17 ag 
OD6F 34 02 OEEO 4826 ST  ALSSS, XR2 STORE RESID. TIME 06290000 | | ODD] 84 01 03 a 
09]  0D73 4C 00 06 OEEO 4827 MVC TCBTTINEC1, TCB1), ALSSS MOVE IN TASK RESID. TINE 06300000 | 09} 004 BC 01 G5 OFSs a 
0078 C2 02 020C 4828 LA NUaCPTCB+TCBCHAIN-1,XR2 POINT TO QUEUE HEADER 06310000 # 
4829 * QUEUE OSPL-TCBCHAIN-1 06320000 0009 35 02 0141 Fr: 
10} OD7C F4 00 OF 4830 SVC  SVCQUEUE.Q0 SVC FOR USER QUEUE FUNCTION 10 a 
OD7F 00 OOD7F 4831 oc XL1‘O" QUEUE HEADER DISPLACEMENT IS ZERO @ 
0080 0C 0080 4832 DC ALICTCBCHAIN-1) DISPLACEMENT TO QUEUEING FIELD ODOD BF 00 74 0093 ce: 
11] 0081 00 0081 4833 DC AL1€0+0+0) + SYSTEM QUEUE FUNCTION 1]| O0E2 F2 84 0D a 
4834 *** END OF EXPANSION ** 
4835 * QUEUE DSP:-TCBPRIQ-1. PRIOR-YES, GP-TCBPRIOR, DEV-QHDPRIQ 06323000 ODES BC 00 74 Ec: 
0082 F4 00 OF 4836 SVC SVCQUEUE,QO SVC FOR SYSTEM QUEUE FUNCTION 2} ODES BB 04 6E a 
0085 44 0085 4837 DC __ALICQHDPRIQ) DISPLACEMENT TO DESIRED QUEUE HEADER ODEB F2 90 04 48 
0086 6C 0086 4838 DC ALICTCBPRIQ-1) DISPLACEMENT TO QUEUEING FIELD 
13 0087 C5 0087 4839 DC —ALICX'80'+SYS+0+TCBPRIOR) SYSTEM QUEUE FUNCTION 3 8 
4840 *** END OF EXPANSION ** 4g 
4841 PRIOR®, TCBPRIORC], TCB1) MOVE PTIOITY TO PARNM LIST aa354 ODEE F4 00 04 a 
14 4842 *TSVO10 CHAP PRIOR-O MACRO TO INSTALL PRIORITY © aa354 141 ODF1 04 OOF1 43 
0080 F4 00 24 4843 ATSVOIO SVC SVCPRIQ,O —_—«ISSUE SVC. Cy 
0090 4844 oC ALCO) TASK'S NEW PRIORITY. 8 
15 4845 *°-* END OF EXPANSION ** 19 ODF? 4g 
ORS ATSVO10+3 PARAMETER SETUP 48 
cose 00 0090 4847 PRIOR® DC XL1‘0° TASKS WEW PRIORITY 90354 06336000 ODF2 B5 02 17 8 
i6{ 0091 78 01 79 4848 TBN TCBSUSPS(,TCB1), TCBWIOSP TASK SUSPENDED DUE TO aa023 06340000 | 16] ODF5 85 01 63 48 
0094 F2 0 0C 4849 JF _AT000369 NO, IT IS NOT 96350000 ODF8 8D 90 02 ei 
]  OOFB B5 02 05 a9 
17] 0097 C2 02 FEFD 4850 LA X"FEFD'.XR2 YES, CALL M5 ERP 06360000 | 17| ODFE F2 81 OF ay 
4351 * SXFER_ID-RCPERR, REFRESH-YES CALL MS ERP XIENT 06370000 
9098 F4 O1 04 4852 Svc 4,1 OO] OD 03 OFDS OFBD a9 
18] Ov9E 10 OD9E 4853 DC ALICRCPERR) 78] OF07 F2 81 05 49 
4854 *** END OF EXPANSION ** 
ODSF 34 O1 OFS4 4855 ST ATTCB, TCBI STORE TCB POINTER 06380000 49 
19 4856 *T000369 PIP  ACSULACSUSWAP 06390000 | 19]  OFOA F4 00 10 49 
ODA3 F4 00 OB 4857 ATO00369 SVC SVCPPSVC,0 EOD OFD2 OEOE 49% 
ODAG 17 ODAS 4858 DC ALICACSUSWAP) 4% 
0 0 
DO6 
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ERR LOC OBJECT CODE 


ADOR STMT SOURCE STATEMENT 


0080 3285 TUBUSUP EQU X'80' . USER DISPLAY IS UP 


0040 3286 TUBUSSV EQU  X'40° -_ USER DISPLAY SAVED 
0020 3287 TUBSYLST EQ X‘20' « SYSLIST DISPLAY UP 
0010 3288 TUBMBOCF EQU  X‘10' - BROADCAST FAILURE 


0008 3289 TUBMROTA FOU 2°38° _ MPT PPO UITH DATA FNTFREN 


#SVAT CB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR 
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) INSTRUCTION 06167500 
TO_INSTR. 06168000 
O OFFSETS 06168500 
TRS 06169000 
NED RB 06170000 
06180000 
06190000 
06200000 
1 MOVE IN COD 06210000 
LUE 06220000 
IN INIT. FLAG 06230000 
R CODE 06240000 
ONTROL ADDR 06250000 
RN LIST 06260000 
TO PARN 06270000 
06280000 
IME 06290000 
ESID. TIME 06300000 
HEADER 06310000 
06320000 
ZERO 
ELD 
DPRIQ 06323000 
HEADER 
LD 
TION 
UM LIST aa354 06326000 
( = 9a354 06332000 
00354 06334000 
aa354 06336000 
QUE TO aad23 06340000 
06350000 
P 06360000 
NT 06370000 
ER 06380000 
06390000 


SCACRT C001 0010 2019 


*SVAT TCB ATTACH TRANSIENT 


01 


£07 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATENENT 


02 


ry 


3 


rans 


19 
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ODA? 35 02 0141 


ODAB BS 02 17 


00C3 F4 00 05 


ODC6 34 02 OF84 


ODCA 35 02 0141 


OOCE B5 02 17 
ODD1 B4 01 03 
ODD4 8C 01 05 OF84 


ODD9 35 02 0141 


4859 *** END OF EXPANSION ** 


4860 * 


4861 


4863 


*** END OF EXPANSION ** 


TCBA _R-TCB2 
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XR2-> CURRENT TCB 


L 321, TCB2 GET TCB ADDRESS. 
4862 *** END OF EXPANSION ** 


L TCBCRBC, TCB2), RBZ 
wc 
L ATTCB, TCB1 


CLI = RBSCHAIN-1¢,RB2),0 
L RBSKR2C, RBZ), KR2 
AT000370,X ‘91° 


UNSTK 
SVC___ SVCUNSTK,0 


4377 ATO00370 ST —ATTCB, XR2 


4874 * 


TCBa R-TCB2 


L 321, TCB2 GET TCB ADDRESS. 


4876 *** END OF EXPANSION ** 


U TCBCRBC, TCB2), RBZ 


ATSSN#3¢ 4), RBSLEN*+SATSSSNC,RB2) MOVE IN SSN OF NEXT 


TBF RBSLEN+SATFLAG1(, RBZ), SATRFRSH REFRESH ALWAYS ? 


XR2-> CURRENT RB 


POINT TO ASSIGNED TCB 


YES, EVERYTHING SET UP 


UNSTACK RB FROM CHAIN 


STORE PASSED REGISTER 2 
GET CURRENT 7CB ADDRESS 


POINT TO RB 


96410000 | 


ST —- RBSXR1C, RBZ), TCB1 
PVC -RBSXR2(2, RBZ), ATTCB 
TcBa_R-TCB2 


4882 *** END OF EXPANSION ** 


STORE ASSIGNED TCB a 
MOVE IN PASSED REG. 2 
GET CURRENT TCB ADDRESS 


L 321, 1CB2 GET TCB ADDRESS. 


4883 * ENABL CANCL~Y, TCB-TCB2 ALLOW CANCEL 06550000 
ODDD 8F 00 74 0093 4884 SLC TCBCNCNT(1, TCB2),NUBSCA+SCADCON] DECREMENT CANCEL COUNT 
ODE2 F2 84 0D 4885 JP -EN1064 BYPASS CANCEL CHECK IF POSITIVE 
ODES BC 00 74 4836 HVT -TCBCNCNT<, TCB2),0 RESET CANCEL COUNT TO ZERO 
ODES B3 04 6E 4887 TBN TCBSTAT4(, TCB2), TCBCNLPD CANCEL PENDING ? 
ODEB F2 90 04 4888 JF _CEN1064 NO, BYPASS EJ 

4889 * SEQJ EQJ SVC 

4890 * LINKAGE TO END OF JOB ROUTINES 
ODEE F4 00 04 4891 SVC X‘04",X'00" EQ S¥C 
ODF1 04 ODF1 4892 DC L104" EGU RIB 

4393 * END OF EXPANSION 

4894 **** END OF EXPANSION ** 

OOF2 4895 EN1064 EQU * 

4896 *** END OF EXPANSION ** 
ODF2 B5 02 17 4897 L TCBCRBC, TCB2), RB2 XR2-> CURRENT RB 06560000 
ODF5 B5 01 03 4893 L RBSKR1C, RBZ), TCB1 TCB ADDRESS ASSIGNED 06570000 
ODFS BD 00 02 4899 CLI RBSXR1-1¢,RB2),0 DID ATACH FAIL ? 06580. 0 
ODFB B5 02 05 4900 L RBSXR2(, RBZ), XRZ LOAD UP PASSED XR2 VALUE 06590000 
ODFE F2 81 OE 4901 JE AT000380 YES, ATACH FAILED (96600000 
OE01 OD 03 OFDS OFB9 4902 CLO ATSSN+3¢4), ATZERD PASS CONTROL TO NEXT XNT? 06610000 
0E07 F2 81 05 4903 JE = AT000380 NO, EXIT TO CALLER 06620000 

4904 * SKFER SS@-ATSSN, REFRESH-NO 06530000 
OEOA F4 00 10 4905 Svc 16,0 
OEOD OF DZ OEOE 4906 OC AL2CATSSND 


ERR LOC OBJECT CODE 


#SVAT TCB ATTACH TRANSIENT 


4907 *** END OF EXPANSION ** 


DO? 


ADDR STMT SOURCE STATEMENT 


004A 3339 TUBRFSS EQU  TUBATTR9+2 
0048 3340 TUBRFN EQU  TUBRFSS+1 REJECT FILE - NUMBER SECTORS 


004C 3341 TUBRFCSS EQU  TUBRFN+1 


PAGE 
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REJECT FILE - SS 


REJECT FILE - CURRENT SECTOR 


Pattie tata. in aT Re Sore A 


SCAMKEYS C 001 
13) SCAPKKKF C 001 
SCAMKMSG C 001 
SCAMLATF C 001 
14]SCAMLCAF C 001 
SCAMLGER C 001 


SCAMLINI C 001 
15] SCAMLIN2 C 001 
SCAMLIN3 C 001 
SCAMLINA C 001 
16] SCANLSMF C 001 
SCAMLOTR C 001 
SCAMLOTX C 001 
17|SCAMLITR C 001 
SCAMLITX C001 
SCAML2ZTR C 001 
18} SCAML2TX C 001 
SCAL3TR C 001 
SCAIL3TX C 001 
19} SCAML4TR C 001 
SCAML4TX C 001 
SCANMD32 C 001 
0 


PAGE 112 VO9/11/81 12/08/81 21:28 #SVAT TCB ATTACH TRANSIENT 


01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


| TCB OEOF F4 00 11 


| RB 

SN OF NEXT 
(GNED TCB 

WAYS ? 

> IN CHAIN ? 06450000 

JE PASSED 06460000 | 05} 
ING SET UP 06470000 


4908 *T000380 EXIT 
4909 ATO00380 SVC SWCEXIT,Q0 
4910 *** END OF EXPANSION ** 
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REGISTER 2 06490000 | 07 
CB ADDRESS 06500000 
03 
06510000 
DTCB a 06520000 
D REG. 2 06530000 | 09 
CB ADORESS 06540000 
10 
06550000 
CANCEL COUNT 
IVE ll 
RO 
12 
13 
1 4 
1 
RB 06560000 
SSIGNED 06570000 | 16 
L? 0658030 
D XR2 VALUE 06590000 
ILED 06600000 | 17 
TO NEXT XNT? 06610000 
ALLER 06620000 | 18 
06630000 
19 
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PAGE 


SSVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


77 YO9/11/81 12/08/81 21:28 


02 


0004 3393 TUBMCOUT EQU § X‘04' 


. ENTER HAS BEEN PRESSED AT THE SUBCNSL 


OI 


10 


11 


5 


16 


1? 


19 


#SVAT CB ATTACH 


ERR LOC OBJECT COD 


OE12 34 68 OF 8D 
0£16 3D 00 OF83 
OFLA F2 81 2 


OF1D 35 02 OF 84 
OEZ1 8D 01 37 OF 
0€26 F2 81 09 


0€29 2C 02 OEDC 
OE2E CO 87 OE8F 


0£32 BD 00 32 
OE35 F2 81 09 


OF38 B5 01 33 
0E3B F4 00 07 


OE3E 0030 
0E40 01 


0E41 £2 01 00 
0F44 F4 00 07 
Of 47 0080 

0E49 61 

OF4A 35 01 OF 80 
OE4E 1C 00 GE56 
0£53 C2 01 0000 
O€57 35 02 0141 
GESB BS 02 17 


OESE B5 02 05 
O£61 CO 87 00C6 


*SVAT TCB ATTACI 


ERR LOC OBJECT Ct 


SCANSPB C 001 
15] SCANSPGP C 001 
SCAMSPOL C 001 
SCAMSPRK C 001 
16] SCANSRJE C 001 
SCANSST C 001 
SCANSUBS C 001 
17} SCAMSWAP C 001 
SCANS32K C 001 
SCANS48K C 001 
13] SCAMS64K C 001 
SCANS96K C 001 
SCAMTACT C 001 
19)SCANTELL C 001 
SCANTOLD C 001 


SCATHASZ C 001 
SCAUSER@ C 001 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT C 


06640000 4912 * 
4913 * ON ANY ATTACH ERROR, FREE ALL ALLOCATED RESOURCES AND MOVE 
4914 * THE VALUE OOXX INTO XR1, WHERE XX IS A PREDESIGNATED RETURN CODE 
4915 * 
O£12 4916 ATERROR EQU * 
ST RTALLOC+3, ARR 
0E16 3D 00 OF83 CLI ATTCB-1,0 
OE1A F2 81 2D JE ATE0060 


SAVE CALLER'S ARR 

ANY TCB ASSIGNED ? 

NO, NO AREAS ASSIGNED 0E65 34 08 OE: 
OE69 3C 00 OF 
OE6D 7C 00 18 
0E70 5E 01 19 
0€74 5E 01 19 
0E78 5E 01 19 
OE7C OE 00 OF 
OE82 4F 01 19 
OES7 CO 84 OE; 


0E1D 35 02 OF84 L ATTCB, TCB2 XR1-> ASSIGNED TCB 
QE21 8D 01 37 OFB9 CLC ATSVSSSA-1¢2,TCB2),ATZERO ANY SWAP AREA TO FREE ? 
0E26 F2 81 09 JE ATEOO30 NO, NONE TO FREE 90185 


0E29 2C 02 OEDC 33 
OE2E CO 87 OE8F 


MVC ATALLS2(3), ATSVSSS@,TCB2) MOVE IN SS TO DEALLOCATE 
B DEALLOC GO DEALLOCATE WSWA 


0E32 BD 00 32 4925 ATEOO30 CLI ATSVRBa-1¢, TCB2),0 ANY RB TO FREE 


0£35 F2 81 09 4926 JE ATEOO5O NO, NONE TO FREE OE8B CO 87 0X 
0£38 B5 01 33 4927 L ATSVRBaC, TCB2), RB1 XR1-> RB 

4928 * FREE LEN-RBS$TLEN FREE UP THE RB 
OE3B F4 00 07 4929 SVC SVCFREE,QO = [ISSUE FREE REQUEST 


OE3E_0030 OE3F 4930 DC _AL2CRBSTLEN) LENGTH OF AREA TO FREE 


0E40 4931 OC = AL1C0+1) FREE FUNCTION BYTE 
4932 *** END OF EXPANSION ** 


4933 * THE FOLLOWING CODE HAS BEEN ASTERISKED TO COINCIDE WITH THE aai85 
4934 * ASTERISKED CODE AT THE BEGINNING OF THE MAINLINE ROUTINE THAT  aal85 
4935 * ALSO DEALS WITH THE SCAN BUFFERS. aa185 


4936 *TEOO4O CLI ATSVSCa-1¢, TCB2),0 ANY SCAN BUFFER TO FRE@G185 


4937 * GE — ATEOO50 NO, NONE TO FREE 3085 
4938 * L ATSVSCaC, TCB2), XR1 XR1-> SCAN BUFFER 30185 
4939 * FREE LEN-264 30185 


0E41 E2 01 00 4940 ATEOO5O LA 0¢, TCB2), TCB1 XR1-> TCB 
494] * FREE LEN-TCBLEN FREE TCB 


0E44 F4 00 07 4942 SVC SVCFREE,QO ISSUE FREE REQUEST 


0E47 0080 0E48 4943 DC = AL2CTCBLEND ~—- LENGTH OF AREA TO FREE 
0E49 01 0E49 4944 OC = AL1C0#1) FREE FUNCTION BYTE 
4945 *** END OF EXPANSION ** 


OE4A 35 01 OF8O 
OE4E 1C 00 0E56 00 
0E53 C2 01 0000 


4946 ATEO060 L 


4947 (WC ATEOO70+3¢1),0¢, XR1) 


4948 ATEOO70 LA 


RTALLOC+3, XRI 


# XRL 


XR1-> RIB BYTE 


MOVE IN ERROR CODE 


LOAD ERROR CODE IN XRI 


4949 * 


TCBA = R-TCB2 


XR2-> CURRENT TCB 


OE57 35 02 0141 4950 L 321, TCB2 GET TCB ADDRESS. 
4951 *** END OF EXPANSION ** 


OE5B B5 02 17 4952 L TCBCRBC, TCB2), RB2 
OESE B5 02 05 4953 L RBSXR2(, RB2), XR2 
0E61 CO 87 ODC6 4954 B ATO00370 


XR2-> CURRENT RB 
XR2-> PASSED XR2 VALUE 
GO EXIT ROUTINE 


DO9 


PAGE 77 VO9/11/81 12/08/81 21:28 ‘ #SVAT TCB ATTACH TRANSIENT 
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PAGE 78 VO9/11/81 12/08/81 21:28 #SVAT CB ATTA 
7 
ERR LOC OBJECT 


ERR LOC OBJECT CODE © ADDR STMT SOURCE STATEMENT 


IOP SCASMSG1 C 001 0038 
SCASMSG2 C 001 0041 


1961 
2323 
1985 
1824 
2021 


aE 114 VO9/11/81 12/08/81 21:28 #SVAT TCB ATTACH TRANSIENT 
01 


ERR LOC OBJECT CODE 


1962 


1986 
1826 
2031 


1829 1831 


ADDR STMT SOURCE STATEMENT 
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#SVAT TCB ATTACH TRANSI 
01 
ERR LOC OBJECT CODE 


06660000 02 4956 RARAKAAKRRRAAERARHR HIER ARR REI RIKI III III III IPI IR IRIS TI I I ITO TOR IIIT TOTO 07041000 02 
06670000 4957 * THIS SUBROUTINE HAS BEEN ADDED TO FIRST ao 07041500 

1 CODE 06680000 4958 * CALCULATE THE SIZE OF THE REQUIRED SWAP AREA ON DISK 07042000 
06690000 | 03 4959 * AND THEN BRANCH TO THE ALLOCATE SUBROUTINE 07042500 | 03 
06700000 4960 So aici en LL a 07043000 
06710000 


: 06712000 
NED 06714000 0E65 34 08 OESE 
0€69 3C 00 OFS] 
06716000 | 05}  OE6D 7C 00 18 
REE 2 06720000 E70 5E 01 19 19 
aa185 06730000 E74 5E O1 19 19 
06] 0E78 5E 01 19 19 
LOCATE 06740000 OE7C OE 00 OF81 OFBA 
06760000 OE82 4F 01 19 OOAA 
07] —0€87 CO 84 OE7C 
06860000 
06870000 OE8B CO 87 0000 


E65 4962 SWAPSIZE EQU 


4963 ST___SWSZRTRN+3, ARR SAVE THE RETURN ADDRESS 9a290 
4964 (WI ATALSIZ,0 SET ALLOC. SIZE TO.0 aa290 
4965 MVE TCBAXR1-1¢, TCB1),0 ZERO HIGH ORDER BYTE 8290 
4966 ALC TCBAXR1(2, TCB1), TCBAXR1¢, TCB1) DOUBLE VALUE a290 
4967 ALC = TCBAXR1¢2, TCB1), TCBAXR1¢,TCB1) TIMES 4 0290 
4968 ALC TCBAXR1¢2, TCB1), TCBAXR1(, TCB1) TIMES 8=SECTORS 99290 
4969 SWS20010 ALC ATALSIZ(1), ATCONONE ADD _1 TRACK 30290 
4970 SLC TCBAXR1¢2, TCB1), NUGSCA+SCADTKSZ DECRENENT S/TRACK aa290 
4971 BH — SWSZ0010 NEED MORE TRACKS 98290 


4972 SWSZRTRN B 


07044000 
07044500 
07045000 
07045500 


STARTING POINT OF THE SUBROUTINE@A290 


RETURN TO CALLER 3a290 07049000 


04] —OESF C2 02 OE9A 
0E93 B4 08 3F 
0E96 C2 01 02A2 

05] —OE9A 9C 04 47 05 


07046000 OE9SE BC 01 28 
07046500 OEAL AD 01 46 41 
07047000 | 06] EAS F2 81 1C 
07047500 


07048000 OEA8 8E 01 46 OOAA 
07048500 | 07] OEAD AE 00 28 2B 
OEB1 EO 20 07 


08} = 0£B4 86 01 FO 
OEB7 AF 00 47 05 
OEBB £0 84 04 


09 
OEBE B5 01 44 
OEC1 EO 87 00 
10 
OEC4 7A 00 00 


OEC? AF 00 42 05 
1]) —‘O€CB EO 84 13 


12) ECE F4 00 01 


AGE = =—78 09/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE 


010 


PAGE 


ADDR STMT SOURCE STATEMENT 


79 VO9/11/81 12/08/81 


OED1 40 
OED2 00 
3 
OED3 B5 02 EA 
OED6 CO 87 0000 
14 
OEDA 
OEDD 
ib) 
16 
7 
18 
19 
20 


#SVAT TCB ATTACH TRANS 


ERR LOC OBJECT CODE 


SIO IO OO 
* 


DORIC 


3470 * SUB 

347] ER OOOO I IOI IO III OUI IOI TOO IOI ITO TO II IIIT ITI IIN 
3472 * ® 
3473 * SESSION UNIT BLOCK FOR ICS SESSIONS i 
3474 * * 
3G]5 RARRARRERARRARARRARRARAARRAARARARARARARRERARRER ARERR RRR RRRRRRRRRE 
3476 * 00 =* 01 *02 *03) = %04) 05 06* 07 =* 


3477, * ECM * COMP] * COMP2 * CMOD * CMND * DATAa S-EFEL ® 


TPTION 


PRINTER 


347G XRRKAARRERAERAKRARRARRARRERRA RAW RRA RARER AR RAR KARR RRARRARRRRER ERED 
3479 * OR 08 * 09 OA * OB OC * OD OE * OF = * 
3480 * OUTL * —ASGNL * SSBa - XSCRa * BUBA * 


348) RRAKAKKAARAKRAAARAAARAKKARRA ARKH RAR AK AR AE KE REKKEARAERERRRRAAR RARER 


PAGE 115 09/11/81 


FOR RIK IR IRI IRR ® 


aa290 
90290 
38290 


PIII RIOR ROO 


UBROUT INE GA290 


ZE TO. 0 aaz90 
ER BYTE 0290 
E 


12/08/81 21:28 


07041000 
07041500 
07042000 
07042500 
07043000 


07044000 
07044500 
07045000 
07045500 
07046000 
07046500 
07047000 
07047500 
07048000 
07048500 


07049000 


ARARRARAR 
* 07 * 
REPEL o& 


TORII IO 


* OF * 


SUBSSPRC C 001 


05 


06 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


OE8F C2 02 OE9A 
0E93 B4 08 3F 
0E96 C2 01 02A2 
OE9A 9C 04 47 05 
OE9E BC 01 28 
OEAL AD 01 46 41 
OEAS F2 81 1C 


OEA8 8E 01 46 OOAA 


OEAD AE OC 2B 2B 
OEB1 EO 20 07 


OEB4 B6 01 FO 
OEB7 AF 00 47 05 
OEBB EO 84 04 


OEBE B5 01 44 
OEC1 EO 87 00 


OEC4 7A 00 00 
OEC? AF 00 42 05 
OECB EO 84 13 


OECE F4 00 01 
OED] 40 
OED2 00 


OED3 B5 02 EA 
OED6 CO 87 0000 


OEDA 


ADDR STMT SOURCE STATEMENT 


4974 * 


4975 * DEALLOC IS CALLED TO FREE UP TASK WORK AREA SPACE. ATALLSZ 


4976 * CONTAINS THE SS AND TRACK SIZE TO FREE 


4977 * 
OESF 4978 DEALLOC EQU 


x 


USING DE000010, BAS2 


LA 
ST 
4982 LA 


0E000010, BAS2 


RTDEALL+3(, BAS2), ARR 


NUATWAXR, F51 


USE AS A BASE AREA 
LOAD BASE REGISTER 
STORE CALLER'S ARR 
POINT TO ALLOC. BIT MASK 


4983 DEO00010 MVC = ATSVELMCTWAXN-TWAXMAP, BAS2), TWAXN-TWAXMAPC, F51) MAP 


4984 DE000020 MVI 


DE000050+1¢, BAS2),X‘01' 


INIT. MASK TO X'01' 


4985 DEO00030 CLC ATSVSSVL(2,BAS2),ATALLS2-1¢,BAS2) UP TO AREA TO FREE ? 


4986 JE 


DEO00050 


YES, GO DEALLOCATE TRACK 


4987 ALC ATSVSSVLC2,BAS2),NUASCA+SCADTKSZ ADD SECTORS/TRACK @a041 
DE000050+1¢1,BAS2), DEO00050+1¢,BASZ) DOUBLE Q-CODE 


4988 DEO00040 ALC 


4989 BNOL _DE000030¢, BAS2) 


4990 A 
4991 SLC 
4992 BH 


L ATSVCHANC, BAS2), F51 


4995 DEOO0050 SBN 
4996 SLC 
BH 


ALMONE(, BAS2), F51 


NOT OVERFLOW 


BACK UP BIT MASK 


ATSV#BYT(1, BAS2), DEO00020+1(,BASZ) DECR. # BYTES 


DE000020¢, BAS2) 


DE000010¢, BAS2) 


0¢,F51),# 


CHECK NEXT BYTE 


POINT TO NEXT BIT MASK 
CHECK NEXT CHAIN 


FREE UP TRACK 


07211000 
07212000 
07213000 


07214000 


ATALLS2(1, BAS2), DE000020+1¢,BAS2) DECRENENT AMOUNT FREED 


DE000040¢ , BAS2) 


NOT DONE, FREE NEXT 


GPOST MASK-TCBSWAIT 


SVC 
oc 


SVCGPOST,0 
ALLCTCBSWAIT) 


POST ALLOCATE WAITORS 


oC 


AL1¢O) 


5002 *** END OF EXPANSION ** 


5003 L 
5004 RTDEALL B 


OEDC 5005 ATALLSZ 0S 


OEDD 


OEE1 5006 ATSVELM DS 
OEEO 5007 ATSVSSVL EQU 
OEEO 5008 ALSSS —_-EQU 


OEDE 5009 ATSVCHAN EQU 
OEE] 5010 ATSV#BYT EQU 


ATTCBC, BAS2), TCBZ 


XR2-> ASSIGNED TCB 


GW 


#SVAT TCB ATTACH TR 


ERR LOC OBJECT CODE 


OEE2 C2 01 OEDD 
OEE6 74 08 A3 
OEE9 C2 02 O2A2 
OEED 6C 04 04 05 
OEF1 5C 01 A9 03 
OEF5 5F 00 04 37 
OEF9 5C 00 29 04 
OEFD 5C 00 49 04 
OFO1 5C 00 74 04 
OFO5 6C_00 DO 00 
OFO9 74 02 48 
OFOC 74 02 76 
OFOF 5C 00 AS A4 
OF13 7C 01 3F 
OF 16 4E 01 A9 OOAP 
OF1B B8 00 00 
OFIE F2 10 10 


OF21 5C 01 03 Ad 
OF25 1€ 00 0000 DO 
OF2A 5C 00 AS A4 
OF2E F2 87 OF 


OF31 5C 00 59 3F 
OF35 BB 00 00 
OF38 5F 00 A5 37 
OF3C F2 04 3B 


CL3 


CLS 
ATSVELM-1 
ATSVSSVL 


RETURN TO CALLER 


TCBTSSN HOLD AREA 
SAVE ELEMENT ADDRESS 
SS START VALUE 

SS VALUE ALLOCATED 


ATSVELM-3 
ATSVELM 


FORWARD CHAIN ADDRESS 
# BYTES IN INDEX 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 
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12/08/81 21:28 


3504 RRO RRO III IO IOIIOR IR RII TR IIOC RIOR OO TOO ITO RTI TI IIIT 


3505 * 


3506 RRRRAARARARRAR RIA RII IR TIT IIR TORII TOTO IT TOR TOR IT 


0000 3508 SUBECM EQU 


0080 3510 SUBSSKIP EQU 


SESSION UNIT BLOCK (SUB) 


TUBECN 


EVENT CONTROL MASK 


TUBSSKIP 


3511 * BITS 182 NOT USED 


~ NO SKIP BIT 


3512 * BITS 3-7 MUST BE ZERO 


OF3F 5E 00 3F 3F 
OF 43 DO 20 39 


OF46 76 02 AD 
OF49 5F 00 04 37 
OF4D 00 02 36 
OF50 1C 00 0000 DO 
OF55 7D 00 00 
OF58 75 02 01 
OF5B DO 01 10 


OFSE 75 02 A7 
OF61 9C 02 3D A4 


OF65 F4 01 04 
OF68 35 


OF69 74 02 A7 


#SVAT TCB ATTACH 1 


ERR LOC OBJECT CODE 


Wee ve I IT 
15] SUBLIN2 C 001 0002 3655 
SUBLOCA C 001 0027 3621 


SUBMDATA C 001 0010 3640 
SUBMRDTA C 001 0008 3671 
SUBMSTDY C 001 0080 3639 


SUBNCOM C 001 0004 3670 
17] SUBOPSTS C 001 0030 3624 
SUBOUTL <2 001 0008 3555 
SUBPCFGA C 001 0022 3618 
18] SUBQSHOR C 001 0034 3626 
SUBRAHD C 001 0080 3667 


16 


3556 3557 


SVCPOSTA C 001 
18} SVCPOSTI C 001 
SVCPPSVC_C 001 


SVCPQSVC C 001 O04C 2452 
19] SUBREL C 001 0004 3660 19{SVCPREP C 001 0026 2433 
SUBRQCD C001 0020 3669 SVCPRIQ C 001 0024 2431 


C 001 


E12 
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GE 116 VO9/11/81 12/08/81 21:28 #SVAT CB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


07060000 OF6C 6C 02 A4 3D 
07070000 OF70 DO 81 OC 
07080000 5014 * FASHION ACCORDING TO THE TRACK SIZE PASSED IN ATALSIZ. THE 
07090000 5015 * ALLOCATED SS IS RETURNED IN ALSSS. 
07100000 5016 * 
A 07110000 O€E2 5017 ALLOC EQU * 
R 07120000 OEDD 5018 USING ATSVCHAN-1,BAS1 USE AS A BASE AREA OF73 75 02 A4 
R 07130000 OEE2 C2 01 OED 5019 LA ATSVCHAN-1,BAS1 LOAD BASE REGISTER OF76 5E_01 A3 AB 
TT MASK 07135000 OEE6 74 08 A3 5020 ST RTALLOC+3(, BAS1), ARR STORE CALLER'S ARR OF7A 75 01 A? 
> MAP 07140000 OEE9 C2 02 02A2 5021 ALLOOOO5 LA —- NUATWAXR, F52 POINT TO FORMAT 5 OF7D CO 87 0000 
1 07160000 OEED 6C 04 04 05 5022 ALLOOO1O MVC ATSVELMCTWAXN-TWAXMAP, BAS1), TWAXN-TWAXMAP(, F52) NAP 
O FREE ? 07170000 NVC ALSSSEC2,BAS1),ALSSS(,BASI) INIT. END ADDhcSS 
E TRACK 07180000 SLC ATSV#BYTC1,BAS1),ALLO0020+1(,BAS1) DECR. BY 1 
OEF9 5C 00 29 04 ALLOO015+1¢1,BAS1), ATSV#BYT(,BAS1) MOVE IN L-1 
RACK aa041 07190000 OEFD 5C 00 49 04 ALLO0045+1(1,BAS1), ATSV#BYTC,BASI) MOVE IN L-1 
CODE 07200000 OFO1 5C 00 74 04 ALL00075+1(1,BAS1), ATSV#BYT(,BAS1) MOVE IN L-1 
07210000 OFO5 6C 00 00 00 ALSAVE(#, BAS1),0(, F52) SAVE MASTER PATTERN 
OFO9 74 02 48 ALL00045+3¢, BASI), F5z STORE POINTER 
07211000 OFOC 74 02 76 ALL00075+3(, BAS1), F52 STORE POINTER 
ES 07212000 OFOF 5C 00 AS A4 ALSIZ(1,BAS1), ATALSIZ(,BAS1) MOVE IN SIZE 
07213000 OF13 7C O1 3F 5032 ALLOOO20 NVI ALLOO040+1¢, BASI), X01 ° INIT. BIT TO TEST 
OF16 4E 01 A9 OOAA 5033 ALLOOO30 ALC  ALSSSE(2,BAS1),NUASCA*SCADTKSZ ADD SECTORS/TRACK  aa041 
MASK 07214000 OF 1B B8 00 00 5034 ALLOOO40 TBN OC, F52),# TRACK AVAILABLE ? 
07215000 OFIE F2 10 10 ALLOO050 YES, ALLOCATE IT 
07240000 OF21 5C 01 03 A9 MVC _ALSSS(2,BAS1),ALSSSEC,BAS1) NO, SET NEW START SS 
JUNT FREED 07250000 OF25 1C 00 0000 DO 5037 ALLOOO45 IVC #C#), ALSAVEC, BASIL) RESTORE MASTER PATTERN 
iT 07260000 OF2A 5C 00 AS A4 ALSIZ(1,BAS1), ATALSI2Z(,BAS1) RESTORE SIZE 
OF2E F2 87 OF ALLO0070 GO CONTINUE 
TORS 07270000 
0F31 SC 00 59 3F 5040 ALLOOOSO MVC — ALL00060+1(1,BAS1),ALLO0040+1(,BAS1) MOVE IN MASK 
0F35 BB 00 00 5041 ALLOOOGO SBF  0(,F52),# INDICATE ALLOCATED 
OF38 5F 00 AS 37 5042 SLC ALSI2(1, BAS1), ALLOOO20+1(, BASI) ALLOCATED ALL ? 
OF3C F2 04 3B 5043 JNH — ALLOOO80 YES, ALLOCATION DONE 
07275000 
07280000 OF3F 5E 00 3F 3F 5044 ALLOOO70 ALC —ALLO0040+1(1, BAS1), ALLO0040+1(, BAS1) DOUBLE Q-CODE 
OF 43 DO 20 39 5045 BNOL ALLO0030(, BAS1) NOT DONE BRANCH 
07290000 
$S 07291000 OF46 76 02 AD 5046 A ALMONEC, BAS1), F52 BUNP TO NEXT BYTE 
07292000 OF 49 5F 00 04 37 5047 SLC ATSV#BYTC1, BAS1), ALLO0O20+1¢,BAS1) DONE WITH AREA 
) 07293000 OF4D DO 02 36 5048 BNL ALLO0020(, BAS1) NO, CHECK NEXT BYTE 07630290 
ESS 07294000 
07295000 OF50 1C 00 0000 DO 5049 ALLOOO75 MVC #(#), ALSAVE(,BAS1) RESTORE MASTER PATTERN 0764°.300 


07040700 
07641400 
07642100 


OF55 7D 00 00 
OF58 75 02 01 
OF5B DO 01 10 


5050 CLI 
5051 L 
5052 BNE 


ATSVCHAN-1¢, BAS1),0 
ATSVCHANC, BAS1), F52 
ALLO0010¢, BAS1) 


ANY MORE CHAINS ? 
GO CHECK CHAIN OF 
INDEX ELEMENTS 


OFSE 75 02 A? 
OF61 9C 02 3D A4 


5053 L ATTCBC, BAS), TCB2 XR2-> ASSIGNED TCB 
5054 MVC ATSVSIZE(3, TCB2), ATALSI2¢,BAS1) SAVE SIZE AND ARR 
5055 * SXFER_ID-RSVTX, REFRESH-YES CALL #SVTX 
5056 svc 4,1 

OF63 5057 OC = ALICRSVTX) 
5058 *** END OF EXPANSION ** 
5059 ST ATTCBC, BAS1), TCB2 


OF65 F4 01 04 
OF68 35 


OF69 74 02 A7 STORE TCB ADDRESS 


D12 


#SVAT TCB ATTACH TRANS 


80 VO9/11/81 12/08/81 21:28 “SVAT TCB ATTACH TRANSIENT 81 VO9/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


RR ERR NRKKA 02 000C 3558 SUBSSBA EQU SUIBASGNL+2 ADDRESS OF SESSION OCL CNTL. BLOCK 
' QOOE 3559 SUBXSCRA EQU SUBSSBa+2 —_ ADDRESS OF SUBSYTEM CONTROL TABLE 
aRARRRRRRRE 0010 3560 SUBBUBA EQU  SUBXSCRa*2 ADDRESS OF ASSOCIATED BUB 
03 0010 3561 SUBSNUBa EQU — SUBBUBa ADDRESS OF ASSOCIATED SNUB 
0010 3562 SUBTSUBa EQU _SUBBUBa ADDRESS OF TARGET SUB 
04 0011 3564 SUBBFFLG EQU SUBBUBa+) FLAG BYTE FOR BUFFER USAGE 
0080 3565 SUBSPRAL EQU X'80' —=s««.: BUFFER IS. PREALLOCATED 


117) VO9/11/81 


UOUS 


dE 


7 


18 


19 


20 


12/08/81 21:28 


0763000 


0764°.00 
07040700 


07641400 
07642100 


07642800 
07643500 
07644200 


07644900 


PONENT YVR MTS LTE 


SVCLOAD C 001 0052 2456 5102 
SVCLOG C001 001A 2420 

SVCMOVEI C001 002A 2437 

SVCOP C001 OOF4 2482 

SVCPMR C001 000D 2407 4192 
SVCPOST C001 0003 2397 4647 4664 
SVCPOSTA C 001 0019 2419 

SVCPOSTI C 001 002B 2438 

SVCPPSVC_C 001 0008 2405 4634 4857 
SVCPQSVC C 001 004C 2452 

SVCPREP C 001 0026 2433 

SVCPRIQ C001 0024 2431 4843 

E13 


#SVAT TCB ATTACH TRANSIENT PAGE 118 09/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


OF6C 6C 02 A4 3D 5060 MVC ATALSI2(3,BAS1), ATSVSIZEC, TCB2) RESTORE SIZE AND ARR 07645600 
1 0C 5061 BE__ALL00005¢, BAS1) GO CHECK NEXT 07646300 


OF70 DO 8 


* 5062 * 07647000 
5063 * ALLOCATE HAS FAILED 07647700 
5064 * 07648400 


OF73 75 02 A4 5065 L ATALSI2(,BAS1), S122 LOAD UP SIZE REQUIRED 
OF76 5E 01 A3 AB 5066 ALC RTALLOC+3(2, BAS1), ALCON3(,BAS1) ADD 3 TO IAR 

OF7A 75 01 A? 5067 ALLOOO8O L ATTCBC, BAS1), TCB] RELOAD TCB ADDRESS 
OF7D CO 87 0000 5068 RTALLOC B Ed RETURN TO CALLER 


TCBAINL2 C 001 
TCBAINL3 C 001 
TCBAINL4 C 001 


#SVAT TCB ATTACH TRANSIE! 


ERR LOC OBJECT CODE 


{ 


OFBB C800 
OFBD CAQ7 


D13 


PAGE 82 VO9/11/81 12/08/81 21:28 


ADDR STMT SOURCE STATEMENT 


GO1A 3610 SUBSRES2 EQU SUBSRESI+1 RESERVED FOR SUBSYSTEM USE 


001C 3611 SUBXCHNA EQU  SUBSRES2+2 CHAIN POINTER TO NEXT XSUB 


SUBSRES2+1 RESERVED FOR SUBSYSTEM USE 
OO1C 3613 SUBSRES4 EQU SUBSRES3+]1 RESERVED FOR SUBSYSTEM USE 
OO1E 3614 SUBASGNA EQU  SUBXCHN@+2 ADDRESS OF ASSIGNED AREA 


#SVAT TCB ATTACH TRANSI' 


ERR LOC OBJECT CODE 


118 09/11/81 12/08/81 21:28 


) ARR 07645600 
07646300 


07647000 
07647700 
07648400 
ED 07650000 
07660000 
07670000 
07680000 


19] TCBAINL3 C 001 


C 001 0001 0112 


C 001 0002 0113 


15] SW3 C 001 0003 0114 


C 001 0001 4153 


TCBAINL1 C 001 
TCBAINL2 C 001 


TCBAINL4 C 001 


0176 0177 0187 0188 0189 0190 


0156 0159 0160 0163 0164 0165 0166 0167 0168 


0200 0201 0202 0203 0204 0206 0207 0210 0211 0212 0213 


4615 4839 


2659 4271% 4272 4272* 4273 4273" 4274 4274% 4278 4329% 4333* 4347* 
4350 4352 4362" 4365 4365" 4366 4368 4375" 4376 4378 


4818* 


#SVAT TCB ATTACH TRANSIENT 


01 
ERR LOC OBJECT CODE 


02| 


OF89 FFFF 
OF 8B 


OFAE 30 

OFAF 0030 
OFB1 0601 
OFB3 OE01 
OFB5 08 

OFBé 00000000 


OFBA 01 


ADDR STMT SOURCE STATEMENT 


5070 * CONSTANTS AND WORK AREAS 


5071 * NOTE THAT ATALSIZ MUST RESIDE DIRECTLY AFTER THE RETURN ADDRESS 


OF81 5073 ATALSIZ 
OF82 5074 ALSIZ 
OF84 5075 ATTCB AL2¢#) 
OF 86 5076 ALSSSE CL2 
OF 88 5077 ALCON3 XL2'0003' 
OF8A 5078 ALMONE XL2'FFFF 
OFAD 5079 ALSAVE CLCNULTWAX) 
5080 * D0 NOT SEPARATE NEXT THREE BYTES 
OFAE 5081 ALICTCBATRS-31) 
OFBO 5082 ATNAP AL2CTCBATRS-31) 
OFB2_5083 ATPMRR XL2'0601' 
OFB4 5084 ATPNRL XL2‘OE01* 
OFB5 5085 ATCONS XL1'08* 
OFB9 5086 ATZERO XL4 ‘00000000 ' 
OFB6 5087 ATCKO800 EQU  ATCONS+] 
OFBA 5088 ATCONONE DC = XL1‘O1' 
5089 *TPROCN DS  CL8 
5090 * 
5091 * DON'T SEPARATE NEXT 4 BYTES 
5092 _* DO NOT SEPARATE NEXT FOUR BYTES 


OFBB C800 
OFBD CA0?7 


ALLOCATION SIZE 
ALLOCATION SIZE WORK AREA 
ASSIGNED TCB ADDRESS 

SS OF NEXT AREA 

CONSTANT OF 3 

CONSTANT OF -1 

BIT MASK SAVE AREA 


OFFSET TO FIRST ATR 

INITIAL ATR SLOT ADDRESS 
PYR/PSR FOR EA,EB AND I OFF 
PMR/PSR FOR EA,EB AND I ON 
NO. SECTORS IN 2K 

CONSTANT OF ZERO 

CONSTANT OF X‘0800' 
CONSTANT OF ONE 

PROC NAME HOLD 


5093 * 
OFBC 5094 INITLDA DC  — AL2CIWWRKARA) 
OFBE 5095 INITSCa DC  — AL2CIWENTRYAa) 


LINK ADDRESS OF C800 aa293 
START CONTROL ADDRESS aa298 


TCBOKTUT C 001 258 
TCBOVEPD C 001 0002 250 
15] TeBOMPPD C 001 


ERR LOC CBJECT CODE 


OFBF F4 05 52 
OFC2 OA 


OFC3 F4 00 11 


“SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


PAGE 83 VO9/11/81 12/08/81 21:28 


003A_3665 SUBATTRE E TUBATTR6 


ATTRIBUTE BYTE 6 


0080 3667 SUBRAHD EQU  TUBUSUP 


0040 3668 SUBO412 EQU  TUBUSSY 0411/12 RETURN CODE GIVEN 


0020 3669 SUBRQCD EQU  TUBSYLST 


FG HOES ae ARS POT in eS foe, tad 


. READ AHEAD DONE 


“SVAT TCB ATTACH TRAN 


ERR LOC OBJECT CODE 


- RQCD RECEIVED IN READ AHEAD MODE 


IVMUL Yew Y ue 
14) TcBoKO Cc 001 
TCBOKTWT C 001 
TCBONEPD C 001 
15] TCBOMPPD C 001 
TCBDSKTR C 001 
TCBDSKWT C 001 
16] TCBDUYP C001 
TCBDWAIT C 001 
TCBECMER C 001 
17] TCBECNGW C 001 
TCBEXIT C 001 
TCBEXTRA C O01 
18] TCBFORCD C 001 
TCBFSWAP C 001 
TCBFWAIT C 001 
19} TCBGWAIT C 001 
TCBHDIPT C 001 
TCBICKXWT C OOT 


09/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE 


OFC2 OA 


OFBF F4 05 52 


OFC3 F4 00 11 


Late 
2760 
2583 


2598 
2749 
2775 
2584 
2776 
2557 
2678 
2672 
2690 
2594 
2544 
2548 
2576 
2556 
2748 
2586 


2563 


2691 2692 


2563 


ADDR STMT SOURCE STATEMENT 


5097 * 
5098 * 
5099 * 
5100 * 
OFBF 5101 ATMCODE EQU * 
5102 sve 
ofc2 5103, = OC 


A NEW TASK 


AL1(SLOMSLD) 


: SVC SVCEXIT,Q0 
5106 *** END OF EXPANSION ** 

OFC6 5107 ATMPRM EQU * 
0007 5108 ATMOFF EQU = ATMPRM-ATMCODE 
OFD1 5109 0S = CLCSLDDLEN) 
OFD2 5110 ATNCDED EQU * 
0013 5111 ATMLEN EQU = ATMCDED-ATMCODE 
OFD2 5112 ATSSN EQU * 
OFDS 5113 os Cl4 


THIS IS THE BOOTSTRAP CODE MOVED TO THE RB WHEN STARTING 


LOAD PARAMETER LIST 


LENGTH OF BOOTSTRAP CODE 
SSSN VALUE OF TRANSIENT 
TO EXIT TO IS / “TACH WAS 


TCBMAXID C 001 
TCBMIC C 001 
TCBMRTMK C 001 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STM 
OFF4 511 
OFF4 FFFF OFFS 511 
OFF6 C3C9D403 OFF 5111 

OFFA 5118 
OFFA OFFE 511° 
512¢ 
0800 512] 
LENGTH OF MODULE IS 2047 


¥O9/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE 


#SVAT TCB ATTACH TRANSIE 


ADDR STMT SOURCE STATEMENT 


PAGE 


84 09/11/81 


12/08/81 


3693 * TWAEQ 
3694 * 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


ADDR ST 


3695 * GENERAL TASK WORK AREA ACCESS EQUATES 


3696 * 
0001 3697 TWAPUT EQU  X‘O1' 


PUT TO TASK WORK AREA 


00850000 | 02 0027 37 
0033 37 

By) 

03 003C 37 

37 


PAGE 120 VO9/11/81 12/08/81 21:28 


START ING 


NE 


ETER LIST 


300TSTRAP CODE 
OF TRANSIENT 
1S A "ACH WAS 


08170000 


08210000 


08230000 
08240000 


08250000 
08260000 
08270000 
08280000 
08290000 
08300000 
08310000 


14 TCBKWAIT C 001 0001 
TCBLCKDI C 001 0080 


TCBLCKSI C 001 0010 
17/ TCBLDISK C 001 005A 
TCBLDREL C 001 0057 
TCBLEN C 001 0080 
18] TCBLINWT C 001 0040 
TCBLONGW C 001 0010 
TCBNABTN C 001 0010 
19] TCBMAXID C 001 O0EO 
TCBMIC C001 0057 


2577 
2695 


2694 = 2704 


2698 

2686 = 2687-2688 

2684 —- 2685-2686 

2815 = 4225 4236 4236» 4236" 4943 
2582 
2545 
2756 
2735-4489 
2685 


TCBRWAIT C 001 
TCBSDTAC C 001 
TCBSDTSO C 001 


E16 


#SVAT TCB ATTACH TRANSIENT 


01 
ERR LOC OBJECT CODE 


02} OFF4 
OFF4 FFFF 
OFF6 C3C904D3 


OFFA 


LENGTH OF MODULE IS 


ADDR STMT SOURCE STATEMENT 


5115 X‘OFF4' O2|SYNBOL T LEN VA 


OFF5 5116 XL2'FFFF' 
OFF9 5117 CL4 ‘CIM $AIDATTN C 001 
OFFA 5118 4CIML FQU * 03} $AIDCLER C 001 
OFFE 5119 dS CLS $AIDCNOI C 001 
5120 */*.END CHANGE ACTIVITY - #SVAT $AIDCMO2 C 007 
0800 5121 END #SVAT 04] $Arocro3 C 001 
2047 SAIDCMO4 C 001 
SAIDCNOS C 001 
05] $AIDCMOS C 001 
SAIDCMO? C 001 
$AIDCMO8 C 007 
06} SAIDCMO9 C 001 
SAIDCMO C 001 
SAIDCMI1 C007 
O7} $AloCcM2 C 001 
$AIDCM13 C 001 
SATDCMI14 C 001 
08] SAIDCM15 C 001 
SAIDCMI6 C 001 


SAIDCI? C 001 
Q9) SAIDCM18 C 001 
SAIDCM19 C 001 


SAIDCM20 C 001 
10} $AIDCM21 C 001 
SAIDCN22 C 001 


SAIDCN23 C 001 
11; SArDCN24 C 001 
SAIDENTR C 001 


SAIDGAIJ C 001 
12) $AIDHELP C 001 
SAIDHLPE C 001 


SAIDINGY C 001 
13] SAIDIOER C 001 
SAIDPRNT C 001 


SAIDRBKS C 001 
14) SAIDRECO C 001 
SAIDREDY C 001 


SATDRLON C 001 
15] SAIDRLSE C 001 
SAIDRLUP C 001 


SAIDSYRQ C 001 
16] $AIDTEST C 001 
SATACHER C 001 


SATBATCH C 001 
17) SATCOMON C 001 
SATCREAT C 001 


SATDATA C 001 
18} SATDATAA C 001 
SATERROI C 001 


SATERRO2 C 001 
19] SATERRO3 C 001 
SATERRO4 C 001 


4 YO9/11/81 12/08/81 21: 


28 


#SVAT TCB ATTACH TRANSIENT PAGE 85 O9/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


SATERROS C 001 


D16 


0027 3747 TWAYSTAT EQU 39 ; STATUS SAVE AREA (39-50) 02 
0033 3748 TWAYERPS EQU 51 TAG 51- 1/0 ERP SAVE AREA FOR MSG BUILD 
3749 * 52 TAG 52- RESERVED THRU 59 
003C 3750 TWAYCSMQ EQU 60 TAG 60- CONSOLE SYSLOG MESSAGE QUEUE. 03 
3751 * 119 TAG 119- END OF CONSOLE MESSAGE QUEUE. 


2IK9D RK 


0 
0 
0 
0 
0 
ty, 
0 
0 
, 
0 
0 
a 
o 
oO 
a 
a 
O 
OL 
a 
ie 
iu! 
o 
oc 
oc 
a 
00 
iu! 
oC 
oc 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


*SVAT TCB ATTAC 


ERR LOC OBJECT C 


PAGE 121 VO9/11/81 12/08/81 21:28 


08355000 
08360000 
08370000 
08380000 
08390000 
08425000 
08430000 


9-50) 
OR MSG BUILD 


AGE QUEUE. 


Vv 


IUDPRONG & YUL ru 2Olr 


TCBPRSNR C 001 OOFO 2614 
14 TCBPRSN1 C 001 OOFO 2613 
TCBPRSP C 001 OOFO 2605 
TCBPRSRJ C 001 OOFO 2616 
15] TCBPRSWT C 001 0000 2628 
TCBPRUDH C 001 O0EO 2629 
TCBPRUDL C 001 0080 2637 
16] TCBPRUDM C 001 00D1 2630 
TCBPTRWT C 001 0080 2581 
TCBPUSH C 001 O00B 2645 
TCBQCNT C001 0007 2641 


TCBQWAIT C 001 0008 2571 
O0O0F 


2647 


0020 2674 
0027 2666 
0013 2650 
TCBRWAIT C 001 0004 2575 
TCBSDTAC C 001 0002 2794 


01 


02] SYMBOL 


SAIDATTN C 001 
03} $AIDCLER C 001 
SAIDCMO1 C 001 
S$AIDCMO2 C 001 
04] $arDCMO3 C 001 
$AIDCMO4 C 001 
$AIDCMOS C 001 
05} SAIDCMO6 C 001 
SALDCNO7 C 001 
$AIDCMO8 C 001 
06] $AIDCMO9 C 001 
SAIDCMO C 001 
SATDCMI1 C 001 
$AIDCM2 C 001 
S$AIDCM13 C 001 
$ATDCM4 C O07 
$AIDCML5 C 001 
SAIDCMI6 C 001 
S$AIDCM7 C 001 
09] $A1DCM18 C 001 
SAIDCM19 C 001 
$AIDCHZ0 C 001 
10} $AIDCN21 C 001 
$AIDCM22 C 001 
S$ATOCN23 C 001 
11] $atocra4 c 001 
SAIDENTR C 001 
SAIDGAIJ C 001 
12] SAIDHELP C 001 
SAIDHLPE C 001 
SAIDINGY C 007 
13]$AIDIOER C 001 
SAIDPRNT C 001 
SATDRBKS C 001 
SAIDRECO C 001 
SAIDREDY C 001 
SAIDRLON C O01 
15] SAIDRLSE C 001 
SAIDRLUP C 001 
SAIDSYRQ C 001 
16] SAIDTEST C 001 
SATACHER C 001 
SATBATCH C 001 
SATCOMON C 001 
SATCREAT C 001 
SATOATA C 001 
SATDATAA C 001 
SATERROL C O01 
SATERRO2 C O01 
SATERRO3 C 001 
SATERRO4 C 001 
SATERROS C 001 


0? 


Vv 


18 


1 


T LEN VALUE DEFN 


2646 4355 4358 


2642 


2648 


2677 4301* 4347 4375 4399 4418 4431 


2670 


2649 


2653 4523* 4568* 4599 


REFERENCES 


CROSS-REFERENCE 


E17 


4433 4436 4460 4688 4699” 


4655 


4390 4690 


0231 0232 


0233 


0231 4717 
0250 4528 


4723 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


PAGE 


86 VO9/11/81 12/08/81 21:28 


3763 * 


SWSEQ 


3764 RRR RRR RRR RR RRR RR RRR RR ROR ROR RR RK 


3765 * 
3766 * 


EQUATES FOR WORK STATION VALUES 


x 
x 


IOOTOALU UL OOL 


TCBWSILK C 001 
TCBWSWA C 001 


TCBXWAIT C 001 


01 


02} SYMBOL 


SATERROG C O01 
(03) $ATERRO? C 001 
SATFLAG C 001 
SATFLAG1 C 001 
O41 SATFRPRM C 001 
SATINCJC C 001 
SATINIT C O01 
05] $ATJCBA C 001 
SATLENG C 001 
$ATLOAD C 001 
06] SATMSSIZ C 001 
SATNCNIQ C 001 
SATNONAN C O01 
O7} $ATNRTUB C 001 
SATNSWAP C 001 
$SATPRIOR C 001 
OS} SATPRIV C 001 
SATQKINT C 001 
S$ATREAL C 001 
09} SATRFRSH C 001 
SATSPOOL C 001 
$ATSSSN C O01 
10] $ATSYSTK C 002 
SATTSKID C 001 
SATTUBa C 007 
11] SATTUBAS C 001 
SLOAMID C 001 
$LDDLEN C 001 
12) $LDDLINK C 001 
SLODLOAD C 001 
$LDDRLD C 001 
13/$topss = ¢ 001 
SLODSTRT C 001 
SLODTEXT C 001 
14{SLoDTOT C 001 
SLOFETCH C 001 
SLDMFCHA C 001 
15] SLOMFTCH C 001 
SLOMLOAD C 001 
SLOMSFCH C O01 
16/$LOMSLD C 001 
SLOMSSLD C 001 
SLORELAD C O01 
17] SLOSFTCH C 001 
SLDTOADR C 001 
$TRBDATE C 001 
18} $TRBFLG1 C 001 
STRBFLG2 C 001 
$TRBLEN C O01 
19] STRBTINE C 001 
SWSALARN C 001 
$WSBLCUR C 001 


T LEN VALUE 


#SVAT TCB ATTACH T 


ERR LOC OBJECT CODE 


22 09/11/81 


12/08/81 21:28 


at] Tw s te www VV BNE EVE TA OR A OPIN TMtreQk & VV WAY £00U 
TCBTTIME C 001 0006 2639 2641 -4827* TQEFLNK C001 0007 2888 
TCBTWA C001 0053 2682 2683 TQELEN C 001 0008 2890 
15] TCBTWACL C 001 0004 2747 SITQEMN = C 001 0003 2879 
TCBTWAIT C 001 0004 2559 2563 TQEREAL C001 0010 2865 
TCBUDMPR C 001 0080 2784 TQERSVD1 C001 0020 2864 
16{TCBWAFLG C 001 007A 2797 = 2801 GF TQESDLOG C 001 9004 2880 
TCBWAIT C 001 0080 2542 TQETCB C001 0000 2876 
TCBWAITD C 001 0080 2554 2563 TQETOD C001 0001 2869 
17] TCBWIOSP C 001 0001 2795 4656 4848 7{TQETOX C001 0005 2885 
TCBUMASK C 001 0002 2565 2579 TQETU C001 0002 2868 
TCBUMSK2 C 001 0003 2579 2590 TQETYPF C001 OOF 2883 
18] TCBWSILK C 001 0004 2779 BITQETYPL C001 0004 2882 
TCBWSWA C001 0055 2683 2684 4541* 4542 4550* TQEWAIT C001 0040 2863 
TCBIWAIT C 001 0010 2570 TRALOAD C001 0080 0449 
19]TCBX C001 OO7D 2808 2810 SITRUE C001 0010 0800 
TCBXNTQ C001 0011 2649 2650 TUBSACTV C 001 0080 2991 
TCBXWAIT C 001 0040 2555 TUBSCMPL C 001 0040 2992 
0 PO 
E18 
PAGE 123 VO9/11/81 12/08/81 21:28 hb: 
CROSS-REFERENCE 
O2]SYMBOL T LEN VALUE OEFN REFERENCES 2}SYMBOL T LEN VALUE DEFN 
$ATERRO6 C001 0006 0264 4469 SUSBLDIS C 001 0040 3823 
(13) $ATERRO7 C 001 0007 0265 4540 3] $WSBLINK C 001 0008 3838 
$ATFLAG C001 QO0C 9219 0234 4212 4423 4524 4717 4736 4797 SWSCLMRK C001 0010 3839 
SATFLAG! C 001 0015 0239 0248 4238 4247 4252 4390 4526 4690 4713 4789 4966 SWSERASE C 001 00CO 3819 
O04] SATFRPRM C 001 0001 0230 4212 D4) $WSHIINT C 001 0002 3836 
SATINCJC C 001 0010 0243 $WSNODIS C001 0007 3840 
$ATINIT C001 OOEC 0237 S$USRBLCR C 001 0020 3824 
O5|$ATJCBA C001 0010 0237 4529 4535 $WSRBLDS C 001 0080 3822 
SATLENG C001 0019 0250 4199 4199 4199* 4216 SWSRSMDT C 0Ui 0040 3820 
$ATLOAD C001 000B 0218 0219 4254" 4255 4265* 4277 4788 4798* SUSRSMSG C 001 0002 3828 
06] $ATMSSIZ C 001 000D 0234 0235 4289 4292* 4293 SUSRVING C 001 0001 3835 
SATNCNIQ C OU1 0002 0246 4247 $USSTMSG C001 0001 3829 
SATNONAN C001 0010 0224 0232 SWSUNLOK C 001 0008 3826 
O7|$ATNRTUB C 001 0004 0245 4526 S$WSUNSCR C 001 0004 3837 
SATNSWAP C 001 0002 0229 4423 # C001 0000 0784 
SATPRIOR C 001 0235 «0236 
OS|SATPRIV C 001 0228 = 0231 se C 001 0000 0785 
SATQKINT C 001 0242-4238 #CIML A001 OFFA 5118 
S$ATREAL C001 0040 0221 0231 0232 4797 #SVAT —A.001 +0800 0002 
OS} SATRFRSH C 001 0080 0240 4866 a C 001 0002 0786 
SATSPOOL C 001 0004 0232 ACECHAIN C 001 0001 0077 
$ATSSSN C001 0014 0238 0239 4864 ACECPERR C 001 0010 0089 
10]$ATSYSTK C 001 0008 0244 4789 ACECSCL C001 0000 0085 
S$ATTSKID C 001 0016 0248 0249 4481 ACEIAR C001 0003 0078 
$ATTUBA C001 0010 0236 0237 0238 4547 ACEINUSE C 001 0008 0091 
11]SATTUBAS C 001 0020 0222 0231 4524 ACEIOCHN C 001 0020 0087 
$LOAMID C001 0010 1591 ACELEN C001 0010 0099 
S$LODLEN C001 000C 1579 4788 5109 ACELOG C001 0010 0088 
12] $LODLINK C 001 0005 1573 1574 4255* 4261 4262 ACENAB C001 0005 0079 
S$LDDLOAD C 001 000B 1578 1579 4243* ACEMASK C 001 OOFE 0095 
LODRLD C001 0008 1575 1577 4246" ACENSCL C001 0080 0084 
13/$LDDSS C001 0002 1571 1572 ACEMMAIT C 001 0008 0090 
S$LODSTRT C 001 0007 1574 1575 4244" 4254 4522 ACEPARN] C 001 0006 0080 
SLODTEXT C001 0003 1572 1573 4242* 4276 ACEPARIZ C 001 0007 0081 
14 SLODTOT C001 0009 1577 1578 4245* ACEPARM3 C 001 0008 0082 
$LOFETCH C 001 0004 1589 1600 ACEPRIV C001 0040 0086 
LOMECHA C001 0006 1601 1602 ACEQUIES C 001 0001 0094 
15|$LOMFTCH C 001 0064 1600 1601 ACETCBA C 001 OO0F 0098 
SLOMLOAD C001 0002 1598 1599 ACETYPE C001 0009 0083 
LOMSFCH C001 OOOE 1602 ACEXLOFF C 001 0004 0093 
16]SLOMSLD C001 000A 1599 5103 ACEXR1 C001 000B 0096 
$LOMSSLD C 001 0001 1597 ACEXR2 C001 000D 0097 
SLORELAD C001 0001 1587-1597 ACEY C001 0001 4143 
17] $LDSFTCH C 001 0008 1590 1599 1602 ACE2 C 001 0002 4144 
$LOTOADR C 001 0002 1588 1598 1601 ACSHAD C001 OO1A 0187 
STRBDATE C 001 0000 2836 2638 ACSWBDCH C 001 002C 0147 
18] STRBFLG1 C 001 0000 2830 2832 ACSWCACH C 001 0014 0135 
$TRBFLG2 C 001 0001 2832 2834 ACSWCOMB C001 OOF? 0213 
STRBLEN C001 O00E 2838 ACSWCSCQ C 001 0042 0177 
19/STRBTIME C 001 0007 2834 2836-4751 4752 4753 4754 4755 4756 ACSWCX C001 0013 0200 
SWSALARM C001 0004 3827 ACSWDISK C 001 0060 0145 
0010 3825 ACSWECS C001 OO1F 0212 


SWSBLCUR C 001 


018 


PAGE 87 09/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


ERR LOC OBJECT CODE 


TWO BYTE WRITE CONTROL CHARACTER 


46. 


ADDR 


TQEFLNK C001 0007 2888 2890 
TQELEN C001 0008 2890 4816* 
SITQEMN §=©C 001 0003 2879 15] TUBACN C 001 
TQEREAL C001 0010 2865 4816 
TQERSVD1 C 001 0020 2864 

6] TQESDLOG C 001 004 2880 2882 16] TUBAPRNT C 001 
TQETCB C001 0000 2876 
TQETOD C001 0001 2869 
TITQETOX C001 0005 2885 2888 17] TUBASGND C 001 
TQETU C001 0002 2868 
TQETYPF C 001 OOOF 2883 
SITQETYPL C 001 0004 2882 18] TUBATTRB C 001 
TQEWAIT C001 0040 2863 
a TRALOAD COT 0080 0449 
QITRUE C001 0010 0800 19} TUBATTR2 C 001 
TUBSACTV C 001 0080 2991 


TUBSCMPL C 001 0040 2992 4620 
20) 
£19 
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bi 
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CROSS-REFERENCE 


2]SYMBOL T LEN VALUE DEFN REFERENCES O2/ SYMBOL T LEN VALUE 
ACSWERR C001 0082 
O3/ACSWFD C001 0010 
ACSWEDCA C 001 0089 
ACSWFDCB C 001 0049 
O4| ACSWFDCC C 001 0029 
ACSWFDCD C 001 0019 


SWSBLDIS C 001 0040 3823 
3} $WSBLINK C 001 0008 3838 
SUSCLIRK C001 0010 3839 
SWSERASE C 001 00CO 3819 
SWSHIINT C 001 0002 3836 
SWSNODIS C001 0007 3840 


SWSRBLCR C 001 0020 3824 ACSWFDSA C 001 0040 
PD} $WSRBLDS C 001 0080 3822 OS} ACSWFDSB C 001 0020 
SWSRSMOT C Oui 0040 3820 ACSWFDSC C 001 0088 
SWSRSMSG C 001 0002 3828 ACSWFDSD C 001 0048 
YO] SWSRVIMG C 001 0001 3835 O6}ACSWGP C001 0048 
S$WSSTMSG C001 0001 3829 ACSWHCER C 001 004D 


ACSWIOXE C001 004C 
O7]ACSWIOXN C 001 002C 
ACSWIOCH C 001 0085 
ACSWIOS C001 0045 
OB] ACSWKBTR C 001 O08E 
ACSWLOR C001 0047 


SWSUNLOK C 001 
D7) $WSUNSCR C 001 0004 3837 
C 001 


4372 4809 4809 4809* 4948 4972 4995 5004 5028 5034 5037 5037* 
5049* 5068 5075 


4246 


#SVAT A001 0800 0002 5121 ACSWLOG C001 O04E 
D9} a C 001 9002 0786 OO} ACSWMIIN C 001 004C 
ACECHAIN C001 0001 0077 0078 4614 4626 ACSWMISV C 001 002C 
ACECPERR C 001 0010 0089 ACSW «C001 0087 
NOJACECSCL C 001 0000 0085 1O]ACSWNPRT C 001 0080 
ACEIAR C001 0003 0078 _0079 ACSUPTIN C 001 0028 
ACEINUSE C 001 0008 0091 ACSHPTSV C O01 0041 
NJ ACELOCHN C 001 0020 0087 1IJACSUSPF C001 0080 
ACELEN C001 0010 0099 4585 ACSWSQP C001 0028 
ACELOG C001 0010 0088 ACSUSWAP C 001 0017 
NZ|ACEMAB C001 0005 0079 0080 12]ACSWIMR C 001 0024 
ACEMASK C 001 OOFE 0095 ACSWIR C001 002E 
= ACEMSCL C 001 0080 0084 4604 ACSWTWA C001 0027 
13) ACEMWAIT C 001 0008 0090 TB] ACSWWSCH C 001 0084 
ACEPARMI C 001 0006 0080 0081 ACSIMSTS C 001 002F 
ACEPARN2 C 001 0007 0081 0082 ACSWSVC C001 0044 
4) ACEPARM3 C 001 0008 0082 0083 14] ACSUXTST C 001 O04F 
ACEPRIV C001 0040 0086 4604 ADACTIVE C 001 0004 
ACEQUIES C 001 0001 0094 ADCDMPRQ C 001 0001 
5|ACETCBA C 001 OOOF 0098 0099 4588" 4598 4602 4602 4602* 4621 15] ADCFOUND C 001 0002 
ACETYPE C001 0009 0083 0096 4604" ADCMATCH C 001 0010 
ACEXLOFF C 001 0004 0093 4604 ADCREAL C 001 0040 
NGIACEXR1 C001 O00B 0096 0097 4603" 4629 16] ADCRESET C 001 OOFC 
ACEXR2 C001 0000 0097 0098 ADCTASK C 001 0080 
ACEL = «€ 001 0001-4143 «4588 «4591 4597 4598 4602 4602 4603 4604 4621 4629 ADCTBF C001 0004 
7] ACE2 C 001 0002 4144 © 4591* 4597 17}ADCTBN C001 0008 
ACSWAD C001 OOIA 0187 ADCVERFY C 001 0020 
ACSWBOCH C 001 002C 0147 ADEXIT C 001 0080 
BIACSWCACH C 001 0014 0135 18] ADINQURY C 001 0020 
ACSWCOMB C001 OOF? 0213 ADITRMOD C 001 0002 
: ACSWCSCQ C 001 0042 0177 ADRSTOMP C 001 0020 
NO|ACSWCX C001 0013 0200 19] ADSCO960 C 001 040 
ACSWDISK C 001 0060 0145 ADSTOPN C 001 0080 
ACSWECS C001 OO1F 0212 ADSTPMOD C 001 0001 

“y 20 

019 
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#SVAT TCB ATTACH | 
D1 1 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


D 3864 * no RESERVED 
3865 * m1 SIGNED NUMERIC 
3866 * — ~FD—=OO AUTO ENTER WHEN FIELD 15 EXITED 
D3 3867 * 1 FIELD EXIT REQUIRED 
eee 3868 * 2 FORCE_UPPERCASE_ALPHA 
3869 * 3 RESERVED 


8nIn * MANMATODV CNTCO 


D 


ee ge ee Ce ee, Se ae tad at 


15}TUBACN C001 0040 3220 3629 15] TUBCMOD C 001 
TUBAID C001 0025 3209 3210 
= TUBALRM C 001 0080 3315 
16] TUBAPRNT C 001 003E 3295 3296 3676 16} TUBCNSK2 C 001 
TUBASENT C 001 0020 3317 
TUBASGNA C 001 0043 3300 3302 
17] TUBASGND C 001 0004 2996 17] TUBCOMPL C 001 
TUBASGNL C 001 0041 3299 — 3300 
TUBATTRA C 001 0054 3385 3396 
18] TUBATTRB C 001 0058 3399 3409 18} TUBCTSAV C 001 
TUBATTRC C 001 O05B 3411 — 3422 TUBDATAA C 001 0007 3039 3040 
TUBATTR1 C 001 0035 3217 3228 3628 TUBDEVIC C 001 0003” 3025 
19]TUBATTR2 C 001 0036 3228 3250 3637 JO} TUBDEVID C 001 0014 3157 3165 
TUBATTR3 C 001 0037 3250 3261 3643 4605 4619* TUBDEXTA C 001 0053 3381 3385 
—— TUBATTR4 C 001 0038 3261 3272 3651 4658 TUBDGTUB C 001 


E20 
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09/11/81 12/08/81 21:28 


01 


CROSS-REFERENCE 


Q2}SYMBOL T LEN VALUE DEFN — REFI 


G2] SYMBOL 1 LEN VALUE DEFN — REFERENCES 


ADSTPTSK C 001 0010 0440 
O3)/ADSYSDMP C 001 0040 0422 


ACSWERR C€ 001 0082 0176 
O3/ACSWFD «C001 0010 0131 


ACSWFOCA C 001 0089 0163 ADTRACE C 001 0010 0424 
ACSWFDCB C 001 0049 0164 ADWAITNG C 001 0008 0426 
O4}ACSWFOCC C 001 0029 0165 O4AFINPROG C 001 0040 0472 


ACSWEDCD C 001 0019 0166 ALCON3 A002 OF88 5077 —_506¢ 


ACSWFDSA C 001 0040 0129 0145 ALLBIT C 001 OOFF 0808 
OSJACSWFDSB C 001 0020 0130 0145 OS}ALLOC = A001 ~OFE2 5017 446 
ACSWFDSC C001 0088 0136 ALLOHIGH C 001 0000 4165 —416¢ 
ALLONEXT C 001 0002 4167 


ACSWFDSD C 001 0048 0137 


O6JACSWEP C001 0048 0206 QGJALLOSIZE C 001 0001 4166 4167 
ACSWHCER C001 0040 0168 ALLOOO05 A 004 OFE9 5021 5061 
ACSWIOXT C O01 004C 0141 0149 ALLOOO1O A004 OEED 5022 5057 

O7}ACSWIOXN C 001 002C 0142 0147 0148 O7}ALLO0015 A 004 OFOS 5028 5025 
ACSWIOCH C 001 0085 0159 ALLO0020 A 003 OF13 5032 5024 
ACSWIOS C O01 0045 0160 CO Sar gee age rn ALLOOO30 A005 OFI6 5033 5045 

OBJ ACSWKBTR C 001 O08E 0188 08] ALLO0040 A 003 OFIB 5034 5032 
ACSWLDR C001 0047 0202 ALLO0045 A 005 OF25 5037 5026 
ACSWLOG C001 OO04E 0189 ALLO005O A 004 OF31 5040 5035 

OOVACSWMIIN C 001 004C 0149 09] ALLO0060 A 003 OF35 5041 5040 
ACSWHISV C001 0020 0148 ALLO0070 A 004 OF3F 5044 — 5039 

oe ACSW: ~=C O01 0087 0201 ALLOOO75 A 005 OF50 5049 5027 

O}ACSWNPRT C 001 008D 0167 JO}ALLOOO80 A 003 OF7A 5067 5043 

ACSWPTIN C 001 0028 0138 ALMONE A002 OF8A 5078 — 4990 


ALSAVE A035 OFAD 5079 5029 
1YALSIZ =A 001 ~OF82 5074 = 5031 


ACSWPTSV C 001 0041 0156 
11JACSWSMF C001 0080 0128 


ACSWSQP C001 002B 0207 ALSSS A005 OFEO 5008 4476 
ACSWSWAP C001 0017 0204 4858 ALSSSE A 002 OF86 5076 5023 
12]ACSWTMR C001 0024 0134 12] ARR C001 0008 0779 4556 
ACSWTR C001 002E 0190 ASGNERR C001 0080 0471 
ACSWTWA C001 0027 0203 ASGNFAIL C 001 0080 0503 
13] ACSWWSCH C 001 0084 0132 13] ASGNPAGE C 001 0010 0474 
ACSIMSTS C001 002F 0211 ASGNRTRY C 001 OOF 0476 
ACSIWSVC C001 0044 013 4635 ASGNSEQ C 001 0020 0473 
14] ACSWKTST C 001 O04F 0210 14}ASGNWATR C 001 0008 0475 
ADACTIVE C 001 0004 0427 ATALLSZ A003 OFDC 5005 4694) 
ADCOMPRQ C001 0001 0652 ATALSIZ A001 OF81 5073 4478 
15/ADCFOUND C 001 0002 0651 5] ATCONONE A 001 OFBA 5088 4286 
ADCMATCH C 001 0010 0648 0655 ATCONS A001 OFB5 5085 5087 
ADCREAL C001 0040 0646 0655 ATCXOB00 A 001 OFB6 5087 4287 
16] ADCRESET C 001 OOFC 0655 16JATERROR A001 O£12 4916 4231 
ADCTASK C 001 0080 0645 0655 ATEOO30 A 003 0£32 4925 4922 
ADCTBF C001 0004 0650 0655 ATEOO5O A 003 0641 4940 4926 
17} ADCTBN C001 0008 0649 0655 17}ATE006O A 004 OF4A 4946 ©4919 
ADCVERFY C 001 0020 0647 0655 ATEOO70 A 004 053 4948 49477 
ADEXIT C001 0080 0421 ATMAP =~ 002 ~OFBO 5082 4808 
18] ADINQURY C 001 0020 0423 18/ATMCDED A001 OFD2 5110 5111 
ADITRMOD C 001 0002 0428 ATMCODE A001 OFBF 5101 47887 
ADRSTOMP C O01 0020 0437 ATMLEN C001 0013 5111 4814 
19] ADSCO960 C 001 040 0436 19JATMOFF C001 0007 5108 47887 
ADSTOPN C 001 0080 0435 ATMPRN A001 OFC6 5107 5108 
ADSTPMOD C 001 0001 0429 ATPNRL =A 002 OFB4 5084 4521 
0 0 


020 
#SVAT TCB ATTACH TRANSIENT PAGE 89 09/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


3889 * WSPL 


3891 * 


3892 * PARAMETER LIST EQUATES FOR 
3893 * SYSTEM REQUESTS TO WORK STATION DATA MANAGEMENT 
3894 * 


16] TUBCMSK2 C 001 O04F 3353 3362 
TUBCNSK3 C 001 0050 3362 3371 
TUBCOMON C 001 0024 3199 3209 3431 

17} TUBCOMPL C 001 0001 2989 3001 3514 4610* 4620* 
TUBCOUNT C 001 0009 3040 3042 3148 
TUBCPAID C 001 0026 3210 3211 

18] TUBCTSAV C 001 003C 3294 3295 
TUBDATAa C 001 0007 3039 3040 
TUBDEVIC C 001 0003 3025 

19] TUBDEVID C 001 0014 3157 3165 
TUBDEXTA C 001 0053 3381 3385 
TUBDGTUB C001 0058 3409 3411 

20 


£21 
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01 


CROSS-REFERENCE 


02)}SYMBOL T LEN VALUE DEFN REFERENCES T LEN VALUE 


ADSTPTSK C 001 0010 0440 
03/ADSYSDMP C C01 0040 0422 
ADTRACE C001 0010 0424 
ADWATTNG C O01 0008 0426 
AFINPROG C 001 0040 0472 
ALCON3 A 002 OF88 5077 5066 


ALLBIT C001 OOFF 0808 
O5J]ALLOC A001 OFE2 5017 4466 4537 4700 
ALLOHIGH C 001 0000 4165 4166 


ALLONEXT C 001 0002 4167 
OG6JALLOSIZE C 001 0001 4166 4167 
ALLO0005 A 004 OEE9 5021 5061 
ALLOOO10 A 004 OEED 5022 5052 
O7}/ALLO0015 A 004 OFOS 5028 5025" 

ALLO0020 A 003 0F13 5032 5024 5042 5047 5048 
ALLOO030 A 005 OF16 5033 5045 
08] ALLO0040 A 003 OFIB 5034 5032" 5040 5044 5044* 
ALLO0045 A 005 0F25 5037 — 5026* 5029* 
ALLOOOSO A 004 OF31 5040 5035 
09] ALLO0060 A 003 OF35 5041 5040" 
ALLOOO70 A 004 OF3F 5044 5039 
=, ALLOOO75 A 005 OF50 5049 5027* 5030* 
10] ALLOOO80 A 003 OF7A 5067 5043 

ALMONE A 002 OF8A 5078 4990 5046 

ALSAVE A035 OFAD 5079  5028* 5037 5049 
LYALSIZ A001 -OF82 5074 ~—-5031* 5038* 5042" 

ALSSS A005 OEEO 5008 4476 4541 4706 4826" 4827 5023 5036* 

ALSSSE A 002 OF86 5076 — 5023* 5033* 5036 
12) ARR C001 0008 0779  4556* 4563 4917 4963 4981 5020 

ASGNERR C001 0080 0471 

ASGNFAIL C 001 0080 0503 
J3]ASGNPAGE C 001 0010 0474 

ASGNRTRY C 001 OOOF 0476 

ASGNSEQ C 001 0020 0473 
14] ASGNWATR C 001 0008 0475 

ATALLS2 A 003 OEDC 5005 — 4694% 4697* 4923% 4985 4996* 

ATALSIZ A O01 OFB1 5073 4478 4536* 4694 4964% 4969* 5031 5038 5054 5060* 5065 
T5|ATCONONE A 001 OFBA 5088 4286 4354 4488 4600 4759 4778 4805 4969 

ATCONS A001 OFBS 5085 5087 

ATCXO800 A 001 OFB6 5087 4287 
JOJATERROR A001 OE12 4916 4231 4420 4447 4455 4468 4513 4539 

ATEOO30 A003 0F32 4925 4922 

ATEOO5O A 003 OF41 4940 4926 
17/ATEO060 A004 OE4A 4946 ©4919 

ATEOO70 A 004 0F53 4948 4947" 

ATMAP =A002 OFBO 5082 4808 
IS|]ATMCDED A001 OFD2 5110 5111 

ATMCODE A 001 OFBF 5101 4788" 4814 5108 5111 

ATMLEN C001 0013 5111 4814 4814 4914* 
19]ATMOFF C001 0007 5108  4788% 4919 

ATMPRN A001 OFC6 5107 5108 

ATPMRL =A 002 OFB4 5084 4521 
0 


021 
PAGE 89 09/11/81 12/08/81 21:28 *SVAT TCB ATTACH TRANSIENT PAGE 90 09/11/81 12/08/81 21:28 
0 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
3938 * 
0003 3940 WDOPC EQU = WDOPR+1 EXTERNAL OP-CODE 
0001 3942 WGET  EQU xX‘O1' INPUT OPERATION 
0002 3943 WPUT  EQU§ xX‘02' OUTPUT OPERATION 
0003 3944 WOPTG = EQU WOGET+WDPUT PUT THEN GET OPERATION 
0004 3945 WONOW EQ X'04' NO WAIT REQUEST 


0005 3946 WINV EQU WOGETHNDNOW INVITE INPUT OPERATION 


TUBLOP C001 0020 3276 
TUBLTOFF C001 0040 3316 


16] TUBMBDCF C 001 0010 3288 
TUBMCMD C001 0020 3240 
TUBMCN C001 0080 3219 


17 


VO9/11/81 12/08/81 21:28 
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TUBMCNSL C 001 0040 3238 


TUBMCOUT C 001 0004 3393 
TUBMDATA C 001 0010 3241 
18] TUBMODTA C 001 0010 3318 


TUBMONE C901 0070 3242 
TUBMENUA C 001 0008 3245 
TUBNENU2 C 001 0020 3331 
TUBMHELP C 001 0004 3419 
TUBMHOLD C 001 0010 3389 


a 
E22 
PAGE 127 VO9/11/81 12/08/81 21:28 
CROSS-REFERENCE 


ATPMRR A002 OFB2 5083 


ATRI C 001 0001 4151 


01 
02} SYMBOL = T LEN VALUE DEFN 
03 


ATR2 C 001 0002 4152 


ATSSN =A 001 OFD2 5112 


O4)ATSVABYT A 005 OEE] 5010 
ATSVACEA C 001 0031 4168 


ATSVARRA C 001 003C 4173 


OS] ATSVCHAN A 005 OEDE 5009 


ATSVELM A 005 OEE] 5006 


ATSVRBA C001 0033 4169 


O6]ATSVSCA C001 0035 4170 
ATSVSIZE C 001 0030 4174 
ATSVSSSA C 001 0038 4171 


O7|ATSVSSVL A 005 OEEO 
ATSWSsa C001 003A 
ATSVOIO A 003 0080 

OSJATTCB A002 OF84 


ATZERO A004 OFB9 
9} ATOOAZ42 A 006 OA5B 


10] ATOOA365 A 003 ODIC 
ATOOB242 A 004 OAG6C 
ATOOC242 A 005 OA70 

11{AT000242 A 003 OA88 
AT000005 A 003 0834 
ATO00010 A 004 084A 

12]AT000020 A 004 088D 


14{AT000110 A 005 O91F 
AT000120 A 005 094C 
AT000125 A 003 095 
15]AT000130 A 004 0975 
AT000135 A 003 0980 
ATO00140 A 004 098A 
16] AT000150 A 003 O98E 


AT000195 A 004 0908 


AT000205 A 003 09E4 


AT000230 A 003 OAID 


ERR LOC OBJECT CODE 


5007 
4172 
4843 
5075 


5086 
4488 
4536 
4576 
4795 
4495 


3659 


3640 


REFERENCES 


4815 


4864* 4902 4906 


4991" 5024* 5025 5026 5027 5047* 


4169 
4174 


4993 5018 5019 5050 5051 
4983" 5007 5009 5010 5022* 
4170 4516* 4670 4925 4927 


4171 
5054* 5060 


4172 4477* 4478* 4921 4923 


4985 4987* 5008 
4173 4542* 
4846 


4228" 4523 4676" 4691 4716 4748* 4757 4769* 4855* 4865 4873* 4879 
4918 4920 5003 5053 5059* 5067 


4229 4511 4902 4921 
4497 


4346 4351 4353. 4374 4377 


4395 4415 


4432 4434 


ADDR STMT SOURCE STATEMENT 


OOF8 3990 WOAEOJ  EQU 
OOFF 3991 WOASFL  EQU 
O00B 3992 WOSTMR EQU 


0005 3994 WOOUTL EQU WOPC+2 
0005 3995 WOEFFL EQU WOOUTL 

0007 3996 WORECA EQU  WEFFL+2 
EQU = WORECA+2 


0009 3997 WOTUB 


ae Mt yt Ny toe 


022 


91 09/11/81 12/08/81 21:28 


X'F8" 
X'FF* 
X'OB 


ABNORMAL END OF JOB 
ICSSQS ASSIGN FAILURE 
SET TIMER 


OUTPUT LENGTH 
EFFECTIVE INPUT LENGTH 
RECORD AREA ADDRESS 


TUB ADDRESS 


TUBRDYIP C 001 
17] TUBRDYPD C 001 
TUBREADY C 001 


18] TUBREXEC C 001 
TUBRFCSS C_001 


TUBRFN = C 001 
TUBRFSS C 001 


Q2|synBol = T LEN VALUE 


AT000240 A 004 OA28 
03}AT000242 A 005 OA3C 
AT000243 A 004 OAID 
AT000244 A 003 OfD0 
04] AT000245 A 005 OAEA 
AT000247 A 003 OAr? 
AT000248 A 003 0827 
05} AT000249 A 003 OB4F 
AT000250 A 004 0855 
AT000259 A 003 0878 
06] AT000260 A 003 OBAO 
AT000265 A 003 OBA 
{AT000270 A 003 OBBS 
07|AT000283 A 003 OBDE 
AT000285 A 003 OBF3 
AT000287 A 003 OCO8 
08} AT000290 A 003 OCOB 
AT000293 A 004 OC5A 
7000294 A 003 0C63 
09} AT000295 A 004 0C7B 
AT000350 A 004 0C94 
AT000360 A 004 OCD6 
10}AT000365 A 004 0007 
ATO00366 A 005 0049 
AT000367 A 003 OD4E 
11} AT000369 A 003 00A3 
AT000370 A 004 ODC6 
AT000380 A 003 ~ 
12)BAS1 C01 0001 


13 


BAS2 C 001 0002 
14 


BATCOUNT C 001 0005 

BITO C 001 0080 

15]81T1 C 001 0040 

BIT2 C 001 0020 

BIT3 C 001 0010 

16]BIT4 C 001 0008 
C 001 


TUBREL C001 0004 3279 


TUBRFDSP C 001 004) 3342 


BSBA fA Sirs esianse slip en x 


S384 Bu4e size 


ae 


NR a ial i Rs al a ia i I a Sd 


TUBRAMER C001 0001 3421 
TUBRCBK C001 0004 3378 


16] TUBRCNCL C 001 0083 3022 


17} TUBROYPD C 001 0001 3336 


TUBROMOD C 001 0001 3395 
TUBRDYIP C 001 0001 3311 


18] TUBREXEC C 001 0080 3020 


19 


AGE 


4879 


127, VO9/11/81 


12/08/81 21:28 


PAGE 


91 VO9/11/81 12/08/81 21:28 


TUBRFCSS C 001 004C 3341 
TUBRFDSP C 001 004) 3342 
TUBRFN C001 0048 3340 
TUBRFSS C 001 004A 3339 


02] SYMBOL 


AT000243 A 004 OAD 4515 


AT000244 A 003 OFDO 4529 


O04) ATO00245 A 005 CAEA 4541 
AT000247 A 003 OAT? 4547 


AT000250 A 004 0855 4588 
AT000259 A 003 OB78 4601 
AT000260 A 003 OBAD 4618 
AT000265 A 003 OBA9 4621 


07}AT000283 A 003 OBDE 4651 
AT000285 A 003 OBF3 4658 
ATO00287 A 003 OCO8 4668 
08] AT000290 A 003 OCOB 4669 
AT000293 A 004 OC5A 4704 


T LEN VALUE DEFN 


AT000248 A 003 0827 4565 
05]AT000249 A 003 OB4F 4584 
06 


AT000270 A 003 OBB 4630 4617 


eee: 


3660 
4607 
3342 
3344 
3341 
3340 


TUBRITSU C 001 0004 3008 


£23 


PAGE 128 V09/11/81 


CROSS-REFERENCE 


REFERENCES 


4512 
4527 
4538 
4525 
4553 
4570 


4590 
4606 
4609 
4643 
4653 
4631 4659 


4543 4564 4577 
4701 


AT000294 A 003 0C63 4708 4692 


09} AT000295 A 004 OC7B 4716 
4733 
AT000360 A 004 OCD6 4758 


10]AT000365 A 004 0007 4785 


AT000350 A 004 0094 


ATO00366 A 005 0049 4809 4804" 4805* 4806 


AT000367 A 003 OD4E 4810 
11)AT000369 A 003 ODA3 4857 
AT000370 A 004 ODC6 4873 


Cor: 0001 4155 


BAS2 C001 0002 4156 
14 

BATCOUNT C 001 0005 2785 

BITO ~~ C 001 +0080 0809 
15/8171 C001 +0040 0810 

BIT2 C001 0020 0811 

BITS CC O01 0010 O8i2 
16{BIT4 C001 0008 0813 

BIT5 C001 0004 0814 


BIT6 C001 0002 0815 

C 001 0001 0816 

C 001 0040 0788 

C 001 0001 4161 

18} BUF2 C 001 0002 4162 
cD C001 0001 4137 


4710 4714 
4718 

4737 

4771 4773 4775 4777 


4806* 4807 4807* 4803* 


oe eee ee ee 


12/08/81 21:28 
01 


02] SYMBOL 


CSB2 
03) CSCALL 
DARTNC 
DARTN] 
04] DARTN2 
DARTN3 
DARTN4 
05] DARTNS 
DBRTNC 
DBRTN1 
06} DBRTN2 
DBRTN3 
DBRTN4 
07} DBRTNS 
DBRTN6 
DBRTN7 
08} DCRTNC 
DCRTNH 
DCRTNI 
OO/DCRTN2 C 001 
DEALLOC A 001 
DEQUEUE C 001 
1O}DETACH C 001 
DE000010 A 004 


4799 
4849 


4869 4954 


4901 
5018 
3027 
5038 
5048 
5066 
4979 
4991 


4903 
5019* 5020 
5027 5028 


4989 4990 


4980* 4981 
4991 4992 


C001 0002 4138 


19} CP1 C 001 0001 4133 
CP2 C 001 0002 4134 
C001 0001 4141 


ERR LOC OBJECT CODE 


PAGE 
ADDR STMT SOURCE STATEMENT 


4028 * XNTEQ 


4029 KAAKRERRERERERAAARRE RARER RERRERAK RARER ER RAEARRER RARER IR IIR III IIR, 
4030 RAKKRARKARAKRAAAARARAARKAARAAARARAAAK KARA RRA RKARERRARRARK AER AAR RAR RIK 
4031 ** MAIN STORAGE TRANSIENT AND TRANSFER CONTROL RIB EQUATES ag 
4032 RERKRARARAARERKE RAR AERA ARR AER RRA KARA RARER ARERR ERE RII III III, 
4033 RRRERARERARARRRAARRRARAKRARERRARKRAARAR AA KKKAA RRA ARAKAK KAR AKAAEKKA AAR 


CG 35 RRAERARKAAREARAKRARRARARARAKRARRARARKHRERARAARAARRAKAKKKKAKAAA KK EKA AR IKK 


DMERI8 = C 001 
18} OMPIKPRG C 001 
DMPROTCT C 001 
OMPSUSAC C 001 
19}/DSABL C 001 
OSPADACT C 001 
DSPERPND C 001 
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T LEN VALUE 
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RA RRA 
RAR RAR K 

Rn 
RAR ARR 


TOP TUBUNT Ta C001 0005 30338 
TUBUSER C 001 OO2F 3212 
TUBUSSV C001 0040 3286 

16} TUBUSUP C 001 0080 3285 
TUBWSID C 001 0020 3194 
TUBWSWA C001 0022 3195 

17] TUBOILGJ C 001 0080 3413 
TUBORMFL C001 0020 3415 
TUBOUNGJ C 001 0040 3414 

18] TUB] C 001 0001 4157 


TUBIOPT C 001 0002 3420 
TUB2 C 001 0002 4158 


02 T LEN VALUE DEFN 


SYMBOL 


CSB2 
CSCALL 


C001 0002 4142 
C 001 0080 2477 
DARTNC C001 0020 1185 
DARTN] C001 0021 1186 
DARTN2 C001 0022 1187 
DARTN3 C001 0023 1188 
DARTN4 C001 0024 1189 
DARTNS C001 0025 1190 
DBRTNC C001 0000 1163 
DBRTN] C001 0001 1164 
DBRTN2 C001 0002 1165 
DBRTN3 C001 0003 1166 
DBRTN4 C001 0004 1167 
DBRTNS C001 0005 1168 
DBRTN6 C001 0006 1169 
DBRTN? C001 0007 1170 
DCRTNC C001 0060 1176 
DCRTNH C001 _O0E0 1179 
OCRTNI C001 0061 1177 
DCRTN2 C001 0062 1178 
DEALLOC A001 OESF 4978 
DEQUEUE C001 0020 1053 
1O|DETACH C001 OOFF 4164 
DEOO0010 A 004 0E9A 4983 
DE000020 A 003 OESE 4984 
11]DE000030 A 004 OEAl 4985 
DEQ00040 A 004 OEAD 4988 
DE000050 A 003 OEC4 4995 
C001 00E1 1194 
C001 O0E2 1195 
C001 00E3 1196 
C001 004 1197 
C001 Q0E5 1198 
C001 O0E6 1199 
C 001 O00E7 1200 
C001 00E8 1201 
1202 


03 


04 


05 


06 


07 


08 


DMERR2 
OMERR3 


OMERRS 
DMERRO 


DMER11 
DNERI2 


OMPROTCT C 001 
DMPSUSAC C 001 0020 0355 
C 001 0080 0823 
OSPADACT C 001 0010 0407 
DSPERPND C 001 


3039 | TWAPXLAT C 001 3731 
3213 3623 TWAGET C001 0000 3698 
3668 TWALOAD C001 00800451 
3667 6{TWAPUT C001 0001 3697 
3195 3616 TWAREAL C001 0040 3702 
3196 3617 4550 TWASYS C001 0002 3699 
7|TWATWA =C 001 0000 3701 
TWAWSHWA C001 0004 3700 
TWAXLATE C001 0000 3703 
8] TWAXLEN C001 0008 3760 
TWAXMAP C001 0002 3755 
4547* 4548 4549 4550 4551 4552 4554 4554 4555 4558 4568 4569 TWAXMAPL C 001 0003 3756 
4571 4572 4574 4575 4576 4588 4589 4599 4600 4601 4603 4605 QITWAXN C001 0007 3759 
4607 4608 4610 4618 4619 4620 4629" 4630 4651 4652 4654 4655 TWAXNEXT C001 0004 3757 
TWAXSS C001 0006 3758 
DOI 
E24 
01 
CROSS-REFERENCE 
REFERENCES 02] SYMBOL 1 LEN VALUE DEFN 
DSPEXAM C001 0001 0411 
03] DSPFCUR C001 0008 0408 
1186 DSPHOLD C001 0002 0410 
1187 DSPRGRST C 001 0040 0405 
1188 (04) OTF C 001 0002 0782 
1189 DIACCNTL C 001 0075 0643 
1190 DIACEIAR C 001 0064 0598 
Q5/DIACEIOB C 001 0068 0603 
1164 DIACEMAB C 001 0065 0599 
1165 DIACEPLA C 001 0069 0605 
1166 106] DIACETCB C 001 006A 0606 
1167 DIACEXR1 C 001 0068 0602 
1168 4557 DIACEXR2 C 001 0069 0604 
1169 (O7|D1ACE12 C 001 0066 0600 
1170 DIACE34 C001 0067 0601 
DIACTSKa C 001 0074 0642 
1177 OS] DIACVERA C 001 0023 0397 
1194 DIACVERD C 001 0073 0641 
1178 DIADCNTL C 001 0025 0417 
09] DIAQEWRK C 001 0040 0546 
4699 4924 DIARR C001 0058 0568 
DIASRFLG C 001 0027 0470 
1O|DIASRTQE C 001 004C 0545 
4979 4980 4994 DIASSAVA C 001 0009 0321 
4991 4992 4996 DICSDUMP C 001 0054 0559 
4989 11[DICSIZE C001 0010 0344 
4997 DICURAQE C 001 004B 0544 
4984* 4986 4988 4988" DICURJCB C 001 003E 0524 
1195 12|D1CURTCB C 001 0044 0534 
1196 DICURTRB C 001 0055 0560 
1197 DICURXNT C 001 0053 0558 
1198 13] D1CURX28 C 001 000B 0323 
1199 DIDSKTAB C 001 0000 0314 
1200 DIDSKTBL C 001 0004 0315 
1201 14{DIDSPFLG C 001 0024 0402 
1202 DIDSPTCB C 001 003D 0523 
1203 DIDSTIME C 001 0070 0625 
15]D1DSTQE C 001 002F 0490 
DIENDA C001 0076 0662 
DIERRACE C 001 O01B 0386 
16|DIERRMIC C 001 0019 0384 
DIERRTCB C 001 001A 0385 
DIFRCTCB C 001 003C 0522 
17{DIFREEPT C 001 0020 0488 
DIGPFLAG C 001 0036 0501 
DIHCSTGa C O01 0071 0633 
18{DiHCSTGD C 001 0072 0635 
DIHPCSDA C 001 0060 0580 
DIHPCSTK C 001 0061 0591 
4200 19/D1HPSTK C 001 0062 0592 
DIIAR C001 0059 0569 
0043 (0533 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


ADDK STMT SOURCE STATEMENT 


0010 4081 RCPERR EQU xX'1D' 
OO1E 4082 RTTC EQU X'IE' 
OO1F 4083 RCPTC = EQU X'IF' 
0020 4084 RSETX EQU  X'20' 
0021 4085 RWB EQUCX'21' 
0022 4086 RSWWR §=EQU X'22' 
0023 4087 RWODG =EQU X'23' 
0024 4088 RWOAF  EQU X'24' 


DLIARS = C 001 
0 


024 
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COMMAND PROCESSOR 1/0 ERROR 
TASK-TASK COMMUNICATONS 
COMMAND PROCESSOR TASK-TASK 
SET EXIT 

WSDM_TRANS IENT 


Pa oe, eee ee 


ODO OO OlOD [A Olo a ala an 


Uwrmiwoon & UL WILD of 


40 
TWAMISSS C 001 002) 3724 
TWASXLAT C 001 0038 3731 
TWAGET C001 0000 3698 
TWALOAD C 001 0080 0451 
TWAPUT C001 0001 3697 
TWAREAL C001 0040 3702 
TWASYS C001 0002 3699 
TWATWA C001 0000 3701 
TWAWSWA C 001 0004 3700 


TWAXLATE C 001 0000 3703 
8] TWAXLEN C 001 0008 3760 


n5} 


n6 


1? 


3757 4983 4983 5022 5022 


3759 
3757 
C 001 0006 3758 


£25 
PAGE 130 VO9/11/81 12/08/81 21:28 
01 
CROSS-REFERENCE 


3760 4983 4983 5022 5022 
3758 
3759 


5 
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01 


DSPEXAN C001 0001 O41] DLILSPCR C 001 O05F 057! 
(03) DSPFCUR C 001 0008 0408 (03) D1TL5WRK C 001 0041 0531 
DSPHOLD C001 0002 0410 DIINDR] C001 0010 034’ 
DSPRGRST C 001 0040 0405 DIINLI12 C 001 005C 057; 
DIF C 001 0002 0782 Q4)DLINL34 C001 005) 057: 
DIACCNTL C 001 0075 0643 0662 DIIPIOBa C 001 0039 0514 
DIACEIAR C 001 0064 0598 0599 DITOLDAR C 001 0000 0325 
05] DIACEIOB C 001 0068 0603 0604 Q5/DILATRA C001 0014 0375 
DIACEMAB C 001 0065 0599 0600 DILDACEA C 001 0046 053¢ 
DIACEPLA C 001 0069 0605 DILDIOBA C 001 0034 0495 
06] DIACETCB C 001 006A 0606 0611 06|DILDLINK C 001 OO1F 0392 
DIACEXR1 C 001 0068 0602 0603 DILDLOAD C 001 0022 0395 
DIACEXR2 C 001 0069 0604 0605 0606 DILDRTOT C 001 0021 0394 
O7JDIACE12 C001 0066 0600 0601 O7|DILDSN C001 OO1E 0391 
DIACE34 C001 0067 0601 0602 DILDSS C001 001D 0390 
DIACTSKA C 001 0074 0642 0643 DILDSTRT C 001 0020 0393 
OS} DIACVERA C 001 0023 0397 0402 08] DILDTCBa C 001 0048 0539 
DIACVERD C 001 0073 0641 0642 DILOGLIM C 001 004A 0543 
DIADCNTL C 001 0025 0417 0447 DILOGPT C00) 0049 0540 
OO DIAQEWRK C 001 004) 0546 0547 QO|DILOGSIZ C 00: 0051 0556 
DIARR C001 0058 0568 0569 DILOGSS C001 0050 0555 
DIASRFLG C 001 0027 0470 0479 DILOGSSH C 001 O04F 0552 
LOJDIASRTQE C 001 O04C 0545 0546 10/DILOGUSD C 001 0052 0557 
DIASSAVA C001 0009 0321 0322 DIMNTQE C 001 0031 0492 
DICSDUMP C 001 0054 0559 0560 DIMPIOBA C001 0034 0495 
1I/DICSIZE C001 0010 0344 11/DIMSATRS C 001 002C 0487 
DICURAQE C001 0048 0544 0545 DIMSIZE C001 OOOF 0338 
DICURJCB C001 003E 0524 0525 DIMKACEA C 001 0033 0494 
12|D1CURTCB C 001 0044 0534 0535 12|D1MXIOBa C 001 0034 0498 
DICURTRB C 001 0055 0560 0561 0566 DIMXNTPT C 001 002E 0489 
DICURXNT C001 0053 0558 0559 DINUXNTO C 001 0000 0305 
13} D1CURK28 C 001 000B 0323 0324 13]DINUXNT1 C 001 0001 0306 
DIDSKTAB C 001 0000 0314 DINUXNT2 C 001 0002 0307 
DIDSKTBL C 001 0004 0315 DINUXNT3 C 001 0003 0308 
14/DIDSPFLG C 001 0024 0402 0417 14] DINUXNT4 C 001 0004 0309 
DIDSPTCB C 001 0030 0523 0524 DINUXNT5 C 001 0005 0310 
DIDSTIME C 001 0070 0625 0633 4824 DINUXNT6 C O01 0006 0311 
]5]DIDSTQE C001 O02F 0490 0491 15|DINUXNT? C 001 0007 0312 
DIENDA C001 0076 0662 DIPGFULL C 001 0080 0336 
DIERRACE C 001 OO1B 0386 0387 DIPMRPSR C 001 005A 0570 
J6{DIERRMIC C 001 0019 0384 0385 16|DIPREVRB C 001 0055 0561 
DIERRTCB C 001 OO1A 0385 0386 DIQHSAVE C 001 0038 0513 
DIFRCTCB C 001 003C 0522 0523 DIQSAVE C 001 O04E 0547 
17} DIFREEPT C 001 0020 0488 0489 17/D1QUEUE@ C 001 003F 0525 
DIGPFLAG C001 0036 0501 0512 DIRDCS C001 0060 0620 
DIHCSTGA C 001 0071 0633 0635 DIRONS C001 006C 0619 
18]DIHCSTGD C 001 0072 0635 0641 18]DIREGPTR C 001 0015 0376 
DIHPCSDA C 001 0060 0580 0591 DIRNQSAV C001 0063 0594 
DIHPCSTK C 001 0061 0591 0592 DIRQ C001 +0058 0571 
19}DIHPSTK C001 0062 0592 0594 19/DIRTTABL C 001 0040 0526 
DIIAR C001 0059 0569 0570 DISAVEIN C 001 0042 0532 

C 001 0534 0016 0377 


DILTARS DISECa = C 001 


025 


#SVAT TCB ATTACH TRANS! 
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AGE 
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ERR LOC OBJECT CODE ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 
4126 * 
0001 4127 PRM1 
0002 4128 PRMZ 
0001 4129 PSH1 
0002 4130 PSH2 
0002 4131 F52 
0001 4132 F51 


REGISTERS USED 

EQ 1 PARM LIST POINTER 
PARM LIST POINTER 
PARM LIST POINTER 
PARM LIST POINTER 
BIT MASK POINTER 


BIT MASK POINTER 


0800 F2 87 06 


EQU 


FIO FIO PIVI DIVO 


1 


WONEOS CC 001 O0E8 3988 
15]WONEOS C001 O0EO 3987 
WONGRP C001 0020 3981 
WONGRPG C 001 0021 3983 
16]WONGRPT C 001 0025 3982 
C 001 0004 3945 3946 3947 
C001 0003 3940 3994 
17/WOOPM = C001 0002 3923 ©3940 
C 001 0005 3994 3995 


18] WOPEC = C 001 +0042 3972 
C 001 0022 3973 
C 001 OO1A 3977 

1 C 001 0006 3947 ©3959 
C 001 0045 3913 
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01 
CROSS-REFERENCE 


O2|SYMBOL T LEN VALUE DEFN 


02 REFERENCES 


SYMBOL T LEN VALUE DEFN 


DISETSWa C 001 0068 0611 
03/D1SMFa C001 OO0E 0330 
DISTKA C001 0011 0372 
DISTKPTR C 001 OO1C 0387 
O4IDISTKSAV C 001 0037 0512 
DISVCIMA C001 0012 0373 
DISWACEA C 001 0035 0500 
05] D1SWIOBa C 001 0034 0496 
DISWPMIN C001 0013 0374 
DISWICBI C 001 0047 0537 
06} DISWTCBO C 001 0018 0379 
DISYSFLG C 001 0026 0447 
DITCBHOR C 001 0028 0486 
O7}DITIACEA C 001 0038 0517 
DITIMAB C001 0028 0479 
DITMVALA C O01 0017 0378 
08]D1TPTOXH C 001 0029 0480 
DITPTOXL C 001 002A 0481 
DITRACEA C 001 0039 0515 
09] D1TRIOBA C 001 003A 0516 
DITRSAVE C 001 0030 0491 
DITWIOBA C 001 0034 0497 
10/DITWICBA C 001 0048 0538 
DIUNUSO8 C 001 0008 0320 
DIUNUS5E C001 O05E 0578 
LIJDIWRCS §=—C 001 006F 0623 
DIWRMS C001 O0SE 0622 
DIWSCAF C O01 O00C 0324 
12]D1XANSWI C001 000A 0322 
DIXNTBL C 001 0032 0493 
DIXRI C001 0056 0566 
13]D1xXR2 CC 001-0057 0567 
DIXTCBA C001 0045 0535 
ECMACTV C001 0080 0679 
14]ECMCMPL C001 0040 0680 
ECMCPOCL C 001 0025 0674 
ECMCSB C001 0027 0676 
J5]ECMGW = C 001 0003 0687 
ECMINQ C001 0022 0671 
ECHIOERR C 001 0021 0670 
J6JECMLOCK C001 0010 0682 
ECMMASK C001 0001 0678 
ECMNSKIP C 001 0080 0667 
17]ECMPARM C001 0000 0666 
ECMREAL C001 0040 0668 
ECMSYSLG C 001 0028 0677 
IG}ECMTAS C001 0026 0675 
ECMTINER C 001 0024 0673 
ECNTRMN C 001 0023 0672 
19/ECNTTC C001 0020 0669 
EIGHT C001 0008 0797 
EN1064 A001 ODF2 4895 


DIIL5PCR C 001 O05F 0579 0580 
DIILSWRK C 001 0041 0531 0532 
DLINDR1 C001 0010 0343 0344 0372 
DIINLI2 C 001 005C 0572 0573 

DIINL34 C001 0050 0573 0578 

DIIPIOBA C 001 0039 0514 0515 0516 
DITOLDAR C 001 0000 0325 0330 
Q5{DILATRA C001 0014 0375 0376 
DILDACEA C 001 0046 0536 0537 
DILDIOBA C 001 0034 0499 
06|DILDLINK C 001 OO1F 0392 0393 
DILDLOAD C 001 0022 0395 0397 
DILDRTOT C 001 0021 0394 0395 
DILDSN C001 OO1E 0391 0392 
DILDSS C001 001D 0390 0391 
DILDSTRT C O01 0020 0393 0394 
DILDTCBA C 001 0048 0539 

DILOGLIM C 001 004A 0543 0544 
DILOGPT C001 0049 0540 0543 
DILOGSIZ C 87. 0051 0556 0557 
DILOGSS C001 0050 0555 0556 


03 


04 


07 


03 


0497 0498 0499 0500 


DIMXACEA C 001 
12]D1MX108@ C 001 0034 0498 

DIMXNTPT C 001 O02E 0489 0490 
DINUXNTO C 001 0000 0305 0306 0314 
13] D1NUXNT1 C 001 0001 0306 0307 
DINUXNT2 C 001 0002 0307 0308 
DINUXNT3 C 001 0003 0308 0309 
DINUXNT4 C 001 0004 0309 0310 
DINUXNT5 C001 0005 0310 0311 
DINUXNT6 C 001 0006 0311 0312 

15] DINUXNT? C 001 0007 0312 0320 
DIPGFULL C 001 0080 0336 

DIPHRPSR C001 005A 0570 0571 

16] DIPREVRB C 001 0055 0561 

DIQHSAVE C 001 0038 0513 0514 
DIQSAVE C001 O04E 0547 0552 
TT{DIQUEUEA C 001 003F 0525 0526 
DIRDCS C001 006D 0620 0622 
DIROMS C O01 006C 0619 0620 
1GJOIREGPTR C 001 0015 0376 0377 
DIRNQSAV C 001 0063 0594 — 0598 
DIRQ C001 


1 


DISAVEIN C 001 
DISECA =C 001 


026 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


TDMAC NAME-“SVAT, ATTR-CO0900, JUMP-Y, RLD-D 
LEVEL 08 RELEASE LEVEL 
LIBRARY ATTRIBUTES 
RLD OPTION 
MRT OPTION 


0834 F4 00 06 


Leia er Le Wo 


14)WORREL C001 0028 3907 hal xo? C O61 062% 0171 019 
WORSCJ C001 0056 3919 Koa COOL Ges O10 O1F 
WORSPF C001 0044 3912 KOs CM Ba OTe 

15{WORSTD CC 001 0006 3901 nS} x1o C001 OW Ol On3 
WORSTP C001 0002 3 [x20 C001 0020 oN? ony 
WORSTR C001 0002 3936 {Kao Or We ile” Oy 

16{WORTC C001 0001 3896 3923 hel x80 C O01 OOBD O1nds (OUR 
WRTG C001 0021 3962 [zero OO) 000 OTD aaa 
WORTT C001 0025 3963 TONER ITS C GOl” GOR” GGT 
17|MORUP = C001 «0080 4015 ny 
WORUPD C001 OQ00F 4013 4019 TOTAL STATEMENTS FLAGGED IN THIS ¢ 


STATEMENTS FLAGGEO AS URRNTNGS 
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CROSS~REFERENCE 


02/SYMBOL oT LEN VALUE DEFN = REFERENCES D2SYMBOL = T LEN VALUE OEFN RE 


DISETSWa C 001 0068 0611 0619 ERBADPO C001 OO08 ” O73 
O3|D1SMFa C001 OOOE 0330 0338 DHERBAOP] C O01 0004 O764 
DISTKa C001 0011 0372 0373 ERADP? COOL 9002 0765 
DISTKPTR C 001 OO1C 0387 0390 ERBADP3 C001 G01 O76 

O4|DISTKSAV C 001 0037 0512 0513 DA ERBBUSY C001 OOBD 0704 = 46 
DISWCItt@ C 001 0012 0373 0374 ERBODONE C001 0040 0705 
ERBCELOG C001 O001 0747 


DISWACEA C 001 0035 0500 0501 
Q5] DISWIOBA C 001 0034 0496 POH ERBDACE C O01 
DISWPMIN C001 0013 0374 0375 ERBDCHN C 001 


0008 

0001 
DISWICBI C 001 0047 0537 0538 ERBOCPA C001 006 0750 = Or 
06]DISWTCBO C 001 0018 0379 0384 DOFERBBCTL C OG1 0004 0703  O7; 
DISYSFLG C 001 0026 0447 0470 ERBOOVI C GOL 0002 0695 O7 

ERBDERA C001 0006 0751 

005 : 

GOAO 

oobo 


DITCBHDR C 001 002B 0486 0487 
O7|DITIACEA C 001 003B 0517 0522 D7 ERBOFLG CC Oo1 
DITIMAB_C 001 0028 0479 0480 ERBDISK C 001 
DITMVALA C O01 0017 0378 0379 {ERBDISKT C 001 0696 
08} D1TPTOXH C 001 0029 0480 0481 DBI ERBDLEN C 001 
DITPTOXL C 001 002A 0481 0486 ERSOLN C001 


‘obec 

00A 
DITRACEA C 001 0039 0515 ERBIMIC «C001 0008 0755 
Q9/D1TRIOBA C 001 003A 0516 0517 DO ERBDONE C001 0020 0706 
DITRSAVE C 001 0030 0491 0492 ERBDOPT C 001 000) O757 
DiTWIOBA C 001 0034 0497 ERBOQHD ¢ 001 0003 6701 
1O/O1TWICBa C 001 0048 0538 0539 0540 OERBERR2 C 001 
D1UNUSOS C001 0008 0320 0321 ERBGAIJI C 001 


DIUNUSSE C 001 O05E 0578 0579 
LIJDIWURCS = C 001 006F 0623 0625 
DIWRMS C001 O06E 0622 0623 
DIWSCAF C001 O00C 0324 0325 
12|D1XANGWI C001 000A 0322 0323 
DIXNTBL C001 0032 0493 0494 
DIXR1 C001 0056 0566 0567 
13)D1XR2 C001 «(0057 «0567 «= 0568 
DixTCBa C 001 0045 0535 0536 


gigas 


ECMINQ C001 0022 0671 
ECMIOERR C 001 0021 0670 
16JECMLOCK C001 0010 0682 
ECMMASK C 001 0001 0678 
ECMNSKIP C 001 0080 0667 4306 
17) ECMPARM C 001 0000 0666 
ECMREAL C 001 0040 0668 
ECMSYSLG C 001 0028 0677 
IGJECMTAS C001 0026 0675 
ECMTIMER C 001 0024 0673 
ECMTRM C001 0023 0672 
IQJECMTTC C001 0020 0669 4306 
EIGHT C001 0008 0797 
EN1064 A001 ODF2 4895 4885 48838 


D27 


#SVAT TCB ATTACH TRANSIENT PAGE 96 -VO9/11/81 12/08/81 21:28 ] |*5VAT TCB ATTACH TRANSIENT 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


4220 * 4 
4221 * ASSIGN THE TCB FOR RUNNING THE NEW TASK IN THE SYSTEM 4 
4222 * 01560000 | | r 
r 
a 
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4223 *TOOO005 ASSGN LEN-TCBLEt’ ASSIGN A TCB 01570000 P35 089F SC 00 IC 2B 
0834 F4 00 06 4224 ATOOQOOS SVC SVCASSGN.< 3—s-s ASSST.GN REQUEST OBA3 SF 00 10 1¢ 


AW Wa WOS Vie MVisd Visv vlOr Vieo Us Wai 
5IX10. «C001 OOO -O118 ~=—«O131.-O166 6187 0200 11 ont 
X20 COO 0020 0117 0130 0138 0165 0207 EAR eS Ie ee ae ee 
X40 COOL -0040 C116 “D129 “O13 156 164 177 Gd06 
N6}X80 = 001 0080 ONS §—-0128- 0136 0163 0176 16] ENO OF THE CHANGE ACTIVITY SUM 
zero, Com ooo oes eee — 


ZONEBITS C 001 OOFO 0807 


TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 OHA Fs 
STATEMENTS FLAGGED AS WARNINGS E 0 S306 SST GW OT T1787, 


SBUTS1O SS) GY OS 07 A 
P{Q701 $5 


£28 
2 wO9/1i781 12/08/81 21:28 ‘ PAGE 133 VOO/11/81 lo/Oa/B1 21:28 M6: 
CROSS-REF ERENCE . 
SYMBOL T LEN VALUE DEFN REFERENCES OZ] SymBOL «1 LEN WALUE DEEN § 
ERBAOPO C 001 0008 0763 fifo C01 OOO 1098 1 
ERBAOP] C 001 0004 0764 O3FIVE C OO1 0005 07% ¢ 
ERBAOP2 C001 0002 0765 FOUR OL 0004 0793 
ERBAUP3 C001 0001 0766 FIADATTR C O01 0022 O91 
ERBBUSY C001 0080 0704 4652 OWFIADATTI C GOL 0020 O94 0 
ERBCDONE C 001 0040 0705 FLADATT? C901 00273 OM 0 
ERBCELOG C 001 001 0747 | | FLAQBLEN C O01 0012 0892 
ERBDACE C001 0008 0770 071 OS/FIADOOWT C 001 0021 O99 a 
ERBOCHN C001 0001 0693 0695 FIADOATE C001 0008 O84] 9 
ERBOCPA C 001 0006 0750 0751 0755 [FIAQOFLG COOL 0000 0834 0 
ERBOCTL C001 0004 0703 0723 OSIFLADEDFQ C O01 OZ? 0976 0 
ERBDOVE C001 0002 0695 0701 |FLADEMDA C 001 0018 0908 0 
ERBDERA C 001 0006 0751 FIADFOWW C O01 OOIF Oe 0 
ERBOFLG C001 0005 0723 0750 O7/FLADHIGH C 001 0010 0899 
ERBDISK C001 00A0 0698 FIADHOKY C O01 0039 1000 3 
ERBDISKT C 001 0000 0696 FIAKBKT C001 0038 1011 1 
SJERBOLEN C 001 000C 0771 OS|FIADKEYL C 001 0028 0900 9 
ERBDLN1 C001 000A 0768 FIAOKEYO C001 002A 0992 0 
ERBDMIC C601 0008 0755 O757 | |FLADLABL C001 0008 0837 
ERBDONE C001 0020 0706 4654 | OS/FLADLBOW C O01 O0tl 0895 0 
ERBDOPT C001 0009 0757 0768 0770 FLADLBUS C001 O01? ORs? 4 
ERBDQHD C 001 0003 0701 0703 FIADLSTK C 001 OWE OME 
OJERBERR2 C001 0010 0707 | 1OVFAADLSTP C ool 0035 ope y 
ERBGAIJI C 001 00C3 0697 FLADLSTR C001 0015 0899 
ERBIOER C 001 0001 0752 FIADONR C001 0075 0975 > 
ERBMCTLN C 001 O0FO 0708 LI}FIAOPCAQ C 001 0030 ws x 
ERBMERCY C001 0006 0714 | [FAADRECL C 001 GOOF 0887 @ 
ERBERR C 001 OOOF O721 FIAORECN C O01 0012 0893 os 
ERBMERRC C 001 0040 0725 JIFLAORES3 C001 OOF sie 1 
ERBMHERR C 001 0002 0738 ; FIAORFED C 001 0077 9978 
ERBMIRCY C 001 0004 0734 FIAORFST C O01 0015 0903 
ERBMLCA C 001 0080 0699 L3JFIADSDIR C 001 0008 9343 
ERBMMIC C001 0007 0713 FLADSFLG C 001 0000 0855 oF 
ERBMPSG C O01 0005 O715 FIAOSEN C O01 O015 0901 
N4IERBYNLOG C001 0010 0728 4]FIADSTDA C 001 9018 0905 OF 
ERBMNRR C001 0004 0716 FIADSTIX C001 0031 0996 a 
ERBMNRSP C 001 0020 0727 FIADTYPE C001 OO0C 0845 Of 
ERBMPERR C 001 0001 0739 L5|FIADVTOC C 001 0010 O90 On 
ERBMPOST C 001 0008 0733 FIALLGCD C 001 0028 1016 
ERBPUR C 001 0003 O717 FIALLGIN C 001 0040 1019 
NGJERBMRERR C001 0003 0737 IG|FIALLGLB C 001 0020 1021 
ERBNORN C001 0000 0753 FLALIVIA C 001 OO1E 0935 
ERBPTASK C 001 0001 0743 FIALWTA C 001 0012 1002 
ERBSOPD C001 OOFO 0758 17|F1ABLAN C 001 0080 0890 
ERBSOPO C001 0080 0759 FLAMCKPT C 001 0080 0970 
ERBSOPI C 001 0040 0760 FIAMCONS C O01 008) 0847 
NSIERBSOP2 C001 0020 0761 1S|FIADIRC C 001 0020 0848 
ERBSOP3 C001 0010 0762 [FAAPDLTC C 001 0020. 0971 
ERBTRMID C 001 0080 0724 FIAONEG C 001 0004 0960 
NSTEXAM =» C001 0004 0457 19IFIADPCK C 001 0010 0363 
FALSE C001 0090 0801 FIAGASK C001 0008 0973 
FOFAIL C001 0040 0504 FIAPRAS C001 0010 0956 
DOI ( 
028 


PAGE §=©97 =O9/11/81 12/08/81 71:28 *SYAT TCR ATTACH TRANSIENT 


SSVAT TCB ATTACH TRANSIENT 
ol 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR 


01540000 4268 * BE THE LINK EDIT ADDRESS IF THE MODULE WAS LINK EDITED TO A 

4269 * 2K BOUNDARY. 02370000 

4210 * 07380000 
089F 5C 00 1C 2B 4271 fC TCBAARR-1(1, TCB1), TCBBEGL(.1CB1) MOVE IN BEGL VALUE 07390000 
O8A3 5E 00 IC 1C 4272 ALC TCBAARR-1(1,TCB1), TCBAARR-1(, TCB1) DOUBLE ¥ALUE 02400000 
OBAT SE 00 IC IC 4273 ALC TCBAARR-1(1, TCB1), TCB@ARR-1(, TCB1) DOUBLE VALUE 67410000 
OBAB SE 00 IC IC 4274 ALC} TCBAARR-1(1, TCB1), TCB@ARR-1(, TCB1) DOUBLE VALUE 02420000 
OBAF 7C FF 1B 4275 vl TCBAYR?C_TCRID. YEE: SET FO TO -7 Latin 


+ anal tli — eee 


aas19 913 914 915 916 917 918 19 920 
921 922 923 924 995 926 927 O78 
15 930 931 932 933 


16] END OF THE CHANGE ACTIVITY SUMMARY 


CHANGE FLAG REASONS - ¥O7/23/79 - AS OF 12/08/81 21:29 
@aB8O0 ~—-§313506 $51 SV 03 11/07/78 MAB 45x 
18}aaG13 317310 $S1 SU 05 07/09/80 JUB 47N 
aa001 = P10201. -SS_—02 02/08/77 CPC 47N 


E29 


09/11/81 12/08/81 21:28 PRE «134 VOO/11/81 12/08/81 21:28 


O2;SYMBOL oT LEN VALUE DEFN = REFERENCES 


FIFO C001 0000 1058 1060 
O3)F Ive C001 0005 0794 4451 
FOUR _C 0010004 0793 

FIADATTR C 001 0022 0951 0966 


O6JFLADEDFQ C 001 0027 0976 0978 0990 1002 1016 1045 


FLADFCHN C 001 OO1F 0944 0946 1021 
FLADHIGH C 001 0010 0889 

FLADHOKY C001 0039 1000 1002-1011 
FIADKBKT C 001 0038 1011 1013 
FLADKEYL C 001 0028 0990 0992 
FIADKEYO C 001 002A 0992 


0855 
0935 0944 1039 


vo9/11/81 12/08/81 21:28 ‘i #SVAT TCB ATTACH TRANSIENT : PAGE 98 09/11/81 12/08/81 21:28 
1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
02) 4309 * 027980000 
4310 * SET UP VALUES IN THE FOLLOWING WORK FIELD‘ TO BE USED TO DETER- 02990000 
4311 * MINE IF THE TASK'S MAIN STORAGE REQUIREMED D0 NOT EXCEED 03000000. 
4312 * WHAT [S CURRENTLY AVAILABLE ON THE SYSTEN. 03010000 


4313 * TCBAXR1-1 = TCBRGSI2~-TCBMSSIZ OF ATTACHL> 03020000 
4314 * TCBAXR1 = MAXIMUM ACTIVE SWAPPABLE REGIL’ EXCEPT ATTACHOR o3030000 


920 
928 
15] 
16 
17 
18) 
19 
0 pO 
£30 
PGE 134 WORTITAL 2/08 2:28] PAGE 155 WOO/TI/BL L2VOB/ES 21:2 | 
CROSS-REF ERENCE Se ee oe : 
O2/SYNBOL T LEN VALUE DEFN REFERENCES be 1 LEN waa 
FIMMIFIL € O01 0010 0972 maaaaas Bi i! ee 
O3/FIAMINDX C 001 0080 0846 ) % 
FIAMINER C 001 0020 0954 = _ % 
FIATUOBR C 001 0002 O85? 1 & 
Q4]FIAMKBPR C 001 0040 0953 wo 
FIAMLBFL C 001 0001 0885 
FIALTST C 001 005C 0835 im 
OSIFIOWRGE C001 0040 0862 6 
“Flstiey! C001 0020 0878 
FIAMWREC C 001 0008 0958 a0 
OS|FLAMOLMV C001 0001 0963 
FIAMMOTAD C 001 0080 0952 
FIAPPERM C 001 0008 0850 


O7|FIAMRDFL C 001 0010 0849 
FLIARFIL C 001 0002 0962 
FIANSCFL C 001 0080 0969 

OS} FIAMSCLB C 001 0080 0375 
FIAMSCMD C 001 0080 0873 


1O|FIAYSYSF C 001 0001 0838 
FIANTEMP C 001 0004 0351 
FIAMVALL C 001 0070 0933 

1I]FIAMWIST C 001 0010 0928 
FLAMV2ND C 001 0020 0930 
FIAMW3RD C 001 0030 0931 

12|F1ANV4TH C 001 0040 0932 
FIANKNFG C 001 0008 0865 
FIAMKTND C 001 0080 0947 

JB/FIFLAG = C 001 OO1E 1039 1043 
FIRESTRT C 001 OOFF 1041 
FISSEND C€ 001 0027 1045 

J4FISSTRT C 001 0021 1043 
F51 C 001 0001 4132 4982" 4983 4990" 4993* 4995 
F52 C001 0002 4131 5021" 5022 5028 5079 5030 S034 504] 5046" 505]* 

J5|)GETPANYP C 001 0020 0454 
GETPHSIC C 001 0010 0455 
GETPNOTC C 001 0008 0456 

16{HPASGERR C 001 0080 0581 
HPCSSVC C001 0010 0584 
HPERRPND C 001 0001 0588 0589 

17|HPHALTED C 001 0000 0589 
HPI2SVCA C 001 0020 0583 
HPNOSTRT C 001 0002 0587 

JS]HPNOTBSY C 001 0008 0585 0589 
HPSTART C001 0040 0582 
HPWAITNG C001 0004 0586 0589 

19] TAR C001 0010 0780 
TARX «C001 0008 0818 
INITLDA =A 002 OFBC 5094 4243 


gis s sig ¢ gig 8 aie # sie 8 sie eee eine eer eeaeeaeiceaesaes 


030 


PAGE 98 VO9/11/81 12/08/81 21:28 


4339 * IF USER'S OF SECONDARY SNA ACTIVE, THEN THK ACTIVE REGION SIZE 


USED TO DETER- 
DT EXCEED 03000000 4340 * MAY BE TASK'S REGION SIZE PLUS 10K. ALSO ENSURE THAT IF a5} 03279490 


03010000 | 0 4341 * TASK IS AN SNA USER, THEN IT°S REGION SIZE PLUS 093 03174800 


No sate trey ae ae mR ee ee Re ee a ety cee NS eer serd PE eee 


vO9/11/81 12/08/81 21:28 Pa UG MOO/TIEL 12 7DR rR 
CROSS~REFERENCE 


D2|SYMBOL «=T LEN VALUE DEFN © REFERENCES 


INITSCa A 002 OFBE 5095 424% . eh ae 
D3} 108 € 001 0001 0731 ik neces Con Sn rn 
TWATNRTH C001 0010 1277 [iwraarse oon ON We un 
TUATNEPA C O01 0008 1278 ~ Pai is aR a at 1 TC TS GR 


D4] IWATRELA C 001 0008 1240 q 1p omc 001 oo iow 
TUBINARY C001 0054 1320 1322 |" arowem ¢ at LL hs 
TWBUFFRa C001 DCOO 1344 es ae ee On 
S| IWCMPLST C 001 0020 1226 105 NURELL COOL MD Ae? ut 
TUCOPPAR C001 0186 1329 poe tok ees us 
TWCOMILN C O01 0079 1331 ; me 
6] IWCOMMST C 001 0020 1237 
IWDEDINT C 001 0002 1243 
TWOSPNAM C001 0080 1235 
TWEMODID C 001 0007 1261 1262 
IVENCDLN C001 00C5 1328 1329 
TWENCODE C001 00CO 1327 1329 | (era CCT 
6] TWENDVRB C001 0009 1262 1263 OH WS NRURA C GOL GUS) 13tS | 1By 
TWENTRY@ C001 CAO? 1341 5095 eG, Se ee 

Rae 0055 1322 1328 ie CO a ie TH 
9] IWERROR® C001 0005 1260 1261 SOO TMGISTAT C O01 Goer 132 ih 
IWFILEST C001 0040 1225 ASWACST C001 0008 1779 
TUFSBASN C001 0080 1249 A Ce mal 1) TY 
OJITWHISTLE C 001 0004 1241 10) (WORE COO OoNC 13R 135 
IWIGCDTA C 001 0001 1232 | ([SURSTRT C O01 @pee 1305 199 
IWINTREL C 001 0002 1230 Sa ER TR te aT 
IWLALPHA C 001 0023 1278 = 1279 LI ASUION? C00) O00 Lee 
TWLBINRY C001 0027 1280 1281 [INSU C Gol Gon? i288 | LPN 
TWLENGTH C 001 0052 1319 [eune COOL Ges ies bs 
2] TWLERORA C001 0021 1277 = 1278 | 12 tusysima C O01 BpRD 1345 
IWLFETCH C 001 0025 1279 1280 | (NARKARE COOL 0BOO 1300 406 
TWLOADST C O01 0030 1224 oe ee a 
IWLRESOL C 001 0029 1281 1282 13 scpncORa C OOt Os 1955 185 
IWLRESO2 C 001 0028 1282 1283 ACODC Ga C O01 Ons? 1907 «86180 
TWLRESO3 C 001 0020 1283 1284 [XMS TOOT GOW 16a) Yee 

4| WLRESO4 C001 O02F 1284 1285 14 SCRUCSBP C O01 ODES 1599 tow 
TWLRESOS C 001 0031 1285 1289 : J0BOCIAG C 901 OO2h 1070 187, 
1WL98000 C 001 0019 1273 (1274 CoopaTe CMY OA a iad 
| 1450000 C 001 0018 1274 = 1275 TS) JORDOFRG COOL BOSS 198 18x 
151000 C 001 0010 1275 1276 SCRUOTFS C001 Gabe 1908 15m 
152000 C001 OO1F 1276 1277 [RRL COST GOTO Tee 
IWF ITAF C001 0020 1251 16] ABDERSY COOL OOO 1563 15H 
TWMUCBAD C 001 0013 1267 1268 ; JOBDEXTa COO] Goo] 147% an 
TWODLDa C 001 F800” 1343 | [a0aeF ina Tool” gag Tad 35 
IWMODSKa C001 0059 1324 © 1325 [7 ICBDPINO C001 Ober ape 100 
TWMODSK1 C001 0050 1325 | SOROS C01 OOle jam, jaa 
TWARTREL C 001 0001 1245 | (SOROFSRC'C O01 OUT] ieee jaa 

J IWMTCBAD C001 0015 1268 1269 Si SCHDINIT COOL GON 1399 | 187) 
TWITUBAD C001 0017 1269 1273 {SCEDINLK C001 GOODS 1415 jg" 
TWNAFLD C 001 0011 1263 1267 KSI? Co GOO 171 rE: 
TWNOQUE C001 0040 1250 19 08.810 C Ol GOH? 16K 88 
TUNOTERM C001 0010 1238 | JOBDIBRG C O01 9057 1910 9 19 
TWOMLYER C001 0040 1236 | CRDIOON C O01 Gp] Sis TST 


D31 


PAGE 


4382 * AT THIS POINT: TCBRGS!2=TCRMSSIZ=REGION SIZE 1 EXECUTE 

4383 * TCBGXR1=B="AK. ACTIVE SWAP EACLUDING aTTACHOR 
4334 * -1= . SRP PAGES 
4385 * 


E32 
1781 12/08/81 21:28 PAGE 137 VO9/11/81 12/08/81 21:28 i 
_ CROSS-REFERENCE 
02|SYMBOL T LEN VALUE DEFN REFERENCES 02| SYMBOL T LEN VALUE REFERENCE 
iwPGADDR C 001 0034 1289 1290 JCBDJQST C001 
QB] IWPGATR4 C 001 0043 1299 1300 03} JCBDLANG C 001 


IWPGATTR C 001 003E 1295 1296 
TWPGCRSZ C 001 003B 1294 1295 
O4}IWPGLINK C 001 0037 1291 1292 
IWPGMRTM C001 003F 1296 1297 
TWPGNUMS C001 3035 1290 «1291 
O5|IWPGRELL C 001 0040 1297 1298 
[WPGRLDD C 001 003A 1293 1294 


TWPGSCTL C 001 0039 1292 os 
06] (WPGSWAP C 001 0045 1302 06} JCBDPGIL C 001 
IWPGTOTL C 001 0042 1298 i 


TWPGXTRA C 001 0044 1300 1302 
O07] IWPPSABA C 001 0D10 1346 
IWRETRNA C001 CAOB 1342 
TWRKBFRA C001 OF20 1347 
OG} IWSIBUFA C 001 0051 1315 1319 1320 
IWSIFNC1 C001 0040 1312 1313 
TWSINEXT C001 OO4F 1314 1315 
OOJIWSISTAT C 001 OO4E 1313 1314 


IWSNACST C 001 0004 1229 
TWSREND C001 0048 1307 1308 
IC} IWSRRECL C 001 004C 1308 1312 
IWSRSTRT C 001 0048 1306 1307 
TWSWICHT C 601 0000" 1223 «(1234 
11] TUSWTCH2 C 001 0001 1234 1248 
IWSWTCH3 C001 0002 1248 1258 
TWSWTCH4 C001 0003 1258 1260 
12] IWSYSINA C001 0D00 1345 
TWARKARA C001 C800 1340 5094 
JCBDBFRA C001 OO6F 1543 1546 
13] JCBDCCBa C 001 0003 1555 1556 
JCBDCIBA C001 0052 1502 1504 
JCBDCRLB C001 0010 1443 ~~ 1444 
14] JCBDCSBP C 001 0065 1539 = 1541 
JCBOCTAG C001 002B 1470 1472 
JCBDDATE C 001 0009 1435 1437 
15] JCBDOFRG C 001 0056 1508 1510 
JCBDDTF@ C 001 0054 1504 — 1506 
JCBDELNG C001 0010 1564 
16] JCBDERSV C 001 OOOF 1563 1564 
JCBDEXTA C 001 0031 1476 = 1478 
JCBOFINA C001 0050 1500-1502 
17| JCBDFMNO C 001 004C 1494 © 1496 


JCBDFSBF C 001 0014 1446 1448 
JCBDFSBL C 001 0012 1444 1446 

18] JCBDINIT C 001 0000 1359 = 1371 
JCBDINLK C 001 0005 1415 1425 
JCBDINT2 C 001 0001 1371 1384 

19} JCBDJBID C 001 0047 1490 1492 
JCBDJBRG C 001 0057 1510 1512 1513 
A at C001 0061 1516 1518 4750 JCBMFLUC C 001 00:0 1388 


032 


#SVAT TCB ATTACH TRANSIENT 


11/81 12/08/81 21:28 #SVAT TCB ATTACH TRANSIENT PAGE 101 09/11/81 12/08/81 21:28 


ERR LOC OBJECT CODE ADOR STMT SOU 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


4458 * 
4459 * 


03440000 | 02 4426 * 03770000 {02 
03450000 4427 * TASK TO BE ATTACHED IS SWAPPABLE, THEREFORE WE NEED ONLY 
03460000 4428 * UPDATE THE OLD SCAMAXRG IF NEW TASK'S REGION SIZE EXECEEDS 03790000 
03470000 | 03) 4429 * THE OLD MAXIMUM ACTIVE SWAP SIZE. 03800000 {03} 


OA28 5C 00 19 20 
OA2C CO 87 0665 4461 


09/11/81 


09/11/81 


12/08/81 21:28 


12/08/81 21:28 


15 


16 


02} SYMBOL T LEN VALUE DEFN 


SCBDLNPG C 001 0048 1492 
04] JCBDLPI# C 001 0006 1558 
JCBOMENF C 001 OO5E 1512 
JCBDMENL C 001 0045 1488 
C5} JCBDMENU C 001 0043 1487 
JCBONFTF C 001 O04E 1498 
JCBOPDAT C 001 000C 1437 
06] JCBDPG1L C 001 003B 1482 
JCBOPG2L C 001 003D 1483 
JCBOPLST C 001 0005 1556 
07] JCBDPRG1 C 001 0033 1478 

JCBOPRG2 C 001 0035 1479 

JCBDPROG C 001 0028 1456 
O8| JCBDPSBP C 001 0018 1450 
JCBDRGS2 C 001 002A 1468 

JCBORTCD C 001 O02F 1474 
UO! SCBDSCH] C 001 0002 1384 
JeRDSCH2 C001 0003 _ 1394 
JCBDSCH3 C 001 0004 1405 
10] JCBDSCH- C 001 0063 1529 
JCBDSCHS C 001 0062 1518 
JCBDSLLC C 001 004) 1496 
11/JCBDSLLR C 001 0055 1506 
JCBDSLOB C 001 002D 1472 


CROSS-REFERENCE 


SCBDSLST C 001 O00E 1439 
12| JCBDSPID C 001 O05C 1514 
JCBDSSBa C 001 000) 1554 
JCBDSTAT C 001 0029 1458 
13] JCBDUPSI C 001 0006 1425 
JCBDURIL C 001 003F 1484 


SCBDURZE C001 0041 1485 
14) JCBDUSER C 001 0060 1541 
JCBDUSR1 C 001 0037 1480 


JCBDUSR2 C 001 0039 1481 
15] JCBDWSBP C 001 0016 1448 
JCBDIPRC C001 0020 1452 


JCBMOKAL C001 0020 1418 
17] SCBMDOMD C 001 0002 1391 
JCBMOPRD C 001 0004 1401 


JCBMDSRC C 001 0001 1413 
18] JCBNEIBA C 001 0001 1537 
JCBMEOMP C001 0004 1411 


JCBMEVPR C001 0004 1535 
19] JCBMEXTD C 001 0001 1466 
JCBMFLIS C 001 0040 1531 


REFERENCES O2| SYMBOL T LEN VALUE DEFN — REFEI 
JCBDJQST C001 005A 1513 1514 JCBMHIPR C 001 0030 1374 
03] JCBDLANG C 001 0062 1519 1529 03} JCBMICRC C 001 0008 1400 
JCBDLCLA C 001 O06F 1544 JCBMINHT C001 0010 1365 
1494 SCBMINQP C 001 0002 1402 
1563 O4| JCBMINTK C 001 0010 1533 4712 
1516 JCBMIPRC_C 001 0008 1378 
1490 SCBMLIST C 001 0020 1522 
1488 05] JCBMLOPR C 001 0010 1376 
1500 JCBMMDPR C001 0020 1375 
1439 JCBMNEXT C 001 0010 1523 
1483 06] JCBMAYRT C OU1 0008 1366 
1484 JCBMNONT C001 0001 1403 
1558 SCBMNOSC C 001 0004 1367 
1479 O7| JCBMNRTP C 001 0001 1382 
1480 JCBMNTER C 001 0020 1363 
1458 JCBMNTRA C001 0080 1360 
1452 08} JCBMOPCL C 001 0080 1395 
1470 JCBMPGIS C001 0020 1532 
1476 JCBMPNEP C 001 0020 1398 
1394 4731" 09] JCBMPRTY C 001 0040 1396 
1405 JCBMPUCL C001 0080 1385 
1415 JCBMRCSN C00) 0004 1421 
1539 4712® 4715* 10] JCBMRDVC C 001 0010 1419 
1519 JCBMRDVU C001 0008 1420 
1498 SCBMREGN C 001 0080 1372 
1508 11] JCBMREST C 001 0010 1409 
1474 JCBMRING C001 0002 1412 
1443 JCBMRLCL C 001 0040 1373 
12] JCBMRSET C 001 0001 1423 
1555 JCBYRSNP C001 0002 1381 
1468 JCBNRTWA C001 0020 1387 4731 
1435 13] JCBMRUNG C 001 0040 1361 
1485 JCBMSCRT C 001 0008 1410 
1487 SCBMSELT C 001 0002 1422 
1543 1544 14) JCBMSEOJS C 001 0080 1406 
1481 JCBMSLNG C 001 0040 1521 
1482 JCBMSLOG C 001 0080 1416 
1450 15] JCBMSLOP € 001 0002 1465 
145¢ JCBMSOFF C001 0040 1407 
SCBMSPCK C 001 0002 1536 
16] JCBMSPRT C 001 0020 1408 
JCBMSRAL C 001 0008 1534 
JCBNSYLB C001 0080 1520 
17] JCBMSYSN C 001 0040 1417 
JCBNTMLK C 001 0080 1530 
JCBMUPS] C G01 0080 1426 
18} JCBMUPS2 C 001 0040 1427 
JCBMUPS3 C 001 0020 1428 
JCBMUPS4 C001 0010 1429 
19] JCBMUPSS C 001 0008 1430 
JCBMUPS6 C001 0004 1431 
JCBMUPS7 C001 0002 1432 


JCBMFLUC C 001 00:0 1388 


ERR LOC OBJECT CODE 


OA28 5C 00 19 2D 
OA2C CO 87 0E65 


#SVAT CB ATTACH TRANSIENT 


4458 * GO TO CALCULATE THE NUMBER OF TRACKS TO ALLOCATE, AND THEN 


033 


ADDR STMT SOURCE STATEMENT 


PAGE 102 V09/11/81 


4459 * ALLOCATE THE SWAP AREA ON DISK. 


4460 AT000240 MVC 


4461 


aa290 
aa290 


B SWAPS 1ZE 


TCBAXR1 (1, TCB1), TCBRGS12¢, TCB1) SET SIZE TO CONVERTAR2) 
GO CONVERT #2K TO TRACKS 


aa290 


4462 * 
4463 * 


NOW BRANCH TO THE ALLOCATE SUBROUTINE TO 


aa290 


12/08/81 21:28 


04191200 
04191800 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


ADDR STN 


GE 138 VO9/11/81 12/08/81 21:28 


"AGE 


102 VO9/11/81 12/08/81 21:28 


N 98290 
30290 
ONVERTAA29L 
#290 


9a290 


04191200 
04191800 
04192400 
04193000 


04193600 
04194200 


UNAVAILABLE TO START TASK 


45 * EXTERNAL REFERENCES: CONTROL STORE ROUTINES - ASSIGN/FREE, 


POST, GPOST, PMR 


49 * NOTES: THIS ROUTINE MUST EXECUTE IN THE MAIN STORAGE TRANSIENT 
50 * AREA 

51.% 

52 * CHARACTER CODE DEPENDENCY: N/A 

53 * 

54 */*.CHANGE ACTIVITY - #SVAU 


£34 


01 


02] SYMBOL T LEN VALUE 0 


02]SYMBOL 1 LEN VALUE DEFN — REFERENCES 


JCBMHIPR C 001 0030 1374 


JCBMINQP C 001 0002 1402 
JCBMINTK C 001 0010 1533 4712 4715 
JCBMIPRC C001 0008 1378 
JCBMLIST C 001 0020 1522 
5] JCBMLOPR C 001 0010 1376 
JCBMMDPR C001 0020 1375 
JCBMNEXT C 001 0010 1523 
06} JCBMAMRT C 001 0008 1366 
JCBMNONT C001 0001 1403 
JCBMNOSC C 001 0004 1367 
07] JCBMNRTP C 001 0001 1382 
JCBMNTER C001 0020 1363 
JCBMNTRA C 001 0080 1360 
O83] JCBMOPCL C 001 0080 1395 
JCBMPGIS C001 0020 1532 
JCBMPNEP C 001 0020 1398 
09] JCBMPRTY C 001 0040 1396 
JCBMPUCL C001 0080 1385 
JCBMRCSM C001 0004 1421 
JCBMRDVC C 001 0010 1419 
JCBMROVU C001 0008 1420 
JCBMREGN C 001 0080 1372 
11] JCBMREST C 001 0010 1409 
JCBMRING C001 0002 1412 
JCBMRLCL C 001 0040 1373 
12] JCBMRSET C 001 0001 1423 
JCBMRSNP C001 0002 1381 
JCBMRTWA C001 0020 1387 4731 
13) JCBMRUNG C 001 0040 1361 
JCBMSCRT C 001 0008 1410 
JCBMSELT C 001 0002 1422 
14] JCBMSEOJ C 001 0080 1406 
JCBMSLMG C 001 0040 1521 
JCBMSLOG C 001 0080 1416 
15] JCBMSLOP C 001 0002 1465 
JCBMSOFF C001 0040 1407 
JCBMSPCK C 001 0002 1536 
16] JCBMSPRT C 001 0020 1408 
JCBMSRAL C001 0008 1534 
JCBNSYLB C 001 0080 1520 
17] JCBMSYSN C 001 0040 1417 
JCBMTMLK C001 0080 1530 
JCBMUPS] C001 0080 1426 
18) JCBMUPS2 C 001 0040 1427 
JCBMUPS3 C 001 0020 1428 
JCBMUPS4 C 001 0010 1429 
JCBMUPS5 C 001 0008 1430 
JCBMUPS6 C 001 0004 1431 
JCBMUPS7 C 001 0002 1432 


034 


#SVAT TCB ATTACH TRANSIENT PAGE 103 VO9/11/81 12/08/81 21:28 #SVAT CB ATTACH TRAN 


ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


OAAA 6C 01 05 05 
OAAE 4C 01 03 0141 
OAB3 4C 01 OB OFB4 
OAB8 6C 01 09 19 


02, 4471 * 
4472 * AT THIS POINT: 
4473 * = TCBAXR2-1=SCANS#2K 


03 4474 * TCBAXR2 =SCAMAXRG ALSO, MAIN STORAGE IS AVAILABLE 
4475 * OABC 35 01 OF84 
OA3C 4C 01 29 OEEO 4476 AT000242 MVC TCBTSSN-1(2, TCB1), ALSSS MOVE IN ALLOCATE SS VALUE OACO BB 20 1E 
04) 0A41 5C 01 37 29 4477 MVC = ATSVSSSa-1(2.TCB1). TCRTSSN-1¢_TCRIT) SAVE IN TCA OAC3 F2 10 31 


x 
x 
® 
x 
* 
x 
® 
x 
x 
x 
* 
x 
x 
nx 
* 
* 


00491500 


139 09/11/81 12/08/81 21:28 


EF 103 09/11/81 


5 VALUE 


a 


12/08/81 21:28 


02] SYMBOL 


JCBMUPS8 C 001 
03] JCBMUSLB C 001 
JCBMMDKT C 001 
JCBMMDSK C007 
04] JCBMMINT C 001 
JCBMWLIN C 002 
JCBMAYK C001 
05] JCBMWPNT C 001 
JCBMWTCD C 001 
JCBMXREF C 001 
06} JCBMYMDD C 001 
JCBMILLDJ C 001 
JCBNILDS C 007 
("| JCBMISCP C 001 
JCBM4LPI C 001 
JCBM6LPT C 001 
S| JCBNBLPT C 001 
JCBSLCRT C 001 
JCBSLOFF C 001 
Q9}JCB1 = C (001 
JcB2. C001 
JOB1—«C OO 
10} LOFCHREQ C 001 
LDINPROG C 001 
LIFO  C 001 
JI[LOGTFULL C 001 
MLCA32K C 001 
MPIOBERR C 001 
12) NINE C 001 
NOBIT _C 001 
noop SC O01 
1BINPRV. C001 
NUBALBF1 C 001 
NUBACEQH C 001 
14] NU@ADWRK C 001 
NUGATQE C 001 
NUABAD2K C 001 
15]NUACPTAH C 001 
NUACPTCB C 001 
NURCSETC C O01 
16} NU@CXIOB C 001 
NUADLTQE C 001 
NUADPACE C 001 
17|NuaDPIOB C 001 
NUADSTQE C 001 
NUBERACE C 001 
18] NUATEACE C 001 
NUAIPLAF C 001 
NUALGACE C 001 
19] NU@LOADI C 001 
NUBMACE C001 


T LEN VALUE 


DEFN 


1433 
1379 
1461 
1462 
1463 
1460 
1464 
1459 
1390 
1386 
1392 


CROSS-REFERENCE 


REFERENCES 


4711* 4712 4715 4749* 4750 


E35 
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4730* 4731 
4750" 4751 4752 4753 4754 4755 4756 


1059 


12/08/81 21:28 
01 


1719 
1693 


1747 


4334 4520 


1702 


4324 4488% 4489 4491" 4495 4496 4501 


4662 4809 4828 


1738 
1698 
1745 
1751 
1749 
1741 


1724 
1736 
1768 


1726 


1730 


NUatWTQE C 001 
20 


ERR LOC OBJECT CODE 


OAAA 6C 01 05 05 
OAAE 4C 01 03 0141 
OAB3 4C 01 OB OFB4 
OABS 6C 01 09 19 
OABC 35 01 OF84 
OACO B8 20 IE 


04) 0AC3 F2 10 31 


#SVAT TCB ATTACH TRANSIENT 


1743 


ADDR STMT SOURCE STATEMENT 


035 
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021 SYMBOL 


NUATIACE C 001 
NUBTRACE C 001 
06] NUaTRBUF C 001 
NuaTWAQ C 001 
NUBTWAXL C 001 
O7| NUATWAXR C 001 
NUaXTENT C 001 
| NUFIXNUC C 001 
OG} NUL#LBF1 C 001 


NULENTOB C 001 
JO MULIPLAF C 001 
NULIISSQS C_001 
NULRDIO8 C 001 
LINULSCA C001 
NULTQE C 001 
NULTRBUF C001 
NULTUAQ C 001 
NULTUAK C001 


T LEN VALUE 


01CO 
1000 
0360 


4519 MVC RBSXR2(2,RB1),RBSXR2(,RB2) SET NEW TASK'S XR2 VALUE 
4520 MVC___RBSXR1(2,RB1),NU@ACEQH+QHDSPTCB SET TCBa AS NEW XR1 
4521 MVC -RBSPSR(2,RB1), ATPMRL MOVE IN PMR VALUE 

4522 MVC RBSTARC2,RB1),RBSLEN*+SLDDSTRT(,RB2) SET NEW START C a 
4523 L ATTCB, TCB1 RELOAD TCB ADDRESS 


4524 TBN 
4525 JT 


YES, A TUB a 


RBSLEN+SATFLAG(, RBZ), SATTUBAS TUB ADDRESS PASSED ? 
AT000247 


PASSED 


ERR LOC OBJECT CODE 


0B27 7C 01 58 
OB2A 7C 01 76 
082) 7C 01 70 
0830 74 02 13 
0833 B9 CO 33 
0B36 F290 16 


OB39 9C 00 75 6B 


#SVAT TCB ATTACH TRANSIE 


F36 


140 VO9/11/81 12/08/81 21:28 


CROSS-REFERENCE 


O2ISYMBOL T LEN VALUE DEFN = REFERENCES 


NUaMPIOB C001 O1CO 1693 1696 
Q3/NuatssQs C 001 i000 1774 = 1777 
NUBNXACE C 001 0360 1732 1734 
NUARDIOB C001 O2A8 1713 1716 
O4)NUBSCA C001 0000 1687 1690 4205 4325 4326 4592 4632" 4642 4644 4671" 4759 4778" 4300 
4884 4970 4987 5033 
NUASPACE C 001 O3E0 1751 1753 
OS|NUASWACE C 001 0350 1730 1732 
NUATIACE C 001 0330 1726 1728 
Wo eg NUATRACE C 001 0300 1719 1722 
O6|NUATRBUF C 001 0700 1761 1763 1766 1768 
NuaTWAQ C001 02A3 1710 1713 
NUATWAXL C001 0280 1702 1704 1710 
O7|NUaTWAXR C 001 02A2 1704 4982 5021 
NUAXIENT C001 0800 1757 1761 1772 
NUFIXNUC C 001 0000° 1685 «1687 
OSINUL*LBF1 C001 0020 1717 1719 
NULACE C001 0010 1720 1722 1724 1726 1728 1730 1732 1734 1736 1738 1751 1793 
NULACEQH C 001 00CD 1691 1693 
OO) NULADWRK C 001 O0CO 1764 1766 
NULCPTCB C 001 0080 1700 1702 
NULENTOB C 001 0020 1694 1696 1698 1749 
JO|NULIPLAF C 001 0310 1768 
NULMSSQS C001 1000 1775 (1777 
NULRDIOB C 001 0038 1714 1716 
1I[MULSCA C001 0100 1688 1690 
NULTQE C001 0008 1739 1741 1743 1745 (1747 
NULTRBUF C 001 0100 1760 1761 
J2}NULTWAQ C001 0005 1711 = 1713 
NULTWAX C001 0023 1703 1704 1710 5079 
NULXIENT C001 0800 1758 1772 
13] NUNBITS C 001 O00F 0806 
NUVARNUC C001 1000 1772 (1774 
—— ONE C 001 0001 0790 
14/0P) C 001 0002 0820 
oP2 C001 0004 0819 
PAK2 C001 0002 4135 4751 4752 4753 4754 4755 4756 
J5|PLIFO CC 001 0040 0689 
PREEMPT C001 0080 0688 4649 4666 
PRIOR C001 0080 1055 1059 1060 
16}PRIOR* A001 0090 4847 4841* 
PRIORF C001 0080 1060 
PRIORL C001 0090 1059 
17} PRM C001 0001 4127 4199 
C 001 0002 4128 4713 4717 4723 4736 
C 001 0000 0821 4200 
18] PSH1 C 001 0001 4129 
CMM G02 4130 4358" 4359 4360 4362 4363 4369 4370 4370" 
C001 0004 0362 
19]PSIPLI1 C 001 


036 


PAGE 105 VO9/11/81 12/08/81 


12/08/81 21:28 *#SVAT TCB ATTACH TRANSIENT 


iE 104 09/11/81 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT : 


0B27 7C 01 5B 4565 AT000248 MV TCBINVCT(, TCB1).1 INVITE COUNT = 1 
OB2A 7C 01 76 4566 ‘VI TCBARQCT(, TCB1), 1 ALLOC. REQ. COUNT = 1 
0B20 7C 01 70 4567 MVE = TCBAWSCT(, TCB1), 1 ALLOC. US COUNT = 1 
0B30 74 02 13 4563 ST  TCBRTUBC, TCB1), TLB2 SET REQ. TUB ADDRESS 
0833 B9 CO 03 4569 TBF TUBCMND(, TUB2), TUBSEXEC AICS SESSION ? 
0B36 F2 90 16 4570 JF AT000249 NO, THEN ASSIGN ACE 


sae a aia tla oe AR Ri ae eed Nt os 8 Ss te a SE deg te ee he ete eo pte Le 


16 


v7 


0002 145 SATERROZ EQU X'02' TASK NON-SWAPPABLE, AND NOT 
146 * ENOUGH STORAGE 
0003 147 SATERRO3 EQU = X'03' TASK NON-SWAPPABLE, AND [TS 
148 * STORAGE REQUIREMENTS WILL 
149 * PUT A SWAPPABLE TASK TO SLEEP 
0004 150 SATERRO4 EQU  X'04" ASSIGN FAILURE ON TCB 
0005 151 $ATERROS EQU  X'05' ASSIGN FAILURE ON RB 
0006 152 SATERRO6 EQU = X'06' ALLOCATE FAILURE FOR SWAP AREA 
0007 153 SATERRO? EQU = X‘07' ALLOCATE FAILURE FOR WSWA 


154 *** END OF EXPANSION ** 


01 


O2})SYMBOL T LEN VALUE 


PUSHCORE C O01 
03] PUSHIND C 001 
PUSHLEN C 001 
PUSHNONS C 001 
04] PUSHOCH C 001 
PUSHOSS C 001 
PUSHPART C O01 
05] PUSHTSSN C 001 
QCPWAIT C 001 
QFRMEXM C O01 
OS{QHDCILK C 001 
QHDCNLG C 001 
QHOCON =C 001 
O7}QHDCOM = C 001 
QHDCON2 C 001 
QHDCOM3 C001 
08} QHOCOM4 =C 001 
QHDCPOCL C 001 
QHDCSB C 001 
OSIQHDCSCQ C 001 
QHDCXNT C 001 
QHDDILK C 001 
1O}QHDEIB C 001 
QHDERB C 001 


DEFN 


CROSS~REFERENCE 


REFERENCES. 
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1791 
1784 
1793 


1793 4360 


1788 4359 4362 


1792 
1782 
1783 
1785 
1788 
2471 
2468 
1108 
1107 
1072 
1115 
1116 


4360 


1783 4363 4369 4370 


1784 


4359 
1789 


nv 
1118 
li 
1126 
1113 
1080 
119 
1145 
27 


QHDEXAM C 001 
11] QHDEXTRA C 001 
QHDFD CC _‘001 


1148 
1142 
1068 


QHDFDA C 001 
12)QHDFDB C 001 
QHDFDC C 001 
QHDFDD §=C 001 
13/QHDGLF C001 
QHDGY = -C 001 


1092 
1093 
1094 


1095 
1147 
1128 


QHDHI = C:«001 
JAVQHDHIST C 001 
QHDINQEX ¢ 001 


1052 
1124 
1137 


QHDIOXNT C 001 
15]QHDIO = C-001 
QHDIOA C 001 


1073 
1069 
1096 


QHOKBTR C 001 
16]QHDLOAD C 001 
QHDLOC CC 001 


1083 
1082 
1130 


QHDMTI = C 001 
17] QHDNSACE C 001 
QHDNULL C 001 


1149 
1146 
1051 


QUDPDLH C 001 
18] QHOPILK C 001 
QHOPRIQ C 001 


1150 
1123 
1103 


4337 


QHUPT = C001 
19IQHDPT1 C 001 
QHDPT2 CC 001 


1070 
1034 
1085 


QHOPT3 = C 001 
0} 


1086 


0004 196 CSB 
borg 197 CoBre 


16 0001 198 CSBNI 


T LEN VALUE 


2478 2a 


C001 0010 2473 2478 24 
] C001 0019 2478 
C001 0002 2465 4725 ay 


€ O01 0001 2463 24a7E 7a 
8596 4): 


C O01 0000 2476 4197 AP 
51% 


#SVAT CB ATTACH TRANSIENT PAGE 21:28 #5001 TCR ATTACH TRANSIENT 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERF LOC OBJECT CODE ADOR STIT 
OB9A 06 OB9A 4613 DC — ALICQHDWSC) «—-dDISP! SCENT TO DESIRED QUEUE HEADER oBfF C2 01 6750 fb? 
0B9B 00 OB9B 4614 DC ALICACECHAIN-1) DI: ACEMENT TO QUEUEING FIELD 63 * 
OBS 40 OB9C 4615 DC ALICO+SYS+0+0) S¥Siéi QUEUE FUNCTION OCD3 #4 00 03 4664 
4616 *** END OF EXPANSION ** OLDS 48 OCS 4665 
OB9D F2 87 18 4617 J CONTINUE SET UF Ocor BO 9007 4666 
ae? 
OBAO BA 44 37 4619 ATOOO260 SBN  TUBATTR3(, .JB2), TUBIMI+TUBS IMI] SET+SAVE IMPLOI7 INWaBSSO 19000 OC3E B5 0: 24 46bE F 
OBA3 BB O83 3A 4619 SBF TUBATTR6(, TUB2), TUBMRDTA SET OFF MRT DATA 05° 90000 OCOB 7 42 9 Abb 
OBA6 BA 40 01 4620 SBN TUBCOMPL (, TUB2), TUBSCRPL MAPK TUB COMPLETE 05 90000 OCDE 509. 17 33 a 70 
as OBO 75 07 96 8491 ATOMDNIAS 1 arciTrpoar afi} reeasz woo. TCR KE Wyk. reo ion re oop At 


0002 197 CSBNCLOS EQU = X‘02' CSB HAS BEEN CLOSED 


0001 198 CSBNIIOB EQU  X‘01 CSBDIOS” CALC WITH ONE 108 0016 252 CSL 
0018 253 CSB0 
0009 200 CSBDSCa EQU CSBDAT3+2 SDLC COMMON AREA ADDRESS 0019 254 CSBD 
QOOA 201 CSBDLST EQU CSBDSCA+1 LINE STATUS BYTE OO1A 255 CSBD 
0080 202 CSBNORWS EQU_X'80" TERMV/DET FOR RUS 0080 _256 CSB 
0040 203 CSBMOPER EQU X"40° TERN/DET FOR PEER oT * 
0020 204 CSBMDSFS EQU = X'20' TERM/DET FOR SNA FINANCE 0040 258 CSBM 
0010 205 CSBNDST EQU_X"10" TERM/DET FOR STATION TEST 0020 259 CSBR 
0008 206 CSBNTRM EQU X'08' TERMINATE ISSUED 0010 260 CSBNM 
0004 207 CSBNSL EQU X'04' SHARABLE LINE 0008 261 CSBM 
208 * EQU X‘02' RESERVED 0004 262 CSB 
209 * EQU K‘OL' RESERVED 263 CSB 


FO2 
11/81 12/08/81 21:20 PAGE 143 V09/11/81 12/08/81 21:28 . 
1 
CROSS-REFERENCE 
O2|SYMBOL T LEN VALUE DEFN REFERENCES O2/SYMBOL oT LEN VALUE DEFN — REFEREN 
0026 1087 RAFA C001 OO1A 4078 
0028 1088 Q3}RALLOC C001 O00C 4064 
€ 001 002A 1089 RBSARR C001 0007 1800 1801 
“> € 001 002C 1090 RBSCHAIN C 001 0001 1797 1798 4 
C001 002E 1091 OA|RBSIAR C001 0009 1801 1802 4 
QHOQUAIL C 001 0092 1138 RBSINL1 C001 OOOE 1805 1806 
QHDRFILK C 001 0052 1110 RBSINL2 C001 OOOF 1606 1807 
1139 O5{RBSINL3 C001 0010 1807 1808 
1140 RBSINL4 C001 OO11 1808 1809 1 
RBSLEN C O01 OOl2 1809  4199* 4 
06 4255 4 
4480 4 
4690 4 
4334 4520 07 4866 


RBSPMR CC 001 OO0A 1802 1803 
RBSPSR C001 OO0B 1803 1804 4 
OS/RBSRQ C001 000D 1804 1805 
RBSTLEN C O01 0030 1812 4508 4 
RBSWORK C001 O02F 1811 1812 
OOJRBSWORKS C 001 0012 1810 4556 4 
RB$XR1_ C001 G 2 1798 1799 & 
= i RBSXR2 C001 0005 1799 ©1800 4! 
10} RB1 € 001 0001 4147 4511" 4! 
RBZ C 001 0002 4148 —4198* 4) 


4252 41 
Bl 42934: 
4526 45 
41974 
1 4897" 48 


RCHKPT C001 0030 4100 
RCLOSE C 001 0003 4055 
13} ACPO C001 002 4096 
RCPERR C 001 0010 4081 4853 
RCPRT C001 0015 4073 
14jRCPTC = C:001 «OIF §=4083 
RCTMINT C001 003D 0627 
RDALOC C001 000D 4065 
J5IROMCALL = 001 0013 4071 
REDJ £001 0004 4056 
REXTND C001 O02E 4098 
C 001 JO{REXTNP C001 003B 4111 
QSPEC C001 0009 2480 REXTRA C001 0037 4107 
QSYSREQ C 001 0004 2467 RFIND C001 0001 4053 
17}QTOEXN C001 0008 2469 T7/RFINDLIB C 001 0019 4077 
QUEUE C001 0000 1054 PGLFAC C001 003A 4110 
QUAIT = € 001 0001 2463 2478 2430 4584 4594 5102 RGLFR C001 0039 4109 
1O}QXLUFF C001 0004 2466 4594 4745 5102 LQRICDA «C001 «0032 4102 
QXR2 C001 0020 2474 RICDB C001 0033 4103 4561 


QXU C 001 0040 2475 RiCDC C001 0034 4104 
19} QO C001 0000 2476 4192 4215 4612 4624 4647 4664 4322 4830 4836 4909 4929 49427 TQRICDD C001 O03D 4113 
5105 RINFO = C 001 OO0F 4067 
C 001 RIGERR C001 0020 4097 
0 
£02 


#SWAT TCB ATTACH TRANSTENT 


SSVAT CB ATTACH TRANSIENT PAGE 107 VO9/11/81 12/08/81 21:28 


12/08/81 21:28 


/11/81 


01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT | 


02|  OBFF C2 01 0250 4662 LA NUSCPTCB+TCBTTC-1, XR XRI-> CP’S TIC ECB 05430000 4678 
1663 * POST DEV-GHOTTC, PREMPT-NO POST HIS TTC 05440000 4679 
0CO3 F4 00 03 9664 SVC SVCPOST, Q0 9680 | 
03} 0C06 48 0C06 4665 DC ALICQHDTTC) 4681 | 
05170000 0C07 80 OCO? 4666 DC _ALICPREEMPT+0+0) 4682 
4667 *** END OF EXPANSION ** 4683 
05199000 | 04) © 0CO8 B5 01 24 4668 ATO0O287 L —-TUBTCBC, TUB2), TCB1 ARI-> TUB 

05190000 OCOB 7A 42 00 4669 AT000Z90 SBN _TCBSTAT}(, TCB1), TCBNOIO+TCBSWAPD SET ON NO I/O AND SWAP 05490000 685 

05200000 OCOE 5C Ol 17 33 4610 MVC TCBCRBC2, TCB1), ATSVRBaC, TCB1) MOVE IN RB ADDRESS 05500000 OCIB 35 O2 0141 #686 
0500600 | 05] OC12 1C 01 OO0E 18 4671 MVC NUASCA*SCAMAXRG(2), TCBAXR2(, TCB1) MOVE IN SSWAP/MAX. RG 05520000 4687 


Aeon 4c fw wn 4 gh des 


AL ANIIND Aak7y> ® Pore a Pee ee ene 


oe 
250 RRERAERARARARARR RAR IRR RRR IIR III IR IR TEPER IIR ROPER IOI TOR TT IOI IIR IO 


SDLC COMMON AREA ADDRESS 

SNA COMMON AREA ADDRESS 

END OF MON CSB FOR #SNAl 

SNA STATUS BYTE 1 

REQDISCONT ( REQUEST DISCONTACT 


252 CSBDSDCM EQU 
253 CSBDSNAC EQU 
254 CSBOMONE EQU 
255 CSBDSTB1 EQU 
256 CSBNRQYS EQU 


CSBOMDSS+2 
CSBDSOCM+2 
CSBDSNAC+1 


257 * * SPECIFIED ) - YES 
258 CSBMRQNO EQU 


REQDISCONT - NO 

CSBOMIC CONTAINS TEBa INDICATOR 
USER IS WAITING ON A CHECK 

LU CONFIGURED AS SINGLE LOGICAL UNIT 
CSB AT PRE-INIT STAGE 


259 CSBNTEBI EQU 
260 CSBNUWCK EQU 
261 CSBMCSLU EQU 
262 CSBMPINT EQU 


263 CSBMUWAT EQU USER IN WAIT STATE 


FO3 
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0} 


CROSS-REFERENCE 


O2|SYMBOL T LEN VALUE DEFN — REFERENCES O2)SYMBOL =T LEN VALUE DEFN 


RLIBRY C001 000A 4062 
C 001 000C 4064 O3)RLOPEN C001 0016 4074 
C001 0007 1800 1801 ROFFLINE C 001 0027 4091 
1797 «17984867 ROPEN C O01 0002 4054 

C 001 0009 1801 1802 4522* O4|/RPGHLT C001 0012 4070 
1806 RPRALGN C001 0014 4072 
RPRAZ C061 OO2R 4095 
OS/RRDDM == O01 0041 4117 
RRSVDOO C001 0000 4052 
RSALOC ~C 001 O00F 4066 


C 001 OO1A 4078 


04 RBSIAR 
RBSINL1 C001 OOOE 1805 


O5/RBSINL3 C001 0010 1807 1808 
RBSINL4 C001 O01] 1808 1809 1810 1811 4518* 
RBSLEN C001 0012 1809  4199% 4212 4238 4242* 4243* 4244* 4245* 4246" 4247 4252 4254 4254* 


107 VO9/11/81 


12/08/81 21:28 


06 4255 4255* 4261 4262 4265* 4276 4277 4289 4292* 4293 4390 4423 O6)RSETX C001 0020 4084 
4480 4481 4515 4515 4515* 4522 4524 4526 4528 4529 4535 4547 RSGET C001 0008 4060 
4690 4713 4717 4723 4736 4742 4788 4789 4797 ~4814* RSIN C001 0007 4059 
07 4866 O7IRSLIST C001 0008 4058 
RBSPMR C001 OO0A 1802 1803 RSLOG =C 001 0005 4057 
RB$PSR C001 0008 1803 1804 4521* RSMFC = C O01 «003C 4112 
OS}RB$RQ C001 OOD 1804 1805 OSIRSNSG ==C 001 0009 4061 
RBSTLEN C 001 0030 1812 4508 4930 RSNAP C -001 «(O01] 4069 
RBSWORK C 001 OO02F 1811 1812 RSORT C001 0036 4106 
OSIRBSWORKS C 001 0012 1810 4556 4557* 4563* OOIRSPALC C001 OOIC 4080 
RBSXR1 C001 G 3 1798 1799 4520* 4878* 4898 4899 RSPMIC C001 0031 4101 
1800 4519 4519* 4868 4879* 4900 4953 RSPOOL =~C 001 OO1B 4079 
10} RB) C001 0001 4147 4511" 4515 4515 4516 4518 4519 4520 4521 4522 4689* 4690 4927" LO}RSPQMG «C001 0043 «4119 
C001 0002 4148 —4198* 4199 4207* 4212 4237 4238 4242 4243 4244 4245 4246 4247 RSVNR = 001 0022 4086 
4252 4254 4254 4255 4255 4261 4262 4265 4276 4277 4289 4292 RSVIX C001 0035 4105 
ll 4293 4389* 4390 4422* 4423 4479* 4480 4481 4517" 4519 4522 4524 1YRSUSON «C001 «0018 4076 
4526 4528 4529 4535 4547 4708* 4735* 4741* 4742 4787" 4788 4789 RTALLOC A004 OF7D 5068 
4797 4810* 4814 4817 4863* 4864 4366 4867 4863 4877* 4878 4879 RIDEALL A004 OfD6 5004 
12 4897* 4898 4899 4900 4952* 4953 12] RTTC C 001 OO1E 4082 
C 001 0030 4100 RUPDAT C001 002F 4099 
C001 0003 4055 RVTOCFD C001 OOOB 4063 
13] RCM C001 002C 4096 13]RVTORD C001 9010 4068 
C001 0010 4081 4853 RUDAF C001 0024 4088 
C001 0015 4073 RUDCP «C001 «(002A 4094 
1 C 001 OO1F 4083 14/RUDDA = C:001 «0026 ©4090 
C 001 003D 0627 RWODB C001 «0071 4085 
C 001 000D 4065 RUDDG = C :001 0023-4087 
15]ROMCALL C001 0013 4071 15|RWDDH = C001 «0028 «4092 
C 001 0004 4056 |RUDDL C001 0038 4168 
C 001 O02E 4098 RUDD = «C:001 «0025 4089 
J6}REXTNP C001 003B 4111 16]RUDDQ = «C001 «0029 4093 
C 001 0037 4107 RUDDT «C001 «003F 4115 
C001 0001 4053 RUDDU «= C «001 ««ON3E 4114 
17{RFINDLIB C 001 0019 4077 17/PHOHH = «C001 «0042 «4118 
C 001 003A 4110 RUEGE = C001 0040 4116 
C001 0039 4109 RUSOM =~ «C «O01 «0017-4075 
18}RICDA C001 0032 4102 JOIRXTEND «C001 0043 41200 
C 001 0033 4103 4561 SCAPOWDM C001 0083 2277 =z 
€ 001 0034 4104 SCA#ICDN C 001 00B3 2278 
19|RICDD C001 003D 4113 19} SCAMMDBO C 001 OOAD 2274 
C 001 OO0F 4067 SCAMDB1 C001 OOAF 2275 
C001 0020 4097 SCADB2 C001 0081 2276 
0 


#SVAT TCB ATTACH TRANSIENT 


E03 


PAGE 108 09/11/81 


12/08/81 21:28 


#SVAT TCR ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADD 
4673 RARRKARARARER AA RERRRERE RARE RE REE RER EKER RARE RES RERERER IRAE EAE IBN AD FO) 0C63 B5 02 17 
4679 * NOW FIRST CALCULATE THE NUMBER OF TRACKS NEEDED FOR A SWAP — aa290 OC66 77 00 14 
4680 * AREA FROM THE NUMBER OF 2K REQUIRED FOR THE ATTACHING TASK.  aaz90 OC69 F2 31 OF 
4631 * THEN RETURN TO CALLER WITH THE NUMBER OF TRACKS TO aa290 
4682 * DEALLOCATE/ALLOCATE. THEN DEALLOCATE OLD/ALLOCAT® NEW. 88290 OC6C 75 01 15 


4683 AERR RARE REAR RRR RRRRERIERERRERERR KERR ERA RRER RARER RRR RR ARE REAR RATERS 79) OC6F 74 10 63 
0C72 BS 20 27 
SWAP 4685 * TCBa_R-TCB2 XR2->CURRENT TCB aa290 05523180 OC75 F2 90 03 


OC1B 35 02 0141 


4686 L 321, TCB2 GET TCB ADDRESS. 


15 303 * * ID IN BSC 1/0 AREA 


¥O9/11/81 12/08/81 21:28 


98 09/11/81 


12/08/81 21:28 


os eh eg nit Satan eg hl SEES. aD APRN TN Tal abit dread Rete tee eta ees Lita stvntin WP y hata Maia lcchdes 


001C 302 CSBDTIDA EQU CSBDIOa+2 * ADDRESS OF SWITCHED TRANSMIT 


0021 304 CSBDLCS EQU CSBDTIOA+5 DISK ADDRESS FOR BSC LINE INIT. XIENTS 


306 RARKKKKRAKKRR ERR ER AK RKAIR IR HR RRR IK RIKI IRE RIKI IIR IRR IOR III IOI TO 


307 * R 
308 *THE FOLLOWING ARE USED BY BATCH BSC AS A PARAMETER LIST TO THE * 
309 *BSC MESSAGE TRANSIENT (#BSMD). THEY ARE USED WHEN CSBDRTNC=x ‘02' * 
310 * x 


BL] RRRRARRRARERRARRA RIA AREA RR RIK EIR ERIK IK IRR RIOR TI RE RR ICT 


313 CSBDBMSI EQU  CSBDLCS+1 MESSAGE INDEX 


314 CSBN2222 EQU = X‘2C* LAST CSB FLAG USED IN TERMINATION 
315 CSBN3290 EQU  X‘20' OPERATOR ANSWER ISG 
316 CSBM3295 EQU  X‘21' OPERATOR DIAL 


317 CSBM3210 EQU  X'22" CLOSE ERROR (0,2,3 OPTIONS) 


Foa 
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CROSS-REFERENCE 


Q2]SYMBOL 1 LEN VALUE DEFN REFERENCES O2| SYMBOL = T LEN VALUE DEFN 


RLIBRY C 001 OO0A 4062 SCAMIDB3 C 001 


O3}RLOPEN C001 0016 4074 03] SCA#ZKNS C 001 


ROFFLINE C 001 0027 SCACKRST C 001 
C 001 SCACONFG C 001 


O4|RPGHLT C 001 04) SCACSATB C 001 
C 001 SCACSIZE C 001 
C 001 SCACSI6K C O01 
O5|RRDDN = C:001 05] SCADMNZK C 001 
C 001 SCADATUB C 001 
C 001 SCADABCT C 001 
O6|RSETX CC 001 06] SCADBSCT C 001 


SCADCFG6 C 001 


10} RSPQMG 4120 10) SCADCPKa C 001 


5057 SCADCPS2 C 001 


4917" 4946 5020* 5066” SCADCPS4 C 001 
4981* SCADCPid C 001 


SCADLBF1 C 007 
17] RWOHH 17] SCADLIN® C 001 
SCADATR C 001 
SCADNCFG C 001 
18} RXTEND C 001 4122 4123 18} SCADMCTR C 001 

2278 SCADMERP C 001 


Fo, a et PT OR ee ee sie see, 


®) Btife &a RolRG BS Bole 8 Bf A 


AY ® BG 


AS AO AY Ru 


SCA#ICDM C 001 SCADNGO! C 001 
19} SCAMDBO C 001 19) SCADNID® C 001 
SCAMDB1 C 001 SCADMNTH C 001 


SCAMNB2 C 001 SCADMOD® C 001 
0} 


£04 


#SVAT TCB ATTACH TRANSIENT PAGE 109 VO9/11/Si 12/68/81 21:28 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


05523040 
05523060 


05523080 
05523100 
05523120 
05523140 


0C63 BS 02 17 4708 ATO00294 L TCBCRBC, TCB2), RB2 POINT TO CURRENT RB 
0C66 79 00 14 4209 CLI TCBJCBa-1¢,TCB1),0 JCBLESS TASK ? 


OCD6 35 02 O04F 
OCDA SE 00 12 OFBA 


#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR, 


0C69 F2 81 OF 470 JE = -AT000295 YES, BYPASS CHECK 


OCéC_75 01 15 4711 L___TCBJCBaC, TCB1), JCB1 POINT TO JCB 0001 05526000 
OC6F 7A 10 63 4an2 SBN JCBDSCH4C, JCB1), JCBMINTK SET ON NON-INIT. ATT. aa001 05526600 
04) 072 B8 20 27 4113 TBN RBSLEN+SATFLAGIC, PRM2), SATQKINT ATTACHED VIA INIT? aa001 05527200 OCDF F4 02 50 


I9L LOOMOT) CNY 
363 CSBN4694 EQU 
364 CSBM4695 EQU 


ATS 
X'F4" 
XFS" 


1 12/08/81 21:28 


T LEN VALUE 


02] SYMBOL 


SCADCFG6 C 001 
08] SCADCFG? C 001 
SCADCFG8 C 001 
SCADCFG9 C 001 
09} SCADCFSZ C 001 
SCADCHTR C 001 
SCADCON1 C 001 
10} SCADCPKa C 001 
SCADCPS1 C 001 
SCADCPS2 C 001 
11] SCADCPS3 C 001 
SCADCPS4 C 001 


12] SCADCPYR C 001 


14)SCADDAY C 001 


SCADFIST C 001 
15] SCADHFK C 001 
SCADICSA C 001 
SCADKCFG C 001 
16] SCADKKKa C 001 
SCADKLRC C 001 
SCADLBF1 C 001 
17] SCADLIN® C 001 
SCADMATR C 001 
SCADMCFG C 001 
18] SCADMCTR C 001 


365 CSBN4696 EQU 
366 CSBMZOP EQU 
367 CSBM4697_EQU 
368 CSBN4689 EQU 
369 CSBN4690 EQU 
370 CSBN4698 EQU 
371 CSBN4699 EQU 


X'F6" 
X'F7" 
X'F8' 
X'F9° 
X'FA‘ 
X'FB* 


CROSS-REFERENCE 


REFERENCES 


Dol UNIT LACK UN CNY 

NO CONNECTION NON-SWITCHED LINE 
TEMPORARY LCA PROC CHK 
PERMANENT MLCA PROC CHK 

NO CONNECTION; AUTOCALL (4692 W/ 2 OPT) 
OPERATOR ANSWER REQUIRED 

AUTOCALL TASK NOT ACTIVE ON SYSTEM 
X.21 TASK NOT ACTIVE ON SYSTEM 

CALL ATTEMPT WITH INVALID PHONE LIST 
PHONE PARAMETER ON INVALID LINE TYPE 


FO5 


PAGE 146 09/11/81 


4834 


— 


12/08/81 21:28 


01 


02) SYMBOL 


SCADMQNT C 001 
03) SCADMTUB C 001 
SCADPIND C 001 
SCADPSVC C 001 
04] SCADPTUB C 001 
SCADRE Ja C 001 
SCADREL# C O01 
05} SCADREOJ C 001 
SCADRFTR C 001 
SCADRSCZ C 007 
06} SCADRSEC C 001 
SCADRSPC C 001 
SCADSBFP C 001 
07} SCADSCIM C 001 
SCADSDLP C 001 
SCADSDLS C 001 
08] SCADSECA C 001 
SCADSECZ C 001 
SCADSEUA C 001 
09} SCADSEUQ C 001 
SCADSLOG C 001 
SCADSLOT C 001 
LO}SCADSNAT C 001 
SCADSNA] C 001 
SCADSNA? C 001 
L1}SCADSPIa C 001 
SCADSQS C 001 
SCADSSCS C 001 
12] SCADSSIO C 001 
SCADSSJQ C 001 


4592 4632* 
2065 4778" 


SCADSSMS C 001 
13] SCADSSPF C 001 
SCADSSPR C 001 


SCADSSWC C 001 
14) SCADTBUF C 001 
SCADTKSZ C 001 
SCADTLOK € 001 
15) SCADTRSZ C 001 
SCADUCFG C 001 


2068 


SCADUDTI C O01 
16) SCADUDT2 C 001 
SCADUDT3 C 001 


4758 


SCADUDT4 C 001 
17} SCADVICE C 001 
SCADWOBR C 001 


SCADWDBT C O01 
18} SCADWRKA C 001 
SCADUSQS C 001 


19] SCADMID# C 001 
SCADMNTH C 001 


SCADXMID C 001 
19) SCADXMI1 C 001 
SCADXMI2 C 001 


SCADMOD# C 001 


81 12/08/81 21:28 


01 


ERR LOC OBJECT CODE 


#SVAT CB ATTACH TRANSIENT 


ADDR STMT SOURCE STATEMENT 


£05 
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SCADXSLT C 001 
0} 


01 


T LEN VALUE 


SSVAT TCB ATTACH TRANSIENT 


REFERENCES 


2195 


2017 


4642 


4970 
4632 


2350 


2275 


2312 


ERR LOC OBJECT CODE ADDR STMT SOUR 


05524200 | 02] OCD6 35 02 004F 4758 ATO00360 L NUASCA+SCADLBF 1,2 POINT TO SYS. LIBR. Fl 05980000 | 02} 0037 OC 00 O04B oD4D 4806 
05524800 OCDA SE 00 12 OFBA 4759 ALC FIADLBUS(1,2), ATCONONE INCREMENT USE COUNT 0030 OC 00 OD4A OD4D 
05525400 4160 * 0043 OF 02 0D4D OFBO 4808 
03 4761 * TURN ON SYSTEM IN USE LITE 06010000 | 03) 0049 4C 00 00 0200 4809 ATOO 
05526000 4162 * OD4E 75 02 17 
05526600 4763 * LITES CS-ON, Q-QNREF DON'T ALLOW REFRESH  @185 4811 * 
05527200 | O4|  OCDF F4 02 50 4764 SVC SVCCXNT, QNREF 4812 * 
05527800 OCE2 09 OCE2 4765 OC XL1‘09' TRANSIENT ID 4813 * 
OCE3 £2 OCE3 4766 DC = AL1(0#X"02"+X‘50") INDICATOR BYTE OD51 8C 12 24 OFD1 4814 
05528400 OCE4 00 OCE4 4767 DC XLI'0' NOT USED 05] 0056 4C 01 21 OFB2 4815 
4768 *** END OF EXPANSION ** OD5B 7C 14 60 4816 
OCES 34 01 OFS4 4769 ST ATTCB, TCB] STORE TCB ADDRESS ODSE E2 02 12 4817 
06] OCE9 7D F6 6B 4770 CLI TCBTSKIDC, TCB1), TCBIDSDP RWS SDLC TASK ? 06) 0061 74 02 1F 4818 
OCEC F281 18 4771 JE AT000365 YES, DON'T INCREMENT @a093 0064 £2 02 07 4819 


‘11/81 12/08/81 21:28 


9/11/81 12/08/81 21:28 


F06 


PAGE 147 VO9/11/81 12/08/81 21:28 


01 


CROSS-REFERENCE 


T LEN VALUE DEFN = REFERENCES 


02 


SYMBOL 


SCADXSVC C 001 

(03) SCADXTRA C 001 

SCADYEAR C 001 

SCAFVTOC C001 

O41 SCAFVTON C 001 

SCAHFCUR C 001 

SCAHFERR C 001 

2194 2195 2199 05} SCAHFSIZ C 001 

SCAIPLWK C 001 

SCAIPLWI C 001 

06] SCAIPLW5 C 001 

SCAIPLWG C 001 

SCADSBFP C 001 SCAIVTOC C 001 
O7/SCADSCIM C 001 007D 2121 2122 O7]SCAIVTON C 001 
SCADSDLP C 001 O09E 2210 2212 SCALOGSS C 001 
SCADSDLS C 001 009D 2209 2210 SCAYACDP C 001 
O8}SCADSECA C 001 0076 2094 20% 08] SCAMACDV C 001 
SCADSECZ C 001 0080 2124 2125 SCAMACNG C 001 
SCADSEUA C 001 0057 2013 2014 SCATACSP C 001 
09] SCADSEUQ C 001 0059 2014 2015 2017 09} SCAMACUI C 001 
SCADSLOG C 001 005A 2017 2021 SCAMACU2 C 001 
SCADSLOT C 001 OO8A 2130 2132 SCANACU3 C 001 
4642 4644 10] SCAMACU4 C 001 

SCAMALL C 001 

SCAMARNR C 001 

11] SCAMATBS C 001 

SCAMAUTO C 001 

SCAAXRG C 001 

12] SCADSSIO C 001 12]SCAMBADG C 001 
SCADSSJQ C 001 0044 1988 1990 SCABSCA C 001 
SCADSSNS C 001 0029 1973 1974 SCANBSV C 007 
3]SCADSSPF C 001 0009 2370 13] SCAMCCHK C 001 
SCADSSPR C 001 0047 1990 1998 SCACFER C 001 
SCADSSVC C 001 0005 1831 1833 SCAMCFGS C 001 
14|SCADTBUF C 001 0097 2199 2201 14] SCANCLOG C 001 
SCADTKSZ C 001 OOAA 2261 2263 4970 4987 5033 SCAMCLOK C 001 
SCADTLOK C 001 0002 2161 4595 4632 SCAMCMDE C 001 
15]SCADTRSZ C 001 009A 2205 2207 15] SCAMCNAT C 001 
SCADUCFG C 001 0006 2348 2349 2350 2351 2352 2368 SCAMCOUT C 001 
SCADUDT1 C 001 00D5 2349 SCANCPAF C O01 
16] SCADUDT2 C 001 00D3 2350 16}SCANCPL C 001 
SCADUDT3 C 001 SCAMCRAN C 001 
SCAMCRT C O01 

J7|SCADVICE C 001 17|SCAMDATE C 001 
SCAMDCKF C 001 

2276 2277 2284 SCANDEAD C O07 

18] SCADWRKA C 001 O00AS 2237 2239 18] SCAMDELE C 007 
SCADWSQS C 001 0098 2201 2203 SCADFA C 001 
SCADXMID C 001 O0C2 2300 2302 2312 2322 SCADON C 001 
19{SCADXMI1 C 001 00C1 2302 19} SCAMDPOK C 001 
SCADXMI2 C 001 00C2 2312 SCAMDPUS C 001 
SCADXSLT C 001 SCAPDREC C 001 


£06 


PAGE 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02] SYMBOL = T LEN VALUE 


0003 
0078 
0050 
OO1E 
0020 
0035 


#SVAT TCB ATTACH TRANSIENT 


REFERE! 


2108 
2043 
1965 
1967 
1983 


1981 


1968 
1970 
1973 


1856 4 


1942 


ERR LOC OBJECT CODE ADDR STMT | 


TCBCRB(, TCB1), RB2 


02] 0037 0C 00 0D4B 0D40 4806 MVC ATO00366+2(1),ATO00366+4 © MOVE OFFSET TO INSTRUCTION 06167500 | 0 4859 | 
0030 OC 00 OD4A 0D40 4807 MVC AT000366+1(1),ATO00366+4 = MOVE LENGTH-1 TO INSTR. 4860 | 
0043 OE 02 0040 OFBO 4808 ALC AT000366+4(3), ATMAP ADD CONSTANT TO OFFSETS ODA? 35 02 0141 4861 

03} 0049 4C 00 00 0200 4809 ATO00366 MVC © #(#,TCB1),NUASCA*NUGCPTCB+# MOVE IN CP'S ATRS 06169000 | 0. 862 
OD4E 75 02 17 4810 ATO00367 L POINT TO ASSIGNED RB 06170000 ODAB B5 02 17 4863 


O46! §=0N61 74:07 1F 4819 CT = TreRaraRe Teri) yp? CTNDE AC NEL! cnatton: anno ASAP AAAA 


ODAE 2C 03 OFDS 26 
04 4812 * MOVE BOOTSTRAP CODE TO START TASK TO THE ASSIGNED RB 0DB3 35 01 OF84 
4813 * 06200000 ODB7 B9 80 27 
0051 8C 12 24 OFDI 4814 MVC RBSLEN+ATMLEN-1CATMLEN, RBZ), ATMCODE+ATMLEN-1 MOVE IN COD 06210000 
05] 0056 4C 01 21 OFB2 4815 MVC TCBAPSHR(2, TCB1), ATPMRR MOVE IN PMR VALUE 06220000 
OD5B 7C 14 60 4816 MI TCBTQE+TQEFLG1+1-TQELEN(, TCB1), TQEREAL+TQEBIN INIT. FLAG 
ODSE £2 02 12 4817 LA RBSLENC, RB2), XR2 POINT TO LOADER CODE 


VO9/11/81 12/08/81 21:28 


02] SYMBOL = T LEN VALUE DEFN 
SCADXSVC C 001 0003 1830 
03)SCADXTRA C 001 0078 2098 


SCADYEAR C 001 0050 2042 


SCAFVTON C 001 0020 1965 
SCAHFCUR C 001 0035 1981 
SCAHFERR C 001 0080 2022 
SCAHFSIZ C 001 0033 1980 
SCAIPLUK C001 0060 2065 
SCAIPLW1 C 001 006B 2066 
SCAIPLW5 C 001 0095 2194 
SCATPLW6 C001 0059 2015 
SCAIVTOC C 001 0022 1967 
O7|SCAIVTON C 001 0023 1968 

SCALOGSS C 001 0027 1971 

SCAACDP C 001 0004 2140 

SCAMACDV C 001 0010 2138 


05) 


06 


SCAMACU3 C 001 0002 2185 
WSCAMACU4 C 001 0001 2186 
SCAMALL C001 0040 2075 


13] SCAMCCHK C 001 0040 2033 
SCAMCFER C 001 0020 2157 


PAGE 148 VO9/11/81 12/08/81 21:28 0 
1 


CROSS-REFERENCE 


02) SYMBOL = T LEN VALUE 


REFERENCES 
SCADSIZ C 001 
03] SCAMDSKS C 001 
SCAMDUAL C 001 
SCANEDDM C 001 
SCAMEJCT C 001 
SCAMERP C 001 
SCAYFAIL C 001 
05] SCAMFLOC C 001 
SCAMFORX C 001 
SCANFUND C001 
06] SCAMHALC C 001 
SCAMHDEL C 001 
SCAMHELP C 001 
O7|SCAMHEMT C 001 
SCAMHLDP C 001 
SCAMHVS2 € 001 
O83} SCAMHURP C 001 
SCAMICR1 C 001 
SCANICR2 C 001 
OO|SCANICS C 001 
SCAMIEXC C 001 
SCANIOCL C001 
JO}SCAMIPL C 001 
SCANIPLA C 001 
SCAMIPLC C 001 
1L{SCAMIPUP C 001 
SCANJOBQ C001 
SCANJQFN C O01 
12] SCAMJQHD C 001 
SCAQS C 001 
SCAMKEYS C 001 
13] SCAMKKKF C 001 
SCANKNSG C 001 


2108 


1967 04 


1981 


1968 


1970 
1973 


1856 4326 4671" 


1942 


AISCAMCLOG C 001 0010 1936 
SCACLOK C 001 0002 2028 
SCAMCMDE C 001 0001 1920 
SCAMCNAT C 001 0080 1910 


SCAMLATF C 001 
14) SCAMLCAF C 001 
SCAMLGER C 001 


SCANLINI C 001 
15] SCAMLINZ C 001 
SCAMLIN3 C 001 


SCALING C O01 
16} SCAMLSMF C 001 
SCAMLOTR C 001 


SCAMLOTX C 001 
17|SCAMLITR C 001 
SCAMLITX C 001 
SCAML2ZTR C 001 
18] SCAML2TX C 001 
SCAL3TR C 001 


SCAML3TX C 001 
19} SCAMLATR C 001 
SCAML4TX C 001 


1 VO9/11/81 12/08/81 21:28 
ERR LOC OBJECT CODE 


#SVAT TCB ATTACH TRANSIENT 


SCANNID32 C 001 
0 


£07 


PAGE 112 VO9/11/81 12/08/81 21:28 #SVAT CB ATTACH TRANSIENT 


01 


ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR 


4859 *** END OF EXPANSION ** 


ODA? 35 02 0141 


ODAB B5 02 17 
ODAE 2C 03 OFDS 26 
ODB3 35 01 OF8a 
ODB7 B9 80 27 
ODBA BD 00 00 
ODBD B5 02 05 
ODCO F2 91 03 


4860 * TCBa _R-TCB2 XR2-> CURRENT TCB 06400000 OEOF F4 00 11 
4861 L 321, TCB2 GET TCB ADDRESS. 
4862 *** END OF EXPANSION ** 


4863 L TCBCRBC, TCB2), RB2 XR2-> CURRENT RB 

4864 ATSSN+3(4), RBSLEN*+SATSSSN(,RB2) MOVE IN SSN OF NEXT 

4865 L ATTCB, TCB1 POINT TO ASSIGNED TCB 06430000 
4866 TBF _RBSLEN*+SATFLAG](, RB2), SATRFRSH REFRESH ALWAYS ? 06440000 
4867 CLI RBSCHAIN-1¢,RB2),0 ANY MORE RB'S IN CHAIN ? 06450000 
4868 L RB$XR2(, RB2), XR2 LOAD XR2 VALUE PASSED 06460000 
4869 J€ = AT000370.X'91' YES. EVERYTHING SET UP 06470000 


43 09/11/81 


12/08/81 21:28 


12 


¥O9/11/81 12/08/81 21:28 


02] SYMBOL 


SCADSIZ C 001 
03]SCAMDSKS C 001 
SCAMDUAL C 001 
SCANEDDN C 001 
SCANEJCT C 001 
SCAMERP C 001 
SCAYFAIL C 001 
(05/SCAMFLOC C 001 
SCAMFORX C 001 
SCAYFUND C 001 


SCAYHDEL C 001 
SCAYHELP C 001 
O7|SCAYHEMT C 001 
SCAMHLOP C 001 
SCAMHVSZ C 001 
08] SCAMHURP C 001 
SCAMICR1 C 001 
SCAMICR2 C 001 
QSISCAMICS C 001 
SCAMIEXC C 001 
SCAMIOCL C 001 
WSCAMIPL C 001 
SCAMIPLA C 001 
SCANIPLC C O01 
11] SCAMIPUP C 001 
SCAMJOBQ C 001 
SCAMJOFI C 001 
12] SCAMJQHD C 001 
SCANUGS C 001 
SCAPKEYS C 001 
13] SCAMKKKF C 001 
SCAMKMSG C 001 
SCAMLATF C 001 
SCAMLCAF C 001 
SCAMLGER C 001 
SCAMLINY C O01 
15] SCAMLIN2 C 001 
SCAMLIN3 C 001 
SCAMLING C 001 
16] SCAMLSMF C 001 
SCAMLOTR C 001 
SCAMLOTX C 001 
17|SCAMLITR C 001 
SCAMLITX C 001 
SCAML2TR C O01 
18} SCAML2TX C 001 
SCAL3TR C 001 
SCAL3TX C 001 
19] SCAMLATR C 001 
SCANLA4TX C 001 
SCANND32 C O01 


1 


T LEN VALUE 


Wee OT AEA 


468 * 


A WU 


Oil VN = LIVE LULA 


CKEYSORT MAYBE IN PROCESS) 


470 RRRAERRERRARRAERARRERRRIEK RK IR RIOR IER RIOR RIOR RIOR IR TOT IIR IR OO TOO OR IO TO I. 


ani * 
472 * OFF 


THE FOLLOWING BIT MASKS FOR X'80' ARE VALID ONLY IF ‘FIAMINDX' IS 


x 
n 


473 RKRKRIRKKRA RRR ERIK IIR IR IR IOI IR TR IOI OIRO OR TOR ORI OIC TOI I TOI 


0080 475 FLAMSCND EQU 


476 * 


X'80" 


0080 477 FIANSCLB EQU  X'80' 


478 * 


0020 480 FIAWNEW EQU  X‘20' 


0004 481 FIANSPAL EQU 


DEFN 


REFERENCES 


X'04° 


CROSS~REFERENCE 


SECTOR MODE LIBRARIAN FILE 
CIF "FIAMLBFL' 1S OND 
SECURE 1 IBRARY 

CIF FIADRECL = X‘0000") 


BIT ON = NEW FILE 
SPINDLE Al REQUESTED ORIGINALLY 


PAGE 149 09/11/81 


01 


02) SYMBOL 


SCAMMLCA C 001 
O3]SCAMMRJE C 001 
SCAMMISBL C 001 
SCAMODDD C 001 
04] SCAMOTTO C 001 
SCANPIE C 001 
SCAPOVK C 001 
05] SCAMPREP C 001 
SCAMPRT C 001 
SCAMPRIO C 001 
06} SCANPR20 C 001 
SCAYPR40 C 001 
SCAVPREO C 001 
07|SCAMPUSF C 001 
SCAMRBLD C 001 
SCAYRCFG C 001 
08} SCAMRILP C 001 
SCARSEC C 001 
SCANRUAV C001 
09] SCANRUCF C 001 
SCAMRIFT C 001 


12] SCAMSEC C 001 
SCAMSFLG C 001 
SCANSIZE C 001 

13] SCANSJE C 001 
SCANSIF C 001 
SCAMSMFC C 001 

14] SCAMSNEM C 001 
SCANSNA C 001 
SCANSPB C O01 

15] SCANSPGP C 001 
SCAMSPOL C 001 


ERR LOC OBJECT CODE 


4908 *T000380 EXIT 
4909 ATO00380 SVC 
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ADDR STMT SOURCE STATEMENT 


12/08/81 21:28 


SVCEXIT, QO 


4910 *** END OF EXPANSION ** 


SCAMSPRK C 001 
16] SCAMSRJE C 001 
SCAMSST C 001 
SCANSUBS C 001 
17|SCAMSWAP C 001 
SCANS32K C 001 
SCAMS48K C 001 
18] SCANS64K C 001 
SCANS96K C 001 
SCANTACT C 001 
19} SCANTELL C 001 
SCAMTOLD C 001 
SCAMUASF C 007 
Oi} 


T LEN VALUE 


0080 
0040 


ERR LOC OBJECT CODE 


#SVAT TCB ATTACH TRANSIENT 


AD 


OE12 34 08 OFSO 
OE16 3D 00 OF 83 
OE1A F2 81 20 


V09/11/81 


VO9/11/81 


12/08/81 21:28 


12/08/81 21:28 


02) SYMBOL = T LEN VALUE DEFN 


SCAMODDD C O01 0001 2330 
SCAMOTTO C 001 0001 1930 
SCANPIE C001 0002 1939 
SCAMPOVK C 001 0040 2146 
O5|SCAMPREP C 001 0001 2029 
SCAYPRT C001 O0£0 2018 
SCAMPRIO C 001 0001 2366 
SCAMPR20 C 001 0002 2365 
SCAMPR4O C 001 0004 2364 
SCAYPR8O C 001 0008 2363 
O7|SCAMPUSF C 001 0040 1911 
SCAMRBLD C 001 0008 2026 
SCAMRCFG C 001 0002 2257 
QB} SCAMRILP C 001 0020 2325 
SCAYRSEC C 001 0080 2264 
SCAMRWAV C 001 0040 2252 
SCAMRWCF C 001 0001 2258 
SCAMRUFT C 001 0010 2254 
SCAMRINV C001 0020 2253 
1O|SCAMRWS C 001 0008 1927 
SCAMRWSA C 001 0080 2250 
SCAMRWSP C O01 0040 2241 
I] SCAMRWSV C 001 0008 2255 
SCAMS#2K C 001 000D 1852 
SCANSACT C O01 0010 1898 
12]SCAMSEC C001 0002 2080 
SCAYSFLG C 001 0008 1937 
SCANSIZE C 001 0006 1833 
13]SCAMSJE C001 0020 2076 
SCAMSMF C001 0020 1935 
SCANSMFC C 001 0020 2337 
SCANSMEM C 001 0040 1934 
SCAYSNA C001 0010 1926 
SCAMSPB C001 0001 1907 
15]SCAMSPGP C 001 0020 1897 
SCANSPOL C001 0010 1913 
SCAMSPRK C O01 0040 2304 
J6]SCAMSRJE C 001 0020 1924 
SCANSST C001 0008 2078 
SCANSUBS C001 0004 2340 
17]SCAMSWAP C 001 0004 2256 
SCAMS32K C001 0010 1839 
SCAMS48K C O01 0018 1838 
18} SCAMS64K C 001 0020 1837 
SCANS9GK C 001 0030 1836 


1 


520 * BIT 
521 * 
522 *RESERVED 


523 “OFFSET 
524 *RESERVED 
525 “SECTOR NUNBER 


529 * 

530 FIMWIST EQU 
531 * 

532 FIANV2ND EQU 
533 FIAMV3RD EQU 
534 FLAMV4TH EQU 
535 FIAMWALL EQU 


B*00110000' 
B ‘01000000 ' 


CROSS-REFERENCE 


REFERENCES 


YYY YYYYYYYY 


FIRST FORNAT-1 IN SECTOR 419 


aa419 


(ALSO INCREMENTS OFFSET) aaG13 


SECOND FORMAT-1 IN SECTOR 0419 
THIRD FORMAT-1 IN SECTOR 2419 
FOURTH FORMAT-1 IN SECTOR aa419 


FO9 
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1854 4325 


1841 


SCANTACT C 001 0001 2142 
19]SCANTELL C 001 0001 2091 
SCAMTOLD C 001 0002 2090 
SCAMUASF C 001 0002 2341 


ERR LOC OBJECT CODE 


#SVAT TCB ATTACH TRANSIENT 


ADDR STMT SOURCE STATEMENT 


£09 


PAGE 114 V09/11/81 


12/08/81 21:28 


4912 * 


4913 * ON ANY ATTACH ERROR, FREE ALL ALLOCATED RESOURCES AND MOVE 


4914 * THE VALUE OOXX INTO XR1, WHERE XX IS A PREDESIGNATED RETURN CODE 


4915 * 


0E12 4916 ATERROR EQU * 


01 


02} SYMBOL 


SCANVHLD C 007 
03} SCAMMDMR C 001 
SCAMMOPX C001 
SCASCB C 001 
O4/SCAMISE C 001 
SCAMMTC C 001 
SCARKTRA C 001 
05] SCAMK21 C 001 
SCANK21S C 001 
SCANK211 C 001 
06] SCANK212 C 001 
SCANK213 C 001 
SCANK214 C 001 
O7|SCAMYYD C 001 
SCAN0128 C 001 
SCAN0256 C 001 
08] SCAM0512 C 001 
SCAMOS5M C001 
SCAMLFM C 001 
09] SCAMIONE C 001 
SCAM1024 C 001 
SCAN255 C O01 
10] SCAM128K C 001 
SCANL3NG C 001 
SCAMI30N C O01 
11]/SCAM95N C 001 
SCANZFM C 001 
SCAMZMEM C O01 
12|SCAM56K C 001 
SCANZ60" C 001 
SCANZ7NG C O01 
13} SCAN62PC C 001 
SCAN65NG C 001 
SCAOVER C 001 
14) SCARDFNT C 001 
SCARDVOL C 001 
SCASDISK C 001 
15] SCASHIST C 001 
SCASHMSG C 001 
SCASTOSS C O01 
16} SCASMSG1 C 001 
SCASNSG2 C 001 
SCASPARK C O01 
17]|SCASSTWA C 001 
SCASTOPS C 001 
SCASHNSG C O01 
JS] SCASYS C 001 
SCASYS1 C O01 
SCASYS2 C O01 
19|SCATWASZ C 001 
SCAUSERA C 001 


T LEN VALUE 


SCA2KBAD C 001 
0 


ERR LOC OBJECT CODE 


#SVAT TCB ATTACH TRANSIENT 


ADOR S 


0E12 34 08 OF 80 
OE16 3D 00 OF 83 


4917 ST 
4918 CLI 


RTALLOC+3, ARR 
ATTCB~1,0 


SAVE CALLER'S ARR 
ANY TCB ASSIGNED ? 


/8) 


12/08/81 21:28 


rb) 0020 573 FIAPDLTC EQU 
0010 _574 FIAMIFIL EQU 
0008575 FIARGASK EQU 


16 


0025 577 FIADOWNR EQU 
0027 578 FIADEDFQ EQU 


17 


0027 580 FIADRFED EQU 


18 


19 


20} 


02|SYMBOL 1 LEN VALUE ODEFN 


SCAMVHLD C 001 0080 2291 
SCAMMOMR C 001 0004 1915 
SCAMMOMX C001 0008 1914 
SCAMWSCB C 001 0040 2156 
SCAMWSE C 001 0010 2077 
SCAMTC C001 0004 2037 
SCAMXTRA C 001 0080 2099 
SCAMX21 C€ 001 0001 2378 
SCAMX21$ C 001 0002 2329 
SCAMX211 C 001 0088 2188 
SCANK212 C 001 0044 2189 
SCAMK213 C 001 0022 2190 
SCAMK214 C 001 0011 2191 
O7|SCAMYYD C 001 0001 2039 


03 


05 


06 


08] SCAM0512 C 001 0004 2059 
SCAMOGSN C001 0041 1882 
SCAMIFM C001 0010 2057 
SCALOMG C 001 0000 1874 
SCAN024 C 001 0008 2058 
SCAN1255 C001 0080 2135 
10]SCAM128K C 001 0040 1835 
SCAN13NG C001 0001 1873 
SCAMI30" C001 OOC] 1883 
11}SCAMI95M C 001 O0E1 1884 
SCANZFN C001 0020 2056 
SCAM2MEM C 001 0040 2055 
12|SCAM256K C 001 0080 1834 
SCAM260M C 001 00D1 1885 
SCAM27NG C 001 0081 1872 
13]SCAM62PC C 001 0040 1880 
SCAM65NNG C001 0001 1881 
SCAOVER C 001 0020 2024 
SCARDFNT C 001 0067 2051 
SCARDVOL C 001 0066 2049 
SCASDISK C 001 OOOF 1856 
15] SCASHIST C 001 0031 1979 
SCASHMSG C 001 003B 1984 


09 


1 


DELETE CAPABLE FILE 
IMMEDIATE ACCESS FILE CIFILED 
IFILE GAPS ADDED SINCE LAST KEYSORT 


x'20" 
X'10° 
X'08" 


OWNER QUEUE POINTER 
EDF QUEUE POINTER 


FLADATT2+2 
FLADOWNR+2 


END SSS OF RESERVED AREA FREE SPACE 
(3 BYTES) 


FIADEDFQ 
581 * 


583 REKKAKKEKRKAKAKKEKKR ARK RK KRHA AER RRA KER ARK RAK RRR IIIT IR ICR IR IRI II 


584 * 
585 * 
586 * 
587 * 


THE FOLLOWING FIELDS ARE ONLY SUPPORTED FOR INDEXED FILES 


NOTE: THIS AREA MUST BEGIN ON AN 8 BYTE BOUNDARY BECAUSE IT IS * 


FLO 


CROSS-REFERENCE 


REFERENCES 
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2063 
2051 


1887 
1980 
1985 


SCASTOSS C 001 0025 1970 
16]SCASMSG1 C 001 0038 1983 
SCASMSG2 C 001 0041 1986 


1971 
1984 
1988 


SCASPARK C 001 0040 2110 
17|SCASSTWA C 001 O01A 1961 
SCASTOPS C 001 0080 2323 
SCASWMSG C001 003E 1985 
18]SCASYS C001 0000 1824 
SCASYS! C001 005B 2021 


1962 


1986 
1826 
2031 


1829 1831 


SCASYS2 C001 005C 2031 
19] SCATWASZ C 001 O01C 1962 
SCAUSERA C 001 0049 1998 


2042 
1964 
1999 


SCA2KBAD C 001 0008 1841 


#SVAT CB ATTACH TRANSIENT 


ERR LOC OBJECT CODE 


1844 


£10 


ADDR STMT SOURCE STATEMENT 
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12/08/81 21:28 


495G RRRRIR RII RRR IR RI IRR IR IOI RIOR TORII TR IIR TID IA III III III III IIIS INIA I. 


4957 ® THIS SUBROUTINE HAS BEEN ADDED TO FIRST 


07041000 
07041500 


4958 * CALCULATE THE SIZE OF THE REQUIRED SWAP AREA ON DISK 
4959 * AND THEN BRANCH TO THE ALLOCATE SUBROUTINE 


4960 RERRRERKRRIERIRRR IIR IIR III OR IIR TIC IIIOTOIOIOT TOT TTOR T I T OTR. 


0E65 34 08 OESE 


STARTING POINT OF THE SUBROUTINE@A290 
SAVE THE RETURN ADDRESS aa290 


OE65 4962 SWAPSIZE EQU * 
4963 ST _SWSZRTRN+3, ARR 


06] SIX 


07} SNASIZ 


01 


02) SYMBOL = T LEN VALUE 
SCA2KOK C 001 
03) SCAZSPIN C 001 
SCA3SPIN C 001 
SCA4SPIN C 001 
04) SC000100 A 003 
$C000110 A 003 
SETLOW C 001 
05} 
SETNUN CC 001 
SEVEN = C 001 
C 001 
C 001 
C 001 
C 001 
SUBSACQ C001 
SUBSACTV C 001 
03} SUBSALCQ C 001 
SUBSALSQ C 001 
SUBSASF C 001 
QS} SUBSCAN C 001 
SUBSCMPL C001 
SUBSDOD C 001 
10} SUBSDSK C 001 
SUB$EOC_ C 001 
SUBSEOCH C 001 
11/SUBSEOF C 001 
SUBSEOFM C 001 
SUBSEOSA C 001 
12] SUBSEOSN C 001 
SUBSEOX C 001 
SUBSEOXM C 001 
13] SUBSEVOK C 001 
SUBSEXEC C 001 
SUBSFAIL C 001 
14] SUBSFAIN C 001 
SUBSFALV C 001 
SUBSFH C 001 
15] SUBSFMHM C 001 
SUBSGET C 001 
SUBSINV C 001 
16} SUBSNRP C 001 
SUBSNRPV C 001 
SUBSPRAL C 001 
17] SUBSPSTH C 001 
SUBSPTH C 001 
SUBSPTHM C 001 
18} SUBSPUT C 001 
SUBSRCD C 001 
SUBSREL C 001 
19} SUBSSACQ C 001 
SUBSSKIP C 001 
SUBSSPRC C 001 


SI21 
S122 


ERR LOC OBJECT CODE 


02 


03) 


OESF C2 02 OE9A 
0E93 B4 08 3F 


626 RARER 
627 ** TH 
628 ** FA 
629 ** LE 
630 ** OV 


637 ** EXE 
638. *XKRKY 
639 *RRRKD 


REFERENCE 


4239 
4249 
0136 
0188 
0119 
4453 


013 
018 
012 


5065* 
4333 


4576 


3537 
3538 


[er TCB ATTACH TRANSIENT 
01 


ADDR STMT SO 


4976 * 
4977 * 
OESF 4978 DE 


11/81 12/08/81 21:28 


02, 


12/08/81 21:28 


07041000 
07041500 


07042000 
07042500 
07043000 


NIRAANNNH 


625 RERERERKAKRERERE RRA RAKRAKR ARK RRARAARIRIR IIR IR ROR TOR IIR IO IOI RIO ICT 


626 RARKRRAKKARARAKRAERRER ARKH RAR AAR IERIE RARE IRI I IERIE IR IIR FR III I 


627 ** THE FOLLOWING LABELS ARE USED BY $PACK TO INDICATE THAT A SYSTEM ** 


628 ** FAILURE OR PERMANENT I/O ERROR OCCURRED BEFORE $PACK HAD COMP~ 
629 ** LETELY MOVED THE FILE, WHERE PART OF THE FILE MAY HAVE BEEN 
630_** OVERLAYED DURING THE MOVE OPERATION. 


631 ** 
632 ** [F $PACK IS ABLE TO MOVE THE FILE SUCCESSFULLY, THESE FIELDS ARE 
633 ** SET TO ZERO. 


634 ** 
635 ** THE VALUES STORED IN THIS AREA ALLOW $PACK TO RESTART WITHOUT 


636 _** LOSING ANY DATA IF THE ABOVE ERRORCS) SHOULD OCCUR DURING 
637 ** EXECUTION. 


638 RERKKRARKKRKEKERAKA AR RAK ERE AKER KR ARKERKK RRR IRI R IORI RII ICR IRR RIOR IIR ICR IR, 


639 RARERRK RIKKI KR IIR IR IRR IR IIR II IO IRR IORI OO OIRO ROI IIT TOIT 
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CROSS-REFERENCE 


SYMBOL T LEN VALUE DEFN = REFERENCES 02} SYMBOL = T LEN VALUE 
SUBABTRM C 001 0001 


03) SUBAPRNT C 001 
SUBASGNA C 001 
SCA4SPIN C 001 SUBASGNL C 001 
$C000100 A 003 04) SUBATTRI C 001 
$C000110 A 003 SUBATTR2 C 001 
0136 0137 0138 0141 0142 0163 0164 0165 0166 0167 0168 0137 SUBATTR3 C 001 

0188 0189 0190 0206 0207 0210 0211 0212 05) SUBATTRS C 001 


0119 0120 0121 0122 0213 SUBATTR6 C 001 
SUBBFFLG C 001 


06] SUBBFLG2 C 001 
SUBBUBa C 001 
SUBCHAIN C O01 

O7|SUBCMOT C 001 
SUBCMND C 001 
SUBCMOD C O01 

08] SUBCOMP1 C 001 
SUBCOMP2 C 001 
SUBDATAA C 001 

09} SUBDFRSP C 001 
SUBDSAB C 001 
SUBDSAP C 001 

10] SUBDSKa C 001 
SUBECM CC 001 
SUBEFFL C001 

11/SUBEOXR C 001 
SUBFTOD C 001 
SUBGFAL C 001 

12|SUBIARF C 001 
SUBIIS CC 001 
SUBINI C 001 

13/SUBIPS C 001 
SUBJCBA C 001 
SUBLENGH C O01 


SUBSFAIN C 001 14] SUBLIN® C 001 


SUBSFALV C 001 SUBLINI C 001 
SUBLINI C 001 


15] SUBLIN2 C 001 
SUBLOCa C 001 
SUBMDATA C 001 

16] SUBMRDTA C 001 
SUBMSTDY C 001 
SUBNCOM C 001 

17|SUBOPSTS C 001 
SUBOUTL C 001 
SUBPCFGa C O01 

18] SUBQSHDR C 001 
SUBRAHD C 001 
SUBRECL C 001 

19)SUBREL C 001 
SUBRQCD C 001 


SUBSSPRC C 001 SUBSGN C 001 


PAGE 
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#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


003E 
OO1E 
000A 
0035 
0036 


ERR LOC OBJECT CODE 


#SVAT TCB ATTACH TRANSIENT 


REFERI 


3677 


3558 


4572 
4552 


3561 
3602 


3554 


4576 


3555 


3678 
4575* 


4552 


4574 
4572 
3626 


3556 


3679 


ADDR STMT 


4974 * 5012 

4975 * DEALLOC IS CALLED TO FREE UP TASK WORK AREA SPACE. ATALLSZ 07070000 5013 

4976 * CONTAINS THE SS AND TRACK SIZE TO FREE 07080000 5014 

4977 * 5015 

OESF 4978 DEALLOC EQU * 5016 

OESA 4979 USING 0E000010, BAS2 USE AS A BASE AREA OEE2 5017 

NERE C79 09 NFOA aoan 1A Nnonnmin pacr IMAM BACE ocrictco nD79°nnAn NENN &NTa 


704 FSBN 


F12 
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01 


CROSS-REFERENCE 


O2|SYNBOL oT LEN VALUE DEFN REFERENCES Q2| SYMBOL oT LEN VALUE DEFN — REFEREN 


SUBSNUBa C 001 0010 3561 
03] SUBSRES1 C 001 0019 3609 3610 
SUBSRES2 C 001 OO1A 3610 3611 3 
SUBSRES3 C 001 OO1B 3612 3613 
O4| SUBSRES4 C 001 O01C 3613 
SUBSRQ C001 0002 3661 
SUBSSBa C001 O00C 3558 = 3559 
5} SUBSTPJ C 001 0004 3633 
SUBSTSKI C 001 0014 3602 3604 
SUBTCB C001 0024 3619 3620 
06] SUBTSUBa C 001 0010 3562 


SUBABTRM C O01 
03] SUBAPRNT C 001 
SUBASGNA C 001 
SUBASGNL C 001 OO00A 3557 3558 
04] SUBATTRI C 001 
SUBATTR2 C 001 
SUBATTR3 C 001 0037 3643 4572 4574% 
5) SUBATTRS C 001 


3562 3564 SUBUSER C 001 O02F 3623 
SUBCHAIN C 001 0013 3601 3602 SUBUTSKI € 001 0025 3620 3621 4 
O7|SUBCMDT C 001 0020 3630 QO7|SUBWSID C 001 0020 3616 
SUBCMND C001 0004 3540 3554 SUBWSWA C001 0022 3617 3618 
SUBCMOD C001 0003 3525 SUBXCHNA C001 OO1C 3611 3614 
08} SUBCOMP1 C 001 0001 3514 4576 O8|SUBXFACT C 001 0016 3604 3608 
SUBCOMP2 C 001 0002 3520 SUBXPRL C001 0045 3679 3681 
SUBDATAA C 001 0006 3554 3555 SUBXPRMa@ C001 0018 3608 3609 
09} SUBDFRSP C 001 0001 3596 09] SUBXSCRA C 001 O00E 3559 3560 
SUBDSAB C001 0002 3634 SUBO412 C001 0040 3668 
SUBDSAP C 001 0040 3629 SVCASGN C001 O00A 2404 
1O}SUBDSKA C001 0041 3677 3678 10} SVCASSGN C 001 0006 2400 4224 45 
SUBECM C 001 0000 3508 — 4575* SVCCOMM C001 0044 2450 
SUBEFFL C 001 0008 3556 SVCCXNT C001 0050 2454 4764 
1I}SUBEOXR C001 0020 3659 4552 L1|SVCDSPCH C 001 0027 2434 
SUBFTOD C 001 0008 3632 SVCDUMP C001 0022 2429 
SUBGFAL C001 0001 3635 SVCEXIT C001 0011 2411 4909 51 
12|SUBIARF C001 0010 3648 12|SVCFD C001 0040 2446 
SUBIIS C001 0080 3645 SVCFREE C001 0007 2401 4215 49 
SUBIMI C001 0040 3646 © 4574 SVCFREEP C 001 0013 2413 
1B}SUBIPS C001 0020 3647 4572 ]3)SVCGETP C001 0012 2412 
SUBJCBA C 001 0032 3625 3626 SVCGPOST C 001 0001 2395 4638 49 
SUBLENGH C 001 0048 3690 SVCGWAIT C 001 0000 2394 
14] SUBLIN® C001 0038 3651 J4}SVCIOXNT C 001 0045 2451 
SUBLINI C001 0000 3653 SVCISEC C001 0008 2402 
_ SUBLIN] C001 0001 3654 SvCIO. §=C 001 (0041 2447 
15] SUBLIN2 C 001 0002 3655 15]SVCKBTR C 001 O05C 2458 
SUBLOCA C 001 0027 3621 SVCLDATR C 001 O00C 2406 
SUBMDATA C 001 0010 3640 SVCLOAD C 001 0052 2456 5102 
16] SUBMROTA C 001 0008 3671 16]SVCLOG C001 OO1A 2420 
SUBMSTDY C 001 0080 3639 SVCMOVEI C001 002A 2437 
SUBNCOM C001 0004 3670 SVCOP C001 OOF4 2482 
17) SUBOPSTS C 001 0030 3624 17}SVCPAR §=C 001 000D 2407 4192 
SUBOUTL 001 0008 3555 3556 3557 SVCPOST C001 0003 2397 4647 46 
SUBPCFGA C 001 0022 3618 SVCPOSTA C 001 0019 2419 
18] SUBQSHDR C 001 0034 3626 18} SVCPOSTI C 001 002B 2438 
SUBRAHD C 001 0080 3667 SVCPPSVC C001 000B 2405 4634 48 
SUBRECL C001 0043 3678 3679 SVCPQSVC C 001 O04C 2452 
19]SUBREL C001 0004 3660 19}SVCPREP C001 0026 2433 
SUBRQCD C 001 0020 3669 SVCPRIQ C001 0024 2431 4843 
SUBSGN C001 0010 3631 SVCPT C001 0042 2448 
20 0 
E12 


#SVAT TCB ATTACH TRANSIENT 


59711781 12708781 


#SVAT TCB ATTACH TRANSIENT PAGE 117 WO9/11/81 12/08/81 21:28 


21:28 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT 5 


07060000 {02 5012 * 07326300 |02|  OF6C 6C 02 A4 3D 5060 
5013 * ALLOC IS CALLED TO ALLOCATE TASK WORK AREA SPACE IN A CONTIGUOUS OF70 DO 81 OC 5061 
5014 * FASHION ACCORDING TO THE TRACK SIZE PASSED [N ATALSIZ. THE 07340000 

07090000 |03 5015 * ALLOCATED $S 1S RETURNED IN ALSSS. 07350000 |03 5062 » 
5016 * 07340000 5063 » 


DL UN = SC o1UN LIGRART Fob 1) 
BIT ON = FILE HAS BEEN KEYSORTED 


19 WAY 909 FOOPONLD EQUA LUD 
0008 686 FSBMKEYS EQU  X'‘08" 


0004 687 FSBMUSED EQU = X'04' BIT ON = DTF ASSOCIATED WITH THIS FSB 


1 0002 688 FSBMLBST EQU X‘02' BIT ON = LIBRARY FSB CREATED BY A 1 
689 * LIBRARY STATEMENT 
690 * EQ X‘O1" RESERVED 
15 15 
000C 692 FSBDFCHN EQU  FSBDATT2+2 FORWARD CHAIN POINTER 
16 OOOE 694 FSBDFIPT EQU FSBDFCHN+2 — FORMAT-1 POINTER 16 


ATTRIBUTE BYTE THREE 


OOOF 696 FSBDATT3 EQU  FSBDFIPT+1 
BIT ON = FILE HAS BEEN OPENED 7 


1? 0080 697 FSBMOPD EQU X's0' 


BIT ON = FILE HAS BEEN CLOSED 


0040 698 FSBMCLD EQU X‘40' 
0020 699 FSBMCOMP EQU  X‘20' 
18 0010 700 FSBMOLMV EQU = X'10' 
0008 701 FSBMIPT EQU  X‘03' 
0004 702 FSBMOPT EQU X‘04' 
19 0002 703 FSBMUPD EQU Xx‘02' 
0001 704 FSBMADD EQU X‘Ol' 


BIT ON = RESERVE AREA COMPRESS REQUIRED 

BIT ON = OFF-LINE MULTI-VOLUME FILE 19 
BIT ON = FILE ACCESS IS FOR INPUT 

BIT ON = FILE ACCESS IS FOR OUTPUT 

BIT ON = FILE ACCESS IS FOR UPDATE 19 
BIT ON = FILE ACCESS IS FOR ADD 
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Ol 


CROSS~REFERENCE aa CRO! 
REFERENCES O2|SYMBOL oT LEN VALUE OEFN — RE ERENCES 
Svcgs = C O01 =«0020 2426 
03|SVCQSCAN C 001 O001B 2421 
SVCQUEUE C001 OO0E 2408 4612 4624 4 
SVCQUAIT C 001 002C” 2439 
SUBSRES4 C 001 O4|SVCRDEQ C€ 001 0021 2428 
SUBSRQ C 001 SVCRDYCK C 001 0025 2432 
SVCRENQ C001 0021 2427 2428 
OS|SVCRPT C001 0028 2435 
SVCSCB_ C001 OOOF 2409 4822 
C 001 36 SVCSNSSW C 001 0009 2403 
SUBTSUBA C 001 06}SVCSQ. C001 0029 2436 
SUBUSER C 001 SVCTEST C001 0023 2430 4594 
SUBUTSKI C 601 6 SVCTID C001 0015 2415 
7} SUBWSID C 001 O7|SVCTIH C001 OO1F 2425 
SUBWSWA C 001 SVCTIN C001 0014 2414 
SUBXCHNa C 001 6 SVCTIR C001 0016 2416 
SUBXFACT C 001 OS|SVCTKWT C001 0017 2417 
SUBXPRL C 001 SVCTOD C001 O02E 2441 
SVCTPOST C 001 O01D 2423 
O9/SVCTWA C001 0051 2455 
SVCTWAIT C 001 OO1E 2424 
SVCUNSTK C 001 0005 2399 4871 
10} SVCASSGN C 001 JO}SVCWAIT C001 0002 2396 
SVCHSC C001 0043 2449 
SVCCXNT C 001 SVCXAF C001 0020 2440 
11]SVCDSPCH C 001 11/SVCXFER C 001 0004 2398 
SVCDUMP C 001 SVCXFR C001 OOF5 2483 
SVCEXIT C 001 SVCXIENT C 001 0010 2410 
C 001 12|SVCXNTOF C 001 0018 2418 
SVCFREE C 001 SWAPIO C001 0080 0450 
SVCFREEP C 001 SWAPSIZE A 001 OF65 4962 4461 4693 4% 
13)SVCGETP C 001 13] SWSZRTRN A 004 OE8B 4972 4963" 
SVCGPOST C 001 SWS20010 A 006 OF7C 4969 4971 
SVCGWAIT C 001 CF) € 001 0000 0111 0128 0129 01 
14]SVCIOXNT C 001 14 0142 
SVCISEC C 001 Swi C001 0001 0112 0156 0159 OL 
SvcIO. = C (001 Su2 C001 0002 0113 0176 O177 O1 
15]SVCKBTR C 001 15] SW3 C001 0003 0114 0200 0201 02 
SVCLDATR C 001 SYN1 C001 0001 4153 
SVCLOAD C 001 SYN2 C001 0002 4154 4723" 
16) SYS C001 0040 1056 4615 4839 
TAB] C001 0001 4159 
TAB2 ss C001 0002 4160 
17|TASFAIL C001 0020 0505 
SVCPOST C 001 TCBAARR C001 O01D 2658 2659 4271" 42’ 
SVCPOSTA C 001 4348 4350 43! 
18} SVCPOSTI C 001 1G] TCBAIAR C O01 OO1F 2659 2660 4818* 
SVCPPSVC C 001 TCBAINL1 C 001 0024 2662 2663 
SVCPQSVC C 001 TCBAINL2 C 001 0025 2663 2664 
19ISVCPREP C 001 JO} TCBAINL3 C 001 0026 2664 2665 
SVCPRIQ C 001 TCBAINL4 C 001 0027 2665 — 4399* 4400* 47 
svcPT = C-O01 TCBAPSNR C 001 0021 2660 2661 4315" 
20 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


OF6C 6C 02 A4 30 
OF70 DO 81 OC 


5060 
5061 


MVC ATALSI2(3,BAS1),ATSVSIZE(, 1CB2) RESTORE SIZE AND ARR 
BE _ALL.90005(, BAS1) 


07645600 | 02} 


01 


ERR LOC OBJECT CODE 


#SVAT TCB ATTACH TRANSIENT 


ADDR STMT SOURCE ‘ 


5070 * CONST 
5071 * NOTE 


507? * 1 


16 


17 


18 


11/81 12/08/81 21:28 


9/11/81 


12/08/81 21:28 


07645600 


Fl4 
PAGE 155 VO9/11/81 12/08/81 21:28 ‘i 
iene CROSS-REFERENCE 
02] SYMBOL = T LEN VALUE REF “RENCES O2|SYMBOL oT LEN VALUE DEFN REFER 
TCBAQHDR C 001 002F 2679 
03] TCBARQ C 001 0023 2661 2662 
4612 4624 4830 4836 TCBARSE C001 0018 2655 
TCBAXR1 C001 0019 2656 457 
04 4460* 
TCBAXR2 C 001 O01B 2657 2658 
SVCRENQ C 001 4416" 
Q5|SVCRPT = C 001 5] TCBABTRN C 001 0010 2744 
SVCSCB  C 001 TCBAEOEO C 001 0002 2759 
SVCSNSSW C 001 TCBAFAIL C 001 O05F 2691 
06]svesq. C001 Q6|TCBARQCT C 001 0076 2771 ©2772 
SVCTEST C 001 TCBASGNQ C 001 0050 2689 2690 
SVCTID C 001 TCBASRWT C 001 0002 2587 
O7|SVCTIH C 001 O7/TCBATNS C 001 0080 2774 4331 
SVCTIN C 001 Z TCBATRS C 001 O04F 2680 2681 
SVCTIR C 001 TCBATTCH C 001 0040 2742 © 4307 
08] SVCTKWT C001 OS] TCBAWAIT C 001 0080 2567 
SvCTOD C001 TCBAWSCT C 001 0070 2762 2763 
SVCTPOST C 001 TCBBAT C001 0078 2783 2788 
QS|SVCTWA C 001 OO|TCBBEGL C 001 002B 2671 2672 
TCBCAT C001 0071 2764 2765 
TCBCATN C001 0070 2763 
JOJTCBCCALL C 001 0010 2595 
TCBCHAIN C 001 O00D 2646 2647 
TCBCHKPT C001 0040 2593 
11]SVCXFER C 001 LI{TCBCMPLQ C 001 0009 2642 2645 
TCBCNCNT C 001 0074 2767 2769 
SVCXIENT C 001 TCBCNLPD C 001 0004 2746 4887 
12] SVCXNTOF C 001 12] TCBCN2PD C 001 0040 2754 
SWAPIO CC 001 TCBCN3PD C 001 0020 2755 
SWAPSIZE A 001 4461 4693 4696 TCBCRB C001 0017 2654 2655 
13] SWSZRTRN A 004 4963* B 4708 
SWS20010 A 006 4971 TCBDEDO C 001 0001 2781 
C 001 0128 0129 0130 0135 0136 0137 0138 0141 TCBDEWT C 001 0008 2585 
1 0142 14] TCBDKO C001 0001 2760 
C 001 0156 0159 0160 0167 0168 TCBDKTWT C 001 0020 2583 
0176 0177 (0187 TCBOMEPD C 001 0002 2% 
15] $W3 0200 0201 0202 0210 0211 0212 0213 15] TCBOMPPD C 001 0001 2749 
TCBDSKTR C 001 0040 2775 
4723* TCBDSKWT C 001 0010 2584 
16] SYS 4615 4839 16} TCBDUMP C001 0020 2776 
TCBOWAIT C 001 0010 2557 2563 
TCBECMER C 001 O02F 2678 
T7|TCBECNGW C 001 0028 2672 
2659 4271" 4272 4272" 4273 4273% 4274 4274" 4278 4329% 4333* 4347* TCBEXIT C001 O05F 2690 2691 
4348 4350 4352 4362* 4365 4365* 4366 4363 4375* 4376 4378 TCBEXTRA C 001 0020 2594 
18] TCBAIAR 2660 4818* 18] TCBFORCD C 001 0020 2544 
2663 TCBFSWAP C 001 0004 2548 
TCBAINL2 C 001 2664 TCBFWAIT C 001 0002 2576 
19| TCBAINL3 C 001 2665 19] TCBGWAIT C 001 0020 2556 2563 
TCBAINL4 C 001 4399% 4400" 4497 TCBHOMPT C 001 0002 2748 
TCBAPSMR C 001 2661 4815" TCBICXWT C 001 0004 2586 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


ERR LOC CBJECT CODE 


#SVAT TCB ATTACH TRANSIENT 


ADDR STMT 


02 5070 * CONSTANTS AND WORK AREAS 07700000 | 02 


5097 


PRINTER QUEUE HEADER 3 
PRINTER QUEUE HEADER 5 
PRINTER QUEUE HEADER 6 
PRINTER QUI 

PRINTER QUEUE HEADER 8 
SPINDLE A QUEUE HEADER 
SPINOLE B QUEUE HEADER 
0034 773 QHDFDC EQU X'34' 17] SPINDLE C QUEUE HEADER 
0036 774 QHDFDD EQU X‘36' 17) SPINDLE 0 QUEUE HEADER 
0038_775 QHDIOA EQU X'33' DISKETTE ACTIVE QUEUE 
RESERVED 


EQU 


0024 765 QHOPT3 


0028 767 QHDPTS 
002A 768 QHDPT6 QU X‘2A' 
OO2C 769 QHDPT? FQU X'2C' 
OO2E 770 QHDPT8 EQU X'2E' 
0030 771 QHDFDA EQU X‘30' 

DFOB  EQUX'32' 


EQ X'28' 


F15 
(11/81 12/08/81 21:28 PAGE 156 VO9/11/81 12/08/81 21:28 ai 
CROSS~REFERENCE 
Q2/SYMBOL T LEN VALUE DEFN REFERENCES O2/SYMBOL T LEN VALUE DEFN — REFERE 
npr TCBAQHDR C 001 002F 2679 TCBIDACT C 001 004 2708 
03] TCBARQ C001 0023 2661 2662 03] TCBIDBEL C 001 OOEE 2718 
TCBARSE C001 0018 2655 TCBIDBLD C 001 O0F9 2730 
TCBAXR1 C001 0019 2656 2657 4277® 4278* 4279% 4287* 4318 4366 4368" 4376 4378* 4414 4416 TCBIDBSC C 001 OOF5 2725 
04 4460* 4688* 4695* 4965* 4966 4966* 4967 4967* 4968 4968% 4970* OA TCBIDBTS C 001 O0F6 2710 
TCBAXR2 C 001 O01B 2657 2658 4275* 4276* 4279 4325% 4326* 4348 4350 4352* 4407* 4409* 4414 TCBIDCCP C 001 OOEB 2715 
4416" 4418 4431 4433% 4436" 4440 4440 4451 4453 4671 4820* TCBIDCIC C 001 OOEC 2716 
05] TCBABTRM C 001 0010 2744 OS|TCBIDCP C 001 OOFO 2720 
TCBAEOEO C 001 0002 2759 TCBIDGA C 001 OOFE 2734 
TCBAFAIL C 001 O05F 2691 TCBIDGCE C 001 00€8 2712 
06] TCBARQCT C 001 0076 2771 2772 4566" OGITCBIDIBS C 001 OOFD 2732 
TCBASGNQ C 001 TCBIDIMS C 001 OOFD 2717 
TCBIDINT C 001 OOEF 2719 
O7|TCBATNS C 001 4373 4405 4437 O7|TCBIDITH C 001 O0€5 2709 
4195* 4796 4796* 5081 5082 TCBIDJQ C001 OOF2 2722 
TCBIOMR C001 OOF4 2724 
08] TCBAWAIT C 001 OS|TCBIDPER C 001 OOEA 2714 
TCBIDSOP C 001 OOF6 2726 4770 
TCBBAT C 001 TCBIDSDS C 001 OOFB 2727 4774 
Q9|TCBBEGL C 001 4261* 4262® 4263 4263" 4271 OO] TCBIDSFS C 001 00F3 2723 
TCBCAT C 001 TCBIDSNE C 001 00€7 2711 
TCBIDSNF C 001 O0E9 2713 
10] TCBCCALL C 001 1O|TCBIDSNR C 001 OOF8 2729 4772 
4327 4334 4335 4498 4499 4828 TCBIDSN1 C 001 OOF? 2728 4776 
TCBIDSRJ C 001 OOFA 2731 
11 TCBCMPLQ C 001 4622 11 TCBIDS44 C 001 OOFC 2733 
4205* 4250* 4834* 4886” TCBINQPD C 001 0001 2599 
TCBINQSP C 001 0020 2792 4660 
12] TCBCN2PD C 001 12] TCBINVCT C 001 005B 2688 2689 4 
TCBIQCNT C 001 0075 2769 2771 4 
2656 2666 4198 4207 4237* 4309 4479 4517 4670* 4689 TCBIWAIT 001 0008 2558 2563 
13 4735 4741 4787 4810 4863 4877 4952 13} TCBJCBA 001 0015 2653 2654 4 
TCBUSTIN C 001 0004 2547 
TCBKCALL C 001 0008 2596 
14] TCBDKO 14 TCBKWAIT C 001 0001 2577 
TCBLCKDI C 001 0080 2695 
TCBLCKHI C 001 0004 2700 
15] TCBDMPPD C 001 15] TCBLCKMK C 001 0069 2694 2704 
TCBLCKPI C 001 0008 2699 
TCBLCKST C001 0040 2696 
16] TCBDUYP C 001 16] TCBLCKSP C 001 0002 2701 
2563 TCBLCKVI C 001 0020 2697 
TCBLCK5I C 001 0010 2698 
17| TCBECNGW C 001 17|TCBLDISK C 001 005A 2686 2687 2 
2691 2692 TCBLDREL C 001 0057 2684 2685 2 
= TCBLEN C001 0080 2815 4225 4 
18] TCBFORCD C 001 1G] TCBLINUT C 001 0040 2582 
TCBLONGW C 001 0010 2545 
TCBNABTN C 001 0010 2756 
19] TCBGWAIT C 001 19] TCBMAXID C 001 OOEO 2735 4489 
TCBMIC C001 0057 2685 
TCBICKWT C 001 0072 2765 2766 


9/11/81 12/08/81 21:26 
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#SVAT TCB ATTACH TRANSIENT 


TCBMRTMK C 001 
0 
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#SVAT TCB ATTACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT 
02 5097 * 08170000 |02| OFF4 5115 
5098 * THIS IS THE BOOTSTRAP CODE MOVED TO THE RB WHEN STARTING 08180000 OFF4 FFFF OFF5 5116 

5099 * A NEW TASK 08190000 OFF6 C3C9D4D3 OFF9 5117 

03 5100 * 08200000 |03 OFFA 5118 
OFBF 5101 ATMCODE EQU * 08210000 OFFA OFFE 5119 

OFBF F4 05 5? 510? Sur SVCE OAD. OWATT+OXI OFF tNAD ROUTING N99 KN) 5190 


0082 813 QHDSQS §EQU  X'82" 
814% = ~--- THRU ---- 
815 * EQU X'‘8E" 
0090 816 QHDINQEX EQU  X‘90° 
0092 817 QHDQUAIL EQU = X'92' 
0094 818 QHORPT EQU X‘94' 
0096 819 QHDSCT EQU X‘96' 
0098 820 QHDTWAF! EQU = X‘98" 
OO9A 821 QHDEXTRA EQU  X‘9A' 
009C 822 QHDSUBCN EQU = X‘9C' 
OO9E 823 QHDSUBRA EQU X'9E' 
OOAO 824 QHDEIB EQU X'‘A0' 
OOA2 825 QHDNSACE EQU  xX‘A2" 
OOA4 826 QHDGLF EQU X‘A4' 
OOA6 827 QHDEXAN EQU  X'A6' 
OOAS 828 QHDMTI EQU  X‘AS* 
OOAA 829 QHDPDLH EQU X'AA' 
OOAC 830 QHDSPLK EQU X'AC' 
OOAE 831 QHDX21 EQU X‘AE* 


156 VO9/11/81 12/08/81 21:28 


CROSS-REFERENCE 


02}SYmBOL 1 LEN VALUE DEFN REFERENCES 


TCBIDINT C 001 
07} TCBIDITH C 001 
TCBIDJQ C 001 
TCBIOMR C 001 
08} TCBIDPER C 001 
TCBIDSOP C 001 


SYSTEM QUEUE SPACE 


RESERVED 


INQUIRY EXIT QUEUE 

QUEUED ACQUIRE INTERFACE LIST 
REMOTE PRINTER QUEUE 
SUBSYSTEM CONFIGURATION TABLE 
TWA EXTENSION F1 CHAIN 
EXTENDED TRACE 

SUBCONSOLE SYSLOG 

SUBCONSOLE REASSIGN 

ERROR INFORMATION BLOCK 

NS GET PAGE ACE 

GENERAL LOGGING FACILITY PARMLIST 
EXAM QUEUE 

MRT TERMINATION INTERLOCK 
MULT SNA LINE INTERLOCK 

SPOOL FILE INTERLOCK 

MCLA X.21 


PAGE 


CPL ) 
(FL) 
PL) 
CPL ) 
(PL ) 
EIB) 
CACE) 
(PL ) 
(NAS) 


CAQED 
CAQE) 
CACED 
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01 


O2|SYMBOL T LEN VALUE DEFt 


TCBMSAFL C001 0008 275) 
Q3/TCBMSSIZ C 001 O02C 267: 
TCBMSTAB C 001 0004 2756 
TCBNOUMP C001 0008 2775 
O4ITCBNOIO C001 0002 2545 
TCBNROY C001 OOBE 256: 
TCBNSCNT C 001 0073 2766 
05] TCBNSWAP C 001 0001 255 
TCBPRBCH C 001 00CO 2634 
TCBPRBEL C 001 OOFO 2622 
06] TCBPRBLD C 001 OOFO 2615 
TCBPRBSC C001 OOF4 2607 
TCBPRBTS C 001 OOFO 2624 
O7|TCBPRCCP C 001 OOFO 2615 
TCBPRCIC C 001 OOFO 2620 
TCBPRCNV C 001 O0D0 2633 
OS|TCBPRCP C 001 OOFC 2604 
TCBPRODF C 00] OOF] 2627 


TCBIDSDS C 001 
OS|TCBIDSFS C 001 
TCBIDSNE C 001 


TCBPREM C 001 OOF3 2608 
OG|TCBPREXT C 001 OOFO 2609 
TCBPRGCE C 001 OOFO 2625 


TCBIDSNF C 001 
10} TCBIDSNR C 001 
TCBIDSNI C 001 


TCBPRIMS C 001 OOFO 2621 
1OJTCBPRINT C 001 OOFO 2623 
TCBPRINV C 001 OOFF 2603 


TCBPRIOR C 001 0005 2601 
1L}TCBPRIQ C001 006D 2737 
TCBPRITH C 001 OOF4 2610 


2689 4565" 
TCBIQCNT C 001 27714251" 


TCBPRYR C 001 OO0FO 2606 
12|TCBPRPER C 001 OOFO 2618 
TCBPRSDP C 001 OOF8 2611 


89 TCBIWAIT 001 2563 


13] TCBJCBA vu 001 2654 = 4535* 4549* 4709 4711 


TCBJSTIN C 001 


4730 4749 


TCBPRSDS C 001 O0F9 2612 
13] TCBPRSMF C 001 OOFB 2626 
TCBPRSNF C 001 OOFO 2617 


TCBKCALL C 001 
14, TCBKWAIT C 001 
TCBLCKDI C 001 


TCBPRSNR C 001 OOFO 2614 
14 TCBPRSN1 C 001 OOFO 2613 
TCBPRSP C 001 OOFO 2605 


TCBLCKHT C 001 
15] TCBLCKMK C 001 
TCBLCKPI C 001 


TCBPRSRJ C 001 OOFO 2616 
15] TCBPRSWT C 001 0000 2628 
TCBPRUDH C 001 OO£0 2629 


TCBLCKSI C 001 
16] TCBLCKSP C 001 
TCBLCKVI C 001 


TCBPRUDL C 001 O0BO 2637 
16] TCBPRUDM C 001 00D1 2630 
TCBPTRWT C 001 0080 2581 


TCBLCK5I C 001 
17} TCBLDISK C 001 2688 
TCBLDREL C 001 2686 


TCBPUSH C 001 O00B 2645 
17|TCBQCNT C 001 0007 2641 
TCBQUAIT C 001 0008 2571 


TCBLEN C 001 
18] TCBLINWT C 001 
TCBLONGW C 001 


4236 4236 4236" 4943 


TCBRDYQ C001 O00F 2647 
1G) TCBRGSIZ C 001 002D 2674 
TCBRSE C 001 0027 2666 


TCBMABTN C 001 
19] TCBMAXID C 001 
TCBMIC C 001 


TCBRTUB C001 0013 2650 
19) TCBRWAIT C 001 0004 2575 
TCBSDTAC C 001 0002 2794 


TCBMRTMX C 001 


*SVAT TCB ATTACH TRANSIENT 
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ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


E16 


PAGE 121 09/11/81 


TCBSDTSO C 001 0040 2791 
OI 


12/08/81 21:28 
01 


02} oFF4 5115 ORG X‘OFF4" 
XL2FFFE' 


O2)SYMBOL T LEN VALUE DEI 


G OFF4 FFFF OFF5 5116 oc 
OFF6 C3C9D4D3 OFF9 5117 oc 
03) OFFA 5118 4CIML = =EQU * 


occa NCCC BIO nce rk 


CL4‘CIML* 


SAIDATTN C 001 O0F2 


08380000 | O3]/$AIDCLER C 001 OOBD 37; 
taiInem) €£ W171 ANh21 ~~ 27: 


09/11/81 
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PAGE 158 09/11/81 


¥O9/11/81 
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01 
CROSS-REFERENCE 
TCBMSAFL C 001 0008 2757 TCBSFILK C 001 0010 2777 
(03) TCBMSSIZ C 001 O02C 2673 2674 4264* 4286* 4289 4292 4293* 4297 4301 4400 4695 4698 3} TCBSHDRC C 001 0080 2741 
TCBMSTAB C 001 0004 2758 TCBSIAR C001 0059 2687 
TCBNOUMP C 001 0008 2778 TCBSMFDN C 001 0080 2805 
O4}TCBNOIO C001 0002 2549 4669 O4) TCBSMFPT C 001 O07C 2801 28 
TCBNRDY C001 OOBE 2563 TCBSNARQ C 001 0002 2780 43: 
TCBNSCNT C 001 0073 2766 2767 4488* 4489 4491* 4496 4501 TCBSOP C001 0008 2546 
OS|TCBNSWAP C 001 0001 2550 4438 Q5]TCBSPLRS C 001 0040 2813 
TCBPRBCH C 001 00CO 2634 TCBSPLSP C 001 0010 2793 
TCBPRBEL C 001 OOFO 2622 TCBSPOOL C 001 O02F 2677 267 
06] TCBPRBLD C 001 OOFO 2615 06] TCBSPUNK C 001 0080 2790 
TCBPRBSC C 001 O0F4 2607 TCBSPWIR C 001 0080 2812 
TCBPRBTS C 001 OOFO 2624 TCBSQBCT C 001 0068 2693 265 
O7|TCBPRCCP C 001 OOFO 2619 O7ITCBSSTID C 001 006A 2704 27 
TCBPRCIC C 001 OOFO 2620 TCBSTAT1 C 001 0000 2540 255 
TCBPRCNV C 001 O0D0 2633 TCBSTAT2 C 001 0001 2552  25¢ 
OS} TCBPRCP C 001 OS} TCBSTAT3 C 001 0004 2590 260 
TCBSTAT4 C 001 O06E 2739 275 
TCBSTAT5 C 001 OO6F 2751 276 
09] TCBPREXT C 001 OS|TCBSTAT6 C 001 0077 2772 278 
TCBPRGCE C 001 OOFO 2625 TCBSTAT? C 001 OO7E 2810 281 
TCBPRIMS C 001 OOFO 2621 TCBSUSP C001 0002 2560 256 
10] TCBPRINT C 001 OOFO 2623 10] TCBSUSPD C 001 0004 2597 
TCBPRINV C 001 OOFF 2603 TCBSUSPS € 001 0079 2788 279 
TCBPRIOR C 001 0005 2601 2639 4354* 4449 4480* 4839 484] TCBSWAIT C 001 0040 2568 500 
JIJTCBPRIQ C001 0060 2737 2739 4838 11/TCBSWAPD C 001 0040 2543 466 
TCBPRITH C 001 O0F4 2610 TCBSWAPQ C 001 OOF 2648 
TCBPRYR C 001 OOFO 2606 TCBSYSTM C 001 0020 2743 479 
12] TCBPRPER C 001 OOFO 2618 J2]TCBTAS C001 0020 2569 463 
TCBPRSDP C 001 OOF8 2611 TCBTERM C001 0080 2592 
TCBPRSDS C 001 OOF9 2612 TCBTHBIT C 001 0080 2753 
13] TCBPRSMF C 001 OOFB 2626 3]TCBTQE C 001 0067 2692 269 
TCBPRSNF C001 OOFO 2617 TCBTSKID € 001 006B 2706 273 
TCBPRSNR C 001 OOFO 2614 TCBTSSN C O01 002A 2670 267 
14] TCBPRSN1 C 001 O0FO 2613 14/TCBTTC C001 0051 2681 268 
TCBPRSP C O01 O0FO 2605 TCBITINE C 001 0006 2639 264 
TCBPRSRJ C 001 OOFO 2616 TCBTWA C001 0053 2682 268 
15) TCBPRSWT C 001 0000 2628 JS) TCBTWACL C 001 0004 2747 
TCBPRUDH C 001 O0F0 2629 TCBTWAIT C 001 0004 2559 756 
TCBPRUDL C 001 TCBUDNPR C 001 0080 2784 
16] TCBPRUDM C 001 0001 16] TCBWAFLG C 001 007A 2797 280 
TCBPTRUT C 001 TCBWAIT C001 0080 2542 
TCBPUSH C O01 4355 4358 TCBWAITD C 001 0080 2554 256 
17} TCBQCNT C001 0007 17] TCBWIOSP C 001 0001 2795 465 
TCBQWAIT C 001 TCBWMASK C 001 0002 2565 257 
TCBRDYQ C 001 OOOF 2647 2648 2649 TCBWNSK2 C 001 0003 2579 259 
18] TCBRGSIZ C 001 002D 2674 2677 4301* 4347 4375 4399 4413 4431 4433 4436 4460 4683 4698* 18] TCBUSILK C 001 0004 2779 
TCBRSE C001 0027 2666 2670 TCBWSWA C001 0055 2683 268 
TCBRTUB C 001 4523* 4563" 4599 TCBWMAIT C 001 0010 2570 
19} TCBRMAIT C 001 19}TCBX C001 0070 2808 281 
TCBSDTAC C 001 TCBXNTQ C001 0011 2649 2651 
TCBSDTSO € O01 0040 2555 


TCBXWAIT C 001 


20 0 


E17 
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01 


CROSS-REFERENCE 


O2)SYMBOL T LEN VALUE DEFN REFERENCES 02} SYMBOL 


$AIDATTN C 001 OOF2 3781 


T LEN VALUE DEFN 


SATERROG6 C 001 0006 0264 


R 


4 


RUN OXREF AT TERMINATION 

FIRST SYSIN RECORD IS IN TWA 
FLUSH UTILITY CONTROL STATEMENTS 
PROGRAM IS DEDICATED 

OMY DATE - WORLD TRADE 

MOY DATE - DOMESTIC 

YMO DATE - INTERNATIONAL 


OU40 Of] JUBMAREF EQU X40" 
14 0020 872 JCBNRTWA EQU = X'20' 
0010 873 JCBMFLUC EQU  X'10' 
0008 874 JCBMDEAD EQU = X'‘08' 
15 0004 875 JCBMWTCD EQU = X'04' 
0002 876 JCBMDOMD EQU  X'02' 
0001 877 JCBMYMDD EQU = X‘01' 


16 
0003 879 JCBDSCH2 EQU  JCBDSCHI+1 — SCHEDULER BYTE TWO 
0080 880 JCBMOPCL EQU X'‘80' OPEN OR CLOSE ERROR 
V7 0040 881 JCBMPRTY EQU X‘40' PRTY COMMAND EXECUTED PRIOR TO START OF 
882 * JOB 
0020 883 JCBMPNEP EQU = X'20' PROGRAM IS A NEP 
18 0010 884 JCBMBTCH EQU § X‘10' JOB QUEUE PROGRAM 


INCLUDE STATEMENT RECEIVED 

ALLOCATE - DON'T PREPARE THE DISKETTE 
INQUIRY LATCH SET 

NON-INQUIRABLE PROGRAM 


9008 885 JCBNICRC EQU X‘03" 
0004 886 JCBMDPRD EQU  X‘04" 
19 0002 887 JCBMINQP EQU X‘02' 
0001 888 JCBMNONI EQU  xX‘01" 


F18 
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CROSS~REF ERENCE 


02|SYMBOL oT LEN VALUE DEFN — REFERENCES D2|SYMBOL T LEN VALUE DEFN 
TCB1 C 001 0001 4139 «4 
03] TCBSHDRC C 001 0080 2741 4 
TCBSIAR C001 0059 2687 4 
TCBSMFDN C 001 0080 2805 4 
O4ITCBSMFPT C 001 O07C 2801 2808 D4 4 
TCBSNARQ C 001 0002 2780 4330 4345 4 
TCBSOP C001 0008 2546 4 
O5|TCBSPLRS C 001 0040 2813 y 4 
TCBSPLSP C 001 0010 2793 4 
TCBSPOOL C 001 002F 2677 ©2678 +2679 2630 4 
06] TCBSPUNK C 001 0080 2790 D6 4 
TCBSPWTR C 001 0080 2812 4 
TCBSQBCT C 001 0068 2693 2694 4 
O7|TCBSSTID C 001 006A 2704 2706 D7 4 
TCBSTAT1 C 001 0000 2540 2552 4438" 4669* 4 
TCBSTAT2 C 001 0001 2552 2565 4657* 4661* 4 
OS} TCBSTAT3 C 001 0004 2590 2601 D3} TCB2 € 001 0002 4140 4 
TCSSTAT4 C 001 O06E 2739 2751 4307" 4791* 4887 4 
TCBSTATS C 001 OO6F 2751 2762 4 
09) TCBSTAT6 C 001 0077 2772 2783 4330 4331 4344 4345 4373 4405 4437* D9 4 
TCBSTAT? C 001 OO7E 2810 2815 4 
TCBSUSP C001 0002 2560 2563 4657 4661 4 
JO}TCBSUSPD C 001 0004 2597 0 5 
TCBSUSPS C 001 0079 2788 2797 4656" 4660* 4843 TCB22RCS C 001 0008 2 15 
TCBSWAIT C 001 0040 2568 5000 THREE C001 0003 0792 
LI[TCBSWAPD C 001 0040 2543 4669 1[TPP#EOV C001 0000 3707 
TCBSWAPQ C 001 O00F 2648 TQEACT C001 0080 2873 
TCBSYSTM C 001 0020 2743 4791 TQEASR C001 0002 2878 
12|TCBTAS C001 0020 2569 4639 2) TQEBACE C001 0080 2862 
TCBTERM C001 0080 2592 TQEBIN C001 0004 2867 4¢ 
TCBTHBIT C 001 0080 2753 TQECC C001 0001 2871 2¢ 
13] TCBTQE C 001 0067 2692 2693 4816* 3) TQECOMP C001 0040 2874 
TCBTSKID C 001 006B 2706 2737 4481* 4486 4496 4501" 4571 4770 4772 4774 4776 TQEDEC C001 0008 2866 
TCBTSSN C 001 002A 2670 2671 4297% 4298 4298* 4299 4299* 4300 4300* 4476" 4477 4697 4706* TQEDSP C001 0001 2877 
14/TCBTTC C001 0051 2681 2682 4306* 4645 4662 AITQEFLG1 C 001 0000 2860 2% 
TCBITINE C 001 0006 2639 2641 4827* TQEFLNK C001 0007 2888 28 
TCBTWA C001 0053 2682 2683 TQELEN C001 0008 2890 4 
15] TCBTWACL C 001 0004 2747 5|TQEMN = C.-001:«:0003 «2879 
TCBTWAIT C 001 0004 2559 2463 TQEREAL C001 0010 2865 48 
TCBUDMPR C 001 0080 2784 TQERSVD1 C001 0020 2864 
16} TCBWAFLG C 001 007A 2797 2801 6|TQESDLOG C 001 004 2880 2 
TCBWAIT C 001 0080 2542 TQETCB C001 0000 2876 
TCBWAITD C 001 0080 2554 2563 TQETOD C001 0001 2869 
17] TCBWIOSP C 001 0001 2795 4656 4848 T{TQETOX C001 0005 2885 28 
TCBUMASK C 001 0002 2565 2579 TQETU C001 0002 2868 
TCBWMSK2 C 001 0003 2579 2590 TQETYPF C001 OO0F 2883 
18} TCBWSILK C 001 0004 2779 S]TQETYPL C 001 0004 2882 
TCBWSWA C001 0055 2683 2684 4541* 4542 4550* TQEWAIT C001 0040 2863 
TCBIWAIT C 001 0010 2570 TRALOAD C 001 0080 0449 
19} TCBX C 001 007D 2808 2810 9I TRUE C 001 0010 0800 
TCBXNTQ C001 0011 2649 2650 TUBSACTV C 001 0080 2991 
TCBXWAIT C 001 0040 2555 TUBSCMPL C 001 0040 2992 46 
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bi 


CROSS-REFEF'ENCE 


$ATFLAG C001 OO00C 4219 


0234 4212 4423 4524 4717 


02|SYMBOL 1 LEN VALUE DEFN — REFERENCES 2| SYMBOL T LEN VALUE DEFN 
SATERROS C 001 0006 0264 4469 SUSBLDIS C 001 0040 3823 
03] SATERRO? C 001 0007 0265 4540 3] SWSBLINK C 001 0008 3838 


SUSCI MRK © 001 0010 3839 


QOOE 924 JCBDSLST EQU _JCBOPDAT+2 _SYSLIST INDICATOR - PRINTER ID 
0000 925 JCBSLOFF EQU  x‘0000" X'0000° = OFF 
EEEE 926 JCBSLCRT EQU X'EEEE’ X'EEEE* = CRT 


0010 928 JCBDCRLB EQU JCBDSLST+2 = CURRENT LIBRARY F1 POINTER 
0012 929 JCBDFSBL EQU JCBOCRLB+2 LIBRARY FSB CHAIN POINTER 


0014 931 JCBDFSBF EQU JCBDFSBL+2 FILE FSB CHAIN POINTER 


0016 933 JCBDWSBP EQU  JCBDFSBF+2 —_WSB CHAIN POINTER 


0018 935 JCBDPSBP EQU JCBDWSBP+2 PSB CHAIN POINTER 


0020 937 JCBDIPRC EQU JCBDPSBP+8 = NAME OF FIRST LEVEL PROCEDURE 
938 * CMRT PROCEDURE NANE IF JCBMAMRT IS ON AND 
939 _* THIS JCB IS POINTED TO BY THE MRT‘S TCB) 


0028 941 JCBDPROG EQU JCBDIPRC+3 = PROGRAM NANE 


0029 943 JCBDSTAT EQU JCBDPROG+! = STATUS BYTE 
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CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES 02)SYMBOL = T LEN VALUE DEFN 


TCB1 = C 001 0001 4139 = 4228-4229" 4236 4236 4237 4250 4251 4261 4262 4263 4263 4264 TUBSCNCL C 001 00C3 3019 
4271 4271 4272 4272 4273 4273 4274 «4274 «4275 4276 4277 4278 Q3}TUBSDA C001 00CO 3014 
4278 42794279 4286 4287 4289 4292 4293 4297 4297 4298 4298 TUBSDEAD C 001 0002 3122 
4299 4299 4300 4300 4301 4301 4306 4307 4318 4325 4326 4329 TUBSDPST C 001 0040 3439 
4333 4347 4348 4348 4350 4350 4352 4352 4354 4362 4365 4365 04) TUBSDTCS C 001 0001 3010 
4366 4366 4368 4368 4375 4376 4376 4378 4378 4389 4399 4400 TUBSERR C001 0001 2998 
4407 4407 4409 4409 4414 4414 4416 4416 4418 4418 4422 4431 TUBSEXEC C 001 00CO 3016 
4431 4433 4433 4436 4436 4437 4438 4440 4440 4449 4451 4453 O5)TUBSEXTD C 001 0020 3440 
4460_4460_4476 4477 44774478 4479 4480 44814486 4501 4502 uf TUBSIDLE C 001 00C2_3018 
4523* 4528 4535 4541 4542 4542 4548 4549 4550 4555* 4556 4557 TUBSKBDP C 001 00CO 3163 
4563 4565 4566 4567 4568 4571 4644* 4645 4651* 4656 4657 4660 6} TUBSLOCK C 001 0040 3387 
4661 4668% 4669 4670 4670 4671 4676 4683 4691% 4695 4709 4711 TUBSMITR C 001 00E3 3162 
4716" 4730 4741 4748 4749 4757* 4769 4770 4772 4774 4776 4791 TUBSNGLD C 001 O0E2 3161 
4795 4796 4796 4798 4804 4809 4810 4815 4816 4818 4820 4827 O7|TUBSNIO C 001 0020 2982 
48414848 4855 4865* 4878 4898" 4940" 4965 4966 4966 4967 4967 TUBSNO2_ C001 0040 3004 
4968 4968 4970 5067* TUBSNRMO C 001 0005 3125 
TCB2 C001 0002 4140  4196* 4198 4202 4205 4207 4324* 4327 4330 4331 4334 4335 4335* 08} TUBSOUPT C 001 0027 3030 
4344 4345 4347 4355 4357 4358 4372* 4373 4375 4397* 4399 4400 TUBSPNAV C 001 OOEO 3015 
4405 4495" 4496 4498 4499 4499* 4502* 4516 4517 4598" 4599 4621* TUBSPOFF C 001 0007 3128 
4622 4686* 4688 4689 4695 4697 4698 4698 4704* 4706 4708 4733* Q9|TUBSPOLL C 001 00C1 3017 
4135__4785* 4787 4861" 4863 4875* 4877 4881" 4884 4886 4887 4897 TUBSPRIA C001 00E1 3160 
4920* 4921 4923 4925 4927 4940 4950* 4952 5003" 5053* 5054 5059 TUBSPUPM C 001 0080 3438 
5060 10] TUBSPWI C001 O0A7 3029 
TUBSRACT C 001 0000 2999 
TUBSRDIN C 001 0042 3034 
11] TUBSROMD C 001 0022 3036 
TUBSROSN C 001 0062 3033 
TUBSRDUK C 001 0006 3127 
12] TUBSREAL C 001 0040 2981 
TUBSRSTR C 001 0007 3035 
TUBSSAVE C 001 0002 3031 
13] TUBSSAVS C 001 0006 3032 
TUBSSKIP C 001 0080 2980 
TUBSTANZ C 001 OOEO 3159 
2871 4816* 14{TUBSUERP C 001 0080 3003 
2890 TUBSVH C001 0010 3006 
4816* TUBABTRN C 001 000] 3281 
J5|TUBACN C001 0040 3220 
TUBAID C001 0025 3209 
TUBALRM C001 0080 3315 
16|TUBAPRNT C 001 003E 3295 
TUBASENT C 001 0020 3317 
TUBASGNA C 001 0043 3300 
C 001 17] TUBASGND C 001 0004 2996 
C001 TUBASGNL C 001 0041 3299 
TUBATTRA C 001 0054 3385 
18] TUBATTRB C 001 0058 3399 
TUBATTRC C 001 005B 3411 
TUBATTRI C 001 0035 3217 
19] TUBATTR2 C 001 0036 3228 
TUBATTR3 C 001 0037 3250 
TUBATTR4 C 001 0038 3261 

0 


6" 


3£ 123 YO9/11/81 12/08/81 21:28 1 PAGE 124 VO9/11/81 12/08/81 21:28 O1 


CROSS-REFERENCE 


2]SYMBOL T LEN VALUE DEFN — REFERENCES 02) SYMBOL T LEN VALUE DEF 


SWSBLDIS C 001 0040 3823 ss! ACSHERR C 001 0082 017 


oh ALIS, 


13 0048 977 JCBDLNPG EQU JCBDJBI(+1 — LINES/PAGE 13 0070 1031 JCBLI 
004C 979 JCBDFNNO EQU  JCBDLNPG+4 ~~ FORNS NUMBER 1033 **** 
14 1034 * 
0040 931 JCBDSLLC EQU  JCBDFMNO+1 — SYSLIST CRT LINE COUNTER 1035 * 
1036 * 
15) O04E 983 JCBDNFTF EQU  JCBDSLLC+1 © NUMBER OF FORMATS FOUND 1037 *RR* 
é 0050 985 JCBDFINA EQU  JCBDNFTF+2 ADDRESS OF FORMAT INDEX 
1 
0052 987 JCBDCIBA EQU  JCBDFINA+2 ADDRESS OF COMPILER INFORMATION BLOCK 
7 0054 989 JCBDDTFa EQU JCBDCIBA+2 — ADDRESS OF FIRST OTF ON CHAIN 
0055 991 JCBDSLLR EQU  JCBDDTFa+1! — SYSLIST CRT LINES REQUESTED 
18 
0056 993 JCBDOFRG EQU  JCBDSLLR+1 REGION SIZE (DEFAULT) 
995 JCBDJBRG EQU JCBODFRG+1 © REGION SIZE (JOB) 
997 JCBDNENF EQU  JCBDJBRG+7 MENU FORMAT INDEX CNON-RELEASED WS JOBS) 
F20 
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CROSS-REFERENCE 
O2]SymBOL 1 LEN VALUE DEFN REFERENCES (2)SYMBOL 7 LEN VALUE DEFN — REFEREN 
TUBSCNCL C 001 00C3 3019 7 TUBATTR5 C 001 0039 3272 3283 3 
03/TUBSDA C001 O0CO 3014 3] TUBATTR6 C 001 003A 3283 3294 3 
TUBSDEAD C 001 0002 3122 TUBATTR? C 001 0044 3302 3313 
TUBSDPST C 001 0040 3439 TUBATTRS C 001 0045 3313 3324 
O4] TUBSDTCS C 001 0001 3010 O4]TUBATTRS C 001 0048 3327 3339 
TUBSERR C001 0001 2998 TUBAUTOB * 001 0020 3005 
TUBSEXEC C001 O0CO 3016 4551 4569 4589 4630 TUBBADGE C001 0080 3329 
05] TUBSEXTD C 001 0020 3440 Q5|TUBCHAIN C 001 0013 3155 3157 36 
TUBSIDLE C 001 00C2 3018 TUBCLER C 001 0010 3376 
ie TUBSKBDP C 001 O0CO 3163 TUBCLRAD C 001 0080 3386 
06] TUBSLOCK C 001 0040 3387 QO} TUBCMORJ C 001 0010 3307 
TUBSMITR C 001 QOE3 3162 TUBCMDT C 001 0020 3221 3630 
TUBSNGLD C 001 O0E2 3161 TUBCMD] C001 0001 3352 
O7]|TUBSNIO C001 0020 2982 07] TUBCMD10 C 001 0020 3356 
TUB$NO2 C001 0040 3004 TUBCMD11 C 001 0040 3355 
TUBSNRMD C 001 0005 3125 TUBCMDI2 C001 0080 3354 
08} TUBSOUPT C 001 0027 3030 08} TUBCMD13 C 001 0001 3370 
TUBSPNAV C 001 00EO 3015 TUBCID14 C 001 0002 3369 
TUBSPOFF C 001 0007 3128 TUBCMDI5 C 001 0004 3368 
OOJTUBSPOLL C 001 00C] 3017 09] TUBCMD16 C 001 0008 3367 
TUBSPRMA C 001 OOF] 3160 TUBCMD17 C 001 0010 3366 
TUBSPUPM C 001 0080 3438 TUBCID18 C 001 0020 3365 
1O|TUBSPWI C001 OOA7 3029 10) TUBCMD19 C 001 0040 3364 
TUBSRACT C 001 0000 2999 TUBCMD2 C001 0002 3351 
TUBSRDIN C 001 0042 3034 TUBCMD20 C 001 0080 3363 
11{TUBSROMD C 001 0022 3036 11] TuBCMiO21 C 001 0001 3361 
TUBSROSN C 001 0062 3033 TUBCID22 C 001 0002 3360 
TUBSRDUK C 001 0006 3127 TUBCMD23 C 001 0004 3359 
12|TUBSREAL C 001 0040 2981 TUBCMD24 C 001 0008 3358 
TUBSRSTR C 001 0007 3035 TUBCMD3 C 001 0004 3350 
TUBSSAVE C 001 0002 3031 TUBCYD4 C001 0008 3349 
13] TUBSSAVS C 001 0006 3032 13] TUBCYDS C 001 0010 3348 
TUBSSKIP C 001 0080 2980 3510 4575 4601 TUBCMD6 C001 0020 3347 
TUBSTANZ C 001 O0E0 3159 TUBCID? C001 0040 3346 
14] TUBSUERP C 001 0080 3003 14{ TUBCMDS CC 001 0080 3345 
TUBSVH C001 0010 3006 TUBCMDS C001 0010 3357 
TUBABTRM C 001 0001 3281 3662 TUBCMND C001 0003 3012 3025 30 
15] TUBACN C001 0040 3220 3629 15{ TUBCMOD «C001 0004 3027 3038 35 
TUBAID C001 0025 3209 3210 TUBCISK C001 0050 3371 3372 
TUBALRM C001 0080 3315 TUBCMSK1 C 001 O04E 3344 3353 
16] TUBAPRNT C 001 003E 3295 3296 3676 16] TUBCMSK2 C 001 O04F 3353 3362 
TUBASENT C 001 0020 3317 TUBCMSK3 C 001 0050 3362 3371 
TUBASGNA C 001 0043 3300 3302 TUBCOMON C001 0024 3199 3209 34 
17|TUBASGND C 001 0004 2996 17] TUBCOMPL C 001 0001 2989 3001 35 
TUBASGNL C 001 0041 3299 3300 TUBCOUNT C001 0009 3040 3042-31 
TUBATTRA C 001 0054 3385 3396 TUBCPAID C 001 0026 3210 3211 
18] TUBATTRB C 001 0058 3399 3409 18| TUBCTSAV C 001 003C 3294 = 3295 
TUBATTRC C 001 OO5B 3411 3422 TUBDATAa C001 0007 3039 3040 
TUBATTRI C 001 0035 3217 3228 3628 TUBDEVIC C 001 0003 3025 
19] TUBATTR2 C 001 0036 3228 3250 3637 19] TUBDEVID C 001 0014 3157 = 3165 
TUBATTR3 C 001 0037 3250 3261 3643 4605 4619* TUBDEXTa C 001 0053 3381 3385 
TUBATTR4 C 001 0038 3261 3272 3651 4658 TUBDGTUB C001 005A 3409 347] 
0 0} 
E20 
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CROSS-REF ERENCE 


O2]|SYMBOL 1 LEN VALUE DEFN REFERENCES T LEN VALUE DEFN — REFERE! 


| OO6F 1029 JCBDLCLA EQU _JCBDUSER+2 _ LOCAL_DATA AREA ADDRESS 
3 0070 1031 JCBLLNTH EQU JCBDBFRa+t = LENGTH OF A JCB 


1033 RRRRAKKRARAR IR IR IPR IRR III RIOR IOR ROR IORI IOIIOOUIIR TOR RR IO IOI RO 


1 1034 * 
1035 * JCB_EXTENSION 
1036 * 
15 1037 KRARRAKRHERIEK IK KKK KKK RAAAARREKERHERE RARER ERE RR AARARERERAR ERR RR AIR KKH 
0001 1039 JCBDSSBa EQU 1 SESSION SPECIFICATION BLOCK POINTER 
16 0003 1040 JCBOCCBA EQU JCBDSSBa+2 CHECK POINT CONTROL BLOCK POINTER 
0005 1041 JCBOPLST EQU  JCBDCCBa+2 PHONE LIST CHAIN POINTER 
V7 0006 1043 JCBDLPI# EQU JCBDPLST+1 LPI VALUE 
0004 1044 JCBMALPI EQU  X'04' 4 LPI SPECIFIED ON FORMS STATEMENT 
0006 1045 JCBNOLPT EQU” X*06" 6 UPI SPECIFIED ON FORMS STATEMENT 
18 0008 1046 JCBMBLPI EQU  X‘08' 8 LPI SPECIFIED ON FORMS STATEMENT 


OOOF 1043 JCBDERSV EQU JCBDLPI#+9 = RESERVED AREA 
19 0010 1049 JCBDELNG EQU JCBDERSV+1 = LENGTH OF JCB EXTENSION 
1050 *** END OF EXPANSION ** 


20 
F21 
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0 
CROSS-REFERENCE 
O2/SYMBOL T LEN VALUE DEFN REFERENCES O2|SYMBOL T LEN VALUE DEFN — REFERE 
a TUBATTRS C 001 0039 3272 3283 3657 4608 TUBDTATX C 001 0057 3397 = 3399 
05] TUBATTR6 C 001 003A 3283 3294 3665 4619* Q3)/TUBDPRST C 001 O02F 3437 3446 
TUBATTR? C 001 0044 3302 3313 TUBDRESV C001 027 3211 3212 
TUBATTRS C 001 0045 3313 3324 TUBECM C001 000C 2978 2989 
O4)TUBATTRO C 001 0048 3327 3339 O4/TUBERAID C 001 0038 3179 3180 
TUBAUTOB © 001 0020 3005 TUBERBFG C 001 0017 3173 3179 
TUBBADGE C 001 0080 3329 TUBERPCT C 001 0016 3167 = 3173 
OS|TUBCHAIN C 001 0013 3155 3157 3601 OS|TUBERRCT C 001 OOlE 3193 3194 
TUBCLER C 001 0010 3376 TUBFCNSL C 001 0001 3226 3635 
TUBCLRAD C 001 0080 3386 TUBFLAG C001 0002 3001 3012 
06] TUBCMDRJ C 001 0010 3307 OO) TUBFMSK C 001 0051 3372 3381 
TUBCMOT C001 0020 3221 3630 TUBGALJD C 001 0010 3404 
0001 3352 TUBGAIJP C 001 0040 3455 
07|TUBCMD10 C 001 0020 3356 O7| TUBGCHAR C 001 0047 3325 


3355 TUBHELP C 001 0008 3377 
3354 TUBHELPM C 001 0047 3324 = 3325 
3370 O83] TUBHPND C 001 0002 3291 
3369 TUBHZQ C001 0080 3263 
3368 TUBIARF C001 0010 3255 3648 
3367 OO) TUBIDEL C 001 0001 3270 
TUBIIS C001 0080 3252 3645 
TUBINE C001 0040 3253 3646 
1OJTUBINPA C001 0002 3247 
TUBING] C 001 0040 3264 
TUBING2 € 001 0020 3265 
11, TUBIOERR C 001 0040 3305 
TUBIPS C001 0020 3254 3647 
TUBIQW C001 0010 3266 4658 
12] TUBJCBA C€ 001 0032 3214 3215 
TUBKBULK C001 0001 3292 
TUBKDPLY C 001 0080 3401 
13) TUBKKBD C 401 0040 3402 
TUBKPNTR C 001 0080 3454 
TUBLEN C001 0060 3423 
14) TUBLIOER C 001 0004 3309 
TUBLIOFR C 001 0002 3225 3634 


3027 3525 4551 4569 4589 4600* 4607 4630 TUBLIOIP C 001 0002 3310 
3540 15] TUBLIOS ¢ 001 0002 3269 
TUBLOP C001 0020 3276 3659 
TUBCNSK1 C 001 TUBLTOFF C 001 0040 3316 
16] TUBCNSK2 C 001 16] TUBMBOCF C 001 0010 3288 
TUBCMSK3 C 001 TUBCMD C 001 0020 3240 
TUBCOMON C 001 3431 TUBFCN C001 0080 3219 
3514 4610* 4620* 17{ TUBMCNSL C 001 0040 3238 
TUBCOUNT C 001 3148 TUBMCOUT C 001 0004 3393 
TUBCPAID C 001 TUBMDATA C 001 0010 3241 3640 
18] TUBMDDTA C 001 0010 3318 
TUBDATAd C 001 TUBPDME 901 0070 3242 
TUBDEVIC C 001 TUBRENUA C 001 0008" 3245 
19] TUBDEVID C 001 19] TUBRENU2 C 001 0020 3331 
TUBDEXT@ C 001 TUBPHELP C 001 0004 3419 
TUBDGTUB C 001 TUBMHOLD C001 0010 3389 
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CROSS-REFERENCE 


rcwenr ,T } ral teatitc oncra erer 


No cumoan T TCAL UALLIC.)|6necral acrrermriaece 


109/11/81 
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12 


13 


14 


15 


16 


02] SYMBOL T LEN VALUE DEFN 


O6| TUBFMSK C 001 
TUBGAI JD C 001 
TUBGAI JP C 001 

07] TUBGCHAR C 001 
TUBHELP C 001 
TUBHELPM C 001 

08] TUBHPND C 001 
TUBHZQ _C 001 
TUBIARF C O01 

OO|TUBIDEL CC 001 
TUBITS C 001 
TUBIMI C 001 

10] TUBINPA C 001 
TUBING! C 001 
TUBING2 C 001 

11) TUBIOERR C 001 
TUBIPS C 001 
TUBIQP C 001 

12] TUBJCBA C 001 
TUBKBULK C 001 
TUBKDPLY C 001 

13] TUBKKBD C 001 
TUBKPNTR C 001 
TUBLEN C OO1 

14] TUBLIOER C 001 
TUBLIOFR C 001 
TUBLIOIP C O01 

15] TUBLIOS C 001 
TUBLOP CC 001 
TUBLTOFF C O01 

16] TUBMBDCF C 001 
TUBMCMD C 001 


TUBMCN §C 001 
17] TUBMCNSL C 001 
TUBMCOUT C 001 
TUBMDATA C 001 
18} TUBMODTA C 001 
TUBMOME C 901 
TUBMENUA C 001 
19] TUBMENU2 C 001 
TUBMHELP C 001 


LOO © 
1082 * 0310 
1083 * 
1084 * 0320 
1085 * 
1086 * 0330 
1087 * 
1088 * 0340 
1089 * 
1090 * 0350 
1091 * 
1092 * 0360 
1093 * 
1094 * 0370 


REFERENCES 


3325 3327 


3646 4618 


ALTERNATE SECTOR ACE 
STATISTICAL LOGOUT ACE 
INTERVAL TIMER ACE 

NSP ERROR ACE 

SWAP ACE 

MS TRANSIENT LOADER ACE 
DISKETTE ERROR ACE 
ERROR TASK~TASK ACE 
DISPATCHER TQE 
MIDNIGHT TQE 
STATISTICAL LOGGING TQE 


SQS FAILURE TQE 


F22 


CROSS-REFERENCE 


5d ed Od ee ee a ? a 


20 
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3647 4605 


4658 
3215 3625 


4549 


3634 


3659 


TUBMHOLD C 001 
0 


E22 


12 
B 
1 
1 
16 
7 
1 
1 


— 


02, SYMBOL oT LEN VALUE DEFN RE 
TUBMIC C001 OOIA 3180 31 
O3|TUBMINIT C 001 0030 3243 
TUBMIQOS C 001 0020 3306 
TUBMKAN C 001 0020 3403 
O4)TUBMLOCL C 001 0040 3(23 
TUBMOFF C 001 0020 3388 
TUBMROTA C 001 0008 3289 36 
OS|TUBMRTSC C 001 0010 3332 
TUBISGA C001 0001 3248 
TUBMSGCT C 001 003F 3296 32 
QO} TUBNSGID C 001 0055 3396 33 
TUBMSGRT C 001 0080 3297 
TUBISGR2 C 001 0040 3293 
O7|TUBMSTDY C 001 0080 3237 36: 
TUBMSUB C001 OOCO 3024 
TUBMASTN C 001 0040 3239 
OG] TUBNOSUB C 001 0002 3394 
TUBOML C001 0008 3007 
TUBOPSTS C 001 0030 3213 32) 
OO|TUBOPTS C001 OO1B 3182 31: 
TUBORN C001 0040 3275 
TUBORY C001 0080 3274 
JOJTUBPATRI C 001 0034 3453 = 344 
TuBPCFGA C001 0022 31% 315 
TUBPCRLN C 001 002D 3435 = 34: 
11 TUBPELEN C 001 0040 3466 
TUBPERES C 001 OO3F 3465 34 
TUBPEXTa C 001 0026 3431 ; 
12) TUBPFMLN C 001 0020 3434 = 34’ 
TUBPFYNO C 001 0028 3433 34’ 
TUBPGTUB C 001 0033 3451 34! 
13] TUBPLEN C€ 001 0030 3446 345 
TUBPLPI C001 0035 3462 34 
TUBPMKPP C 001 O02E 3436 34; 
14) TUBPRESV C 001 0027 3432 343 
TUBPRT C001 0080 3373 
TUBPSUBC C 001 0031 3450 345 
15] TUBQHDR C 001 0015 3165 316 
TUBRAMER C 001 0001 3421 
TUBRCBK C 001 0004 3378 
16] TUBRCNCL C 001 0083 3022 
TUBRDIOD C 001 0001 3395 
TUBRDYIP C 001 0001 3311 
17| TUBRDYPD C 001 0001 3336 
TUBREADY C 001 0008 3308 
TUBREL C001 0004 3279 366 
18] TUBREXEC C 001 0080 3020 460 
TUBRFCSS C 001 O04C 3341 334 
TUBRFDSP C 001 004) 3342 © 334 
TO) TUBRFN C001 O04B 3340 © 334 
TUBRFSS C 001 004A 3339 334 
TUBRITSU C 001 0004 3008 
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01 
CROSS-REFERENCE 

02/SYMBOL T LEN VALUE REFERENCES 02/S¥mBOL = T LEN VALUE 
TUBMIC C 001 TUBRINCN C 001 0002 
03] TUBMINIT C 001 03] TUBRJFOV C 001 0008 
TUBNIQDS C 001 TUBRLDN C001 0020 
TUBMKANJ C 001 TUBRLUP C001 0040 
TUBMLOCL C 001 : O4| TUBRPOLL C 001 0081 
TUBRSF C001 0008 
TUBRST1 C 001 0008 
Q5|TUBRST2 C 001 0004 
TUBRSVD C 001 O05F 
TUBRSW C001 0010 
06] TUBSENSE C 001 O00F 
TUBSENSO C 001 000A 
TUBSENS1 C 001 0008 
07] TUBSENS2 C 001 000C 
TUBSENS3 C 001 0000 
TUBSENS4 C 001 O00E 
08] TUBSENSS C 001 O00F 
TUBSGN C001 0010 
TUBSIARF C 001 0001 
O9|TUBSIIS C 001 0008 
TUBSIMI C 001 0004 
TUBSIOCT C 001 0010 
10] TUBPATR1 C 001 JO} TUBSIPS C 001 0002 
TUBPCFGA C 001 TUBSRILK C 001 0004 
TUBPCRLN C 001 TUBSRQ C001 0002 
11|TUBPELEN C 001 11/ TUBSRQPD C 001 0080 
TUBPERES C 001 TUBSTATA C 001 0004 
TUBPEXTa C 001 TUBSTPJ C 001 0004 
12| TUBPFMLN C 001 12] TUBSUBCN C 001 0008 
TUBPFMNO C 001 TUBSVER1 C 001 0004 
TUBPGTUB C 001 TUBSVER2 C 001 0002 
13) TUBPLEN C 001 13] TUBSVRD C 001 0008 
TUBPLPI C 001 TUBSYLST C 001 0020 
TUBPMXPP C 001 TUBTCB C001 0024 
14| TUBPRESV C 001 14] TUBTCBa C 001 0011 
TUBPRT C 001 TUBTSRQ C001 0003 
TUBTUB C001 0034 
15] TUBUNITa C 001 0005 
TUBUSER C 001 002F 
TUBUSSV C001 0040 
16) TUBUSUP C001 0030 
TUBROMOD C 001 TUBWSID C 001 0020 
TUBRDYIP C 001 TUBLSWA C001 0022 
17] TUBRDYPD C 001 17] TUBOILGJ € 001 0080 
TUBREADY C 001 TUBORMFL C 001 0020 
TUBREL C 001 TUBOUNGJ C 001 0040 
18} TUBREXEC C 001 18} TuB1 C 001 0001 
TUBRFCSS C 001 TUBIOPT C001 0002 
TUBRFDSP C 001 TUB2 C001 0002 


C 001 19 
TUBRFSS C 001 


TUBRITSU C 001 


£23 
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f\7 f\t 


02A3 1157 NUATWAQ EQU NUATWAXL+NULTWAX TASK WORK AREA QUEUE ELENENT 


ll 0005 1158 NULTWAQ EQU 5 (LENGTH OF AREA) 
1159 * 
02A8 1160 NUARDIOB EQU  NUA@THAQ+NULTWAQ SYSTEM DISKETTE [0B/LOGOUT AREA 
12 0038 1161 NULRDIOB EQU 56 * (LENGTH OF AREA) 
1162 * 


O2E0 1163 NUAMLBF] EQU NU@RDIOB+NULRDIOB #LIBRARY RESIDENT FORMAT~1 

0020 1164 NUL#LBF1 EQU 32 * CLENGTH OF AREA) 
1165 * 

0300 1166 NUGTRACE EQU NUGMLBFI+NULALBF1 TRACE LOGOUT ACE 


13 


14 0010 1167 aah EQU 16 * CLENGTH OF AN ACE) 
0310 ie ggg EQU = NUATRACE+NULACE ALTERNATE SECTOR ACE 
a 0320 ia ae EQU _NUGERACE+NULACE STATISTICAL LOGGING ACE 
16 0330 ins SiBLIeCe EQU NUALGACE+NULACE INTERVAL TINER ACE 
0340 15 esl EQU NUATIACE+NULACE MSP PROC CHECK ERROR HANDLER ACE 
_ 0350 iH mare EQU _NU@MACE+NULACE ACE FOR SWAP 10B 
18 0360 ia Meee EQU NUASWACE+NULACE ACE FOR NS XIENT SCHEDULER 
> 0370 na MOlENCE EQU = NUAMXACE+NULACE ACE FOR DISKETTE ERP 


0380 1183 NUACSETC EQU NUAIEACE+NULACE CS TASK-TASK ERROR ACE 
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0 

CROSS-REFERENCE 

O2|SYMBOL oT LEN VALUE DEFN REFERENCES 02) SYMBOL 1 LEN VALUE DEFN 
TUBRINCM C 001 0002 3009 TUB2IG C001 0008 3417 
03]/TUBRJFOV C 001 0008 3405 03] TUB2RF C001 O010 3416 
TUBRLON C 001 0020 3375 TUB2UG_ CC 001 0018 3418 
TUBRLUP C 001 0040 3374 TUB960 C001 0040 3330 
O4| TUBRPOLL C 001 0081 3021 D4) TWAYCEND C 001 0014 3740 
TUBRSF C001 0008 3278 4608 TWASCNSL C001 O00F 3745 
TUBRST1 C001 0008 3267 TWASCOMM C001 002E 3725 
05] TUBRST2 C 001 0004 3268 05] TWAACSHQ C 001 003C 3750 
TUBRSVD C 001 OO5F 3422 3423 TWAMCURT C 001 OO0E 3743 
TUBRSW C001 0010 3277 TWAPERPS C 001 0033 3748 
Q6|TUBSENSE C 001 OOOF 3148 3149 06] TWA#INQ C001 0017 3721 
TUBSENSO C 001 000A 3042 3057 TWALCL C001 0009 3716 
TUBSENS1 C 001 000B 3057 3069 TWALGIO C 001 0022 3722 
07] TUBSENS2 C 001 000C 3069 3087 D7| TWAPLOGC C 001 0030 3727 
TUBSENS3 C 001 0000 3087 3089 TWALOGR C 001 002F 3726 
TUBSENS4 C 001 OO0E 3089 3146 TWAMDSA C001 0008 3713 
08] TUBSENSS C 001 OOF 3146 03] TWA®NQO1 C 001 0008 3741 
TUBSGN C001 0010 3222 3631 TWASNUSE C001 0000 3737 
TUBSIARF C 001 0001 3259 TWASOCLC C 001 0037 3730 
OS) TUBSIIS C 001 0008 3256 09] TWA®PSBC C 001 0006 3713 
TUBSIMI C001 0004 3257 4618 TWA#PSDE C001 0007 3714 
TUBSIOCT C 001 01D 3192 3193 TWA*PSFO C 001 0008 3715 
1O|]TUBSIPS C001 0002 3258 O} TWA#PS12 C 001 0001 3708 
TUBSRILK C 001 0004 3290 3670 TWA#PS34 C001 0002 3709 
TUBSRQ C001 0002 3280 3661 TWAPPS56 C001 0003 3710 
11{TUBSRQPD C 001 0080 3304 TWA*?S78 C001 0004 3711 
TUBSTATA C 001 0004 3246 TWAYPS9A C001 0005 3712 
TUBSTPJ C 001 0004 3224 3633 TWPRRNG C001 0039 3732 
12] TUBSUBCN C 001 0008 3392 TWAPSAVE C 001 000C 3719 
TUBSVER1 C 001 0004 3334 TWAPSCSV C001 O0OF 3744 
TUBSVER2 C 001 0002 3335 TWAYSCO1 C 001 0001 3738 
13} TUBSVRD C001 0008 3333 TWAYSINS C 001 000A 3717 
TUBSYLST C 001 0020 3287 3669 TWA*STAT C001 0027 3747 
TUBTCB C001 0024 3197 3199 3619 4548* 4554* 4555 4558 4588 4651 4668 TWA*TKMQ C001 0031 3728 
14{TUBTCBA C001 0011 3149 3155 4ITWAFUSER C 001 000C 372u 
TUBTSRQ C O01 0008 3223 3632 TWAAISSA C001 001B 3746 
TUBTUB C001 0034 3215 3217 TWAUSSS C001 002) 3724 
15] TUBUNIT@ C 001 0005 3038 3039 5|TWASXLAT C 001 0038 3731 
TUBUSER C 001 002F 3212 3213 3623 TWAGET C001 0000 3698 
TUBUSSV C001 0040 3286 3668 TWALOAD C 001 0080 0451 
16] TUBUSUP C 001 0080 3285 3667 TWAPUT C001 0001 3697 
TUBWSID C 001 0020 3194 3195 3616 TWAREAL C001 0040 3702 
TUBWSHA C001 0022 3195 3196 3617 4550 TWASYS C001 0002 3699 
1/|TUBOILGJ C 001 0080 3413 TWATWA C001 0000 3701 
TUBORMFL C 001 0020 3415 TUAUSWA C001 0004 3700 
TUBOUNGJ C 001 0040 3414 TWAXLATE C 001 0000 3703 
18] TUB1 C 001 0001 4157 SI TWAXLEN C 001 0008 3760 
TUBLOPT C 001 0002 3420 TWAXMAP C001 0002 3755 
TUB2 = C001: 0002 «4158 «= 4547* 4548 4549 4550 4551 4552 4554 4554 4555 4558 4568 4569 TWAXMAPL C 001 0003 3756 
19 4571 4572 4574 4575 4576 4588 4589 4599* 4600 4601 4603 4605 QITWAXN C001 0007 3759 
4607 4608 4610 4618 4619 4620 4629" 4630 4651 4652 4654 4655 TWAXNEXT C001 0004 3757 
4658 4668 TWAXSS ~—C 001 0006 3758 

20 20 
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O2|SYMBOL T LEN VALUE DEFN 


TUB2IG C001 0008 3417 
O3/TUB2RF C001 0010 3416 
TUB2UG C001 0018 3418 
TUB960 C001 0040 3330 
TWAYCEND C 001 0014 3740 
TWAYCNSL C001 O00F 3745 
TWAeCOMM C001 002E 3725 
TWRACSHQ C001 003C 3750 
TWAMCURI C001 O00E 3743 
TWAPERPS C 001 0033 3748 
TWAYINQ C001 0017 3721 
TWAYLCL C001 0009 3716 
TWAYLGIO C 001 0022 3722 


D/|TWAALOGC C 001 0030 3727 


TWA“PSBC C 001 0006 3713 


1226 *** END OF EXPANSION ** 


CROSS-REFERENCE 


REFERENCES 


4727 
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69 TWAXMAPL C 001 0003 3756 
05 Q]TWAXN C001 0007 3759 
55 TWAXNEXT C 001 0004 3757 


3757 4983 4983 5022 5022 


3760 4983 4983 5022 5022 


3758 
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3759 
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CROSS~REFERENCE 
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02) SYMBOL = T LEN VALUE 


REFERENCES 


WOCANL I 
WOCLR 
07| WOCPHELP 

WDEFFL 
WDEGTA 
08) WOELNE 
WDERS 
WETE 
09] WETI 
WEVE 
WEVG 
10} WEVI 
WDEVK 
WOFAIL 
11)/WOrna 


C001 0015 3985 
C 001 0080 3967 
C 001 OOFF 4002 
C 001 0005 3995 
C 001 0000 3954 


02) SYMBOL 


T LEN VALUE 


DLILSPCR C 001 


03] D1IL5SWRK C 001 
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CROSS-REF ERENCE 


02}SYMBOL T LEN VALUE DEFN — REFERENCES 


T LEN VALUE 


C 001 0001 
C 001 0003 
C 001 0020 
C 001 0007 
C 001 0002 
C 001 0001 
C001 0011 
C 001 0038 
C 001 0032 
C 001 0018 
C 001 0008 


C 001 0041 3979 


C 001 0045 


C 001 0020 4017 


C 001 0004 


C 001 0040 4016 


C 001 000E 


TWO C001 0002 0791 UDPROF 
Q3]UNCOND C001 0087 0802 03] MOPTG 
WDFLNE C001 OO0F 4019 4020 WOPTH 
WACT ~~ C 001 0008 3949 WTI 
WOACQ C001 0009 3950 04) wDPuT 
WOAEOJ _C 001 00F8 3990 WORACC 
WOAEOS C001 OOFO 3989 WORACR 
Q5|WOAID C001 O00C 3999 4000 05] WORAFN 
WOASFL C001 OOFF 3991 WORAFS 
WOCANL C001 0010 3984 WORAFW 
06{WOCANLG C001 0011 3986 06] UDRAQO 
WOCANLI. C001 0015 3985 WORCDG 
WOCLR C001 0080 3967 WORCOI 
O7|WOCPHELP C 001 OOFF 4002 7} WORCL 
WOEFFL C001 0005 3995 3996 WOROMD 
WEGTA C 001 0000 3954 WORDN 
OS|WOELNE C001 0011° 4021 4022 08] WORDS 
WOERS _C 001 0040 3964 3965 3966 WDROSN 
WETG C001 0041 3965 WORECA 
OO|MDETI C001 0045 3966 09] WDREL 
WEVE C001 0088 3969 WORES 
WOEVE ~~ C 001 +0081 3971 WORGI 
JO}WOEVI C001 0085 3970 10] WORGRF 
WEVK CC 001 0080 3968 WORGU 
WAIL C001 0032 3980 WORTRJ 
11|MOFMH = C001 «0012-3974 11, WORKBD 
WOFMHG C001 0013 3976 WORNAV 
WOFMHI C001 0017 3975 WOROFL 
J2|WOFMHO C001 0040 3927 12] WOROK 
WOFMTN. C001 0016 4024 4025 WOROL 
WOGET CC 001 0001 3942 3944 3946 3958 3962 3965 WORPAL 
13]WOGTA C001 000C 3953 13] WORPE 
WOINDA 001 0014 4023 4024 WORPEP 
WOINV ‘1 0005 3946 3948-3960 3963 3966 WORPUN 
14/WIOPC Cw 0000 4000 4004 4013 14] WORREL 
WOLEN C001 0017 4025 WORSCJ 
WONEO) C001 0068 3988 WORSPF 
15|WONEOS C001 O0FO 3987 15} WRSTD 
WONGRP C001 0020 3981 WORSTP 
WONGRPG C O01 0021 3983 WoRSTR 
0025 16] WoRTC 

WORTG 

WORTI 

17] WRUP 

WORUPD 

WDSACQ 

C 001 18] WOSAVE 

WOPEF C001 0022 3973 WOSLNE 

C 001 WOSPG 

19] WosP1 

WOSPN 

WOPRT C 001 WOSRCN 
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01 
CROSS-REFERENCE 


02] SYMBOL 


02]SYMBOL  T LEN VALUE DEFN REFERENCES 


DIIL5PCR C 001 O05F 0579 0580 
Q3}DIILSWRK C 001 0041 0531 0532 
DLINDR1 C001 0010 0343 0344 0372 
DIINLI2 C001 005C 0572 0573 
04/D1INL34 C 001 005D 0573 0578 
NiIPmORa CF MN) Nha NnBVa4 NRIS Nii 


T LEN VALUE 


DISETSWa C 001 


DEFN 


F27 
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D 


CROSS-REFERENCE 


01 
02/SYMBOL T LEN VALUE DEFN REFERENCES 

WOPRUF C001 0001 3937 
03/WOPTG + C001 0003 3944 

WOPTH C001 0020 3929 


WOPTT = C001 0007 3948 
O4/WOPUT C001 0002 3943 3944 3947 3948 3957 3958 3960 


WORACC C001 0001 3899 
WORACR C001 0011 3903 
O5|WORAFN C001 0038 3910 
WORAFS C001 0032 3908 


WORAFW C001 0018 3905 WOSYS = C 001 0080 3925 
06]WORAQO C001 0008 3902 D6|WOTUB == 001 0009 3997 
WORCDG C001 0041 3979 WOUNF C001 (0010 3930 
WORCDI C001 0045 3978 WOVSLN =C 001 0012 4022 
O7;WORCL C001 0020 4017 D7|WOUTER C001 0006 3933 
WORDMD C001 0004 3935 W960 C 001 +0008 3998 
WORDN 0040 4016 WSQSFAIL C 001 0010 0506 
OO0E 


C 001 
OS}WORDS C001 3955 DS] XAREAREF C 001 0020 0406 
XEAOFF C001 0040 4039 
0007 3997 XEBOFF = C001 0020 4040 


3962 3963 XFERCTL C001 0010 4041 


ZERO C 001 0000 0789 
ZONEBITS C 001 OOFO 0807 


TOTAL STATEMENTS FLAGGED IN T 
STATEMENTS FLAGGED AS WARNING 
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01 
CROSS-REFERENCE 


02) SYMBOL  T LEN VALUE REFERENCES T LEN VALUE DEFN 


DISETSWa C 001 006B 0619 
03/D1SMFa C001 O00E 0338 
DISTKa C001 0011 0373 


DISTKPTR C 001 OOI1C 0390 


OF BAD 2k BLOCKS) 


2K BLOCKS OF USER STORAGE 


QOOE 1301 SCAMAXRG EQU SCAMS#2K+1 1 SWAPPABLE TASK REGION SIZE 


1302 * 
OOOF 1303 SCASDISK EQU SCAMAXRG+] = 1 DISK CONFIGURATION 
0080 1304 SCAMDUAL EQU X'80° ; MULTIPLE SPINDLE DISK IR7I 
0080 1305 SCA2SPIN EQU  X‘80° : 2 SPINDLE DISK {R7] 
0020 1306 SCA3SPIN EQU  X'20° 2 3 SPINDLE DISK {R7| 
0010 1307 SCA4SPIN EQU X‘10° z 4 SPINDLE DISK {RTI 
0040 1308 SCADKCFG EQU  X'40' a DISK CONFIG FLAG {R31 
1309 * é 0 - SMALL CAPACITY DISK 
1310 * : 1 - LARGE CAPACITY DISK 


131 1 REKKERAARRAKERERRREREKKRK RARER KKEKRAERRARA KLARA RRR ARERR ARERR ERE RE RRIR 


1312 * THE FOLLOWING DISK CONFIGURATION FLAGS ARE VALID ONLY FOR A SMALL = * 


1313 * CAPACITY DISK, ONE WITH 60 SECTORS PER TRACK. 8 
1314 ERROR IOI IORR IOI IO TOIT IIIT RIT RTI III III I III IR IA 
0081 1315 SCANDSKS EQU  Xx‘81" DISK STATUS BITS 
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01 
CROSS-REFERENCE 
Q 


D1 

MODULE NAME FLAG RE 
D2]SYMBOL T LEN VALUE DEFN — REFERENCES 

#SVAT a3 
03 


WOSRCN C001 0008 4009 aa 13 § 
WOSRCT C001 0000 4004 03) @2001 
WOSRCW C001 O00A 4011 

0 


WDSRO1 C001 0001 4006 4 
D4) WOSRO2 C001 0002 4007 4 aa022—39 
WOSRO3 C001 0003 4008 49023 


WSTI C001 0010 3956 3957 3958 3959 3960 % 
WOSTMR C001 0008 3992 0 a0041 | 
WOSTP C001 (0012 (3957 aa0s2 


WOSYS = C 001 0080 3925 0093 ! 
WOTUB C001 0009 3997 3998 4554" 06 42 
WOUNF C001 0010 3930 3 
WOVSLN = 001 0012 4022 4023 43 
WOUTER C001 0006 3933 07 43 

960 C001 OOOB 3998 3999 47 


i) 
WSQSFAIL C 001 0010 0506 


aa) 45 
D8] XAREAREF C 001 0020 0406 08 al34 3 
[= C 001 0040 4039 aalg5 
49. 
D9] XEXAMID C 001 0080 4038 09 aalz24 4 
aai255 3. 
Ba290 ; 
10} XFEREBON C 001 0002 4047 10 43 
4a 
44 
1] 44; 
44 
XNTAREAE C 001 OOF 4044 4a 
XNTAREAS C 001 0008 4043 1 465 
XNTPRIV C001 0020 4042 465 
4592" 4645* 4662* 4946% 4947 4948 41 
C 001 0002 0777 4558* 4622* 4817% 4818 4819 4819* 4820 4826 4828* 4850* 4368* 4873 49 
8293 ¢ 
C 001 0014 0122 00344 44 
C001 0024 0121 0211 39354 ¢ 
C 001 0044 0120 0189 0202 0210 aa419 9 
C001 0084 0119 0201 92 
C001 0010 0118 93 
C 001 0020 0117 
C 001 0040 0116 0177 0206 
C 001 0080 0115 16] END OF THE CHANGE ACTIVIT 
C 001 0000 0789 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY CHANGE F 
STATEMENTS FLAGGED AS WARNINGS $313506 SS1 SV 03 


$317310 SS1 SU 05 
P0201 $5 02 


0} 
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CROSS-REFERENCE 


T LEN VALUE DEFN = REFERENCES O2]SYMBOL T LEN VALUE DEF 


0763 FIFO C001 0000 105 
0764 O3)F IVE C 001 0005 079 


Phi wae x kee 


12/08/81 21:28 


12/08/81 21:28 


I 
1 
1 
18 
] 


1355 * 


0013 1356 SCADCFG2 EQU SCADCFG1+1 
0080 1357 SCANCNAT EQU X‘80" 

0040 1358 SCAMPUSF EQU X'40° 
0020 1359 SCANJOBQ EQU X'20° 
0010 1360 SCAMSPOL EQU  X‘10° 
0008 1361 SCAPHDIK EQU  X‘08' 
0004 1362 SCAMOR EQU  X‘04° 


1365 * 


1368 * 


90022 3998 3999 


52 4141 
4252 4325 
4333 4335, 
4345 4346 
4364 4365 
4770 4771 
aal45 55 2472 
30184 325 
aa185 57 58 
4922 4933 
aa224 437 438 
aa255 324 
aa290 56 
4391 
4401 
4413 
4422 
4442 
4465 
4682 
4694 
4702 4706 
4966 4967 
60 4243 
440 
63 64 
913 914 


4334 
4392 
4404 
4414 
4424 
4450 
4466 
4685 
4695 


0001 1354 SCANSPB EQU X‘Ol" 


0002 1366 SCAPKNSG EQU X02" 
0001 1367 SCAMCMDE EQU  X'O1' 


4673 
4 


4774 
4142 
4326 
4338 
4347 
4366 
4772 
4607 


4176 
4934 
439 


4349 
4393 
4405 
4415 
4432 
4451 
4467 
4688 
4696 
4957 
4968 
4244 


484] 
915 


0014 1369 SCADCFG3 EQU SCADCFE2+1 


4674 
4n2 


4643 


4775 
4247 
4328 
4339 
4350 
4368 
4773 


4581 
4935 


4386 
4394 
4407 
4416 
4434 
4458 
4468 
4639 
4697 
4958 
4969 
5094 


4842 
916 


1 SSP_CONF IGURATION OPTIONS 


: X01" - ALLOCATE FILE ON ‘B° 


TF NOT IPL, INPUT JOB QUEUE 


DISPLAY STATION Of TRANSIENT 


DISPLAY STATION DM RESIDENT 


THEN RESIDENT/TRANSIENT 
, VERSION OF OSOM SELECTED. 
: KEEP INFO. MESSAGES AT EOJ 


‘ COMMAND LANGUAGE IS ENGLISH 


1 COMMUNICATIONS FEATURES 


F29 


4675 
4113 


4644 


4776 
4248 
4329 
4340 
4351 
4372 
4784 


4582 
4937 


4387 
4395 
4408 
4417 
4435 
4459 
4469 
4690 
4698 
4959 
4970 
5095 


4846 
917 


4616 
4714 


4717 
4249 
4330 
4341 
4353 
4375 
4789 


4583 
4938 


4388 
4396 
4409 
4418 
4439 
4461 
4619 
4691 
4699 
4963 
4971 


4847 
918 


4250 
4331 
4342 
4362 
4376 


4743 


4939 


4389 
4399 


4972 


$19 


921 922 
930 931 


923 
932 


924 
933 


925 


926 


END OF THE CHANGE ACTIVITY SUMMARY 


927 


4251 
4332 
4343 
4363 
4378 


4763 


4390 


{R4] 


1R3! 


0022 1414 SCATVTOC 
0023 1415 SOAIVTON 
1416 * 


0029 1420 SCADSSHS 
0028 1421 SCADSSCS. 
0020 1422 SCADSS!O. 
1423 * 


CHANGE FLAG REASONS ~ UC 
SS CP 03 07/18/77 TWB 4rE 
SS CP 03 07/18/77 TUB 47E 
SS DN 03 09/07/77 HOG 475 
TP SR 03 09/22/77 MLA 48L 
TP SN 03 01/03/78 ACM 486 
SS __ 04 03/30/78 CKS 44A 
SSP 04 07/06/78 YR 472 
TEL 04 07/06/78 RMR 472 
SS AD 04 10/18/78 SOD 47V 
CSP 07 01/25/79 TJL 490 
SSP SV 04 03/08/79 MAB 45x 
SSP 06 03/20/79 BSW 472 
CSP (05 06/15/79 SDD 47V 


SSP 07 :07/19/79 JHP 47R 


aacz2_—_-P 10304 

02] 0023 = P10310 
a04T——«PIO3I6 
aa052_—_ 10317 
04)aa093  P10342 
alas P10402 
aais4 —_P10419 
O6jaais5 P0420 
aot PIO4AI 
aa255___P10702 
08|aa290 —P10478 
aa298-—- P0606 
aa344 P0551 
1O}aa354 = P10704 
aa419 —— P10802 


CHANGE FLAG REASONS - VO7/23/79 ~ AS OF 12/08/81 21:29 


P10201 SS 


$313506 $S1 SV 03 11/07/78 MAB 45X 
$317310 SS1 SU 05 07/09/80 JWB 47N 
02 02/08/77 CPC 47N 


SSP 08 :01/12/80 JUB 47N 


END OF CHANGE FLAG REASONS 


01 


CROSS-REFERENCE 


£29 


PAGE 
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02} symBol 


T LEN VALUE 


REFERENCES 


1060 


4451 


NOLL 


a 


REFERENCES 


2 


wr PMOPULE TTR 29 FR BOL UT a me Bk Fal. | | TL Ot a 
1405 * FIELDS ARE ORDER DEPENDENT AND DESCRIBE A ONE-TO-ONE ié 
14 1406 * RELATIONSHIP WITH THE SYSTEM CONFIGURATION RECORD, PART-1. 4 057 144 
1407 * 0099 146 
OOIA 1408 SCASSTWA EQU  SCADCTR+2 2 SS OF TASK WORK AREA OF 196 
15 OOIC 1409 SCATUASZ EQU SCASSTUR*2 2 SIZE OF TASK WORK AREA 5] 14 
1410 * O05A 146 
OOlE 1411 SCAFVTOC EQU  SCATWASZ+2 2 SECTOR ADORESS OF DISK Vioc BOED 146 
16 0020 1412 SCAFVTON EQU SCAFVTOC+2 2 — SIZE OF DISK VTOC é 0010 14% 
1413 * 146 
0022 1414 SCAIVTOC EGU SCAFVTON'2 2 SS OF DISKETTE WTOC UDRK AREA C058 146 
V7 0023 1415 SCAIVTON EQU SCAIVTOC+1 1 — SIZE OF DISKETTE VTOC MORK AREA 0080 148 
1416 * 0040 147 
0025 1417 SCASIOSS EQU  SCATVTON*2 2 SS OF Si0 TABLE DIRECTORY O00 147 
18 0027 1418 SCALOGSS EQU SCASIOSS*2 2 SS OF ERROR TABLE DIRECTORY I OO10 147; 
1419 * 0008 147 
0029 1420 SCADSSHS EQU SCALOGSS+2 2 55 OF MAIN STORAGE DUMP AREA 008 147: 
19 0028 1421 SCADSSCS EQU SCADSSIIS+2 2 SS OF CONTROL STORAGE DUMP AREA 9} 0002 147: 
002D 1422 SCADSSIO EQU SCADSSCS+2 2 ~_SS OF 1/0 PROCESSOR OUNP AREA 0001 147 

Oj 0 
F30 
LYC? - 1364-7 tf 
01 D1 

aa022__P10304_SS_CP 03 07/18/77 THB A7E 29 JANUARY 82 PR 


COPYRIGHT [8M CORP. 1 
02] a023 = PIO310 SS_ CP 03 07/18/77 TWB 47E 


90041 PIO316 SS DM 03 09/07/77 HOG 47S aaa aaa 
9052 P10317_-TP_ SR 03 09/22/77 MLA 48L aaa aaa 
AAR RRAIRRRAAA 
= 
aaa aaa 
aai45 ~~ P10402_ SS __ 04 03/30/78 CKS 44h aa aaa 
0! bs) aaa aaa 
aa184 — P10419_SSP_ 04 07/06/78 RMR 472 ! aaa aaa 
RRR ARRRaRER 
06}aals5  P10420 TEL 04 07/06/78 RIR 472 D6 adadaraananaaana 
aaa aaa 
aaaes  P10441 SS AD 04 10/18/78 SDD 47V aga ‘aaa = 
07 D aa aaa 
#255 P10702_-CSP_—_—O7_: 01/25/79 TJ 49D 
08]9a290 P1478 SSP SV 04 03/08/79 MAB 45K D8 
#4298 ~~ PIO606 SSP 06 03/20/79 BSW 47Z ‘andi aaa 
09 D9 aaa aaa 
344 PIO551_~CSP 05 06/15/79 SDD 47V aaa E) 
aaaa aoa 
10)aa354 © P10704 SSP —-07:07/19/79 JHP 47R 0 ange aaa 
aaaa aaa 
aa419—« PI0802- SSP «08: 01/11/80 JB 47N aaaa aaa 
ll asaa aad 
aaa aaaa 
END OF CHANGE FLAG REASONS aaa ‘aaa 
12 aaa aaa 
aaasaaaaaaaaaa 
aaaaaanaaaaa 
13 saaaRaEe 
14 
anaasadaansaadaa 
15 anaaaaanadnogada 
aaaaaaRadaRaRAat 
aaa 
16 aaa 
aanaaaaaaaaaa 
aaeaaaadaadaa 
V7 andasaaaaaada 
aaa 
aaa 
18 aaa 
aAsaadaaAAdASARaR 
aadinadaacaaaadad 
19 adgadaancmanasaa 
20 


E30 
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34 VO9/11/81 12/08/81 21:28 01 


CROSS~REFERENCE 


02] SYMBOL oT LEN VALUE DEFN REFERENCES SYMBOL oT LEN VALUE DEFN fF 


INITSCa A 002 OFBE 5095 4 
1B C 001 0001 0781 


FIAMIFIL C 001 0010 0972 
O3)/FIAMINDX C 001 0080 0846 


2 ADDRESS OF DEVICE ALLOC TABLE 


0055 1458 SCADVICE EQU — SCADBSCT+2 
1459 * 

0057 1460 SCADSEU@ EQU SCADVICE+2 2 ADDRESS SEU MEMBER CHAIN 

0059 1461 SCADSEUQ EQU  SCADSEU2 = 2 SEU QUEUE HEADER 

0059 1462 SCAIPLW6 EQU  SCADSEUQ 2 TPL WORK AREA 


1463 * 
OOSA 1464 SCADSLOG EQU  SCADSEUQ+1 1 SYSLOG ASSIGNED INDICATOR 
OOEO 1465 SCAMPRT EQU X°EO’ : SYSLOG ASSIGNED TO PRINTER 
0010 1466 SCAMCRT EQU X'10° : SYSLOG ASSIGNED TO WORK STATION or 
1467 * i, 
0058 1468 SCASYS! EQU SCADSLOG+] =i SYSTEN CONFIGURATION BYTE 5 o 
0080 1469 SCAHFERR EQU X'80" > X°80" ~ ERROR IN HISTORY FILE Q 
0040 1470 SCAMIPLC EQU X : X'40° - IPL-PROCESSING COMPLETE x 


X'20" - [PL-OVERRIDE RECEIVED 
X"10° - IPL-SIGN ON COMPLETE 
X°08' - [PL-FILE REBUILD 
X'04" - SYSLOG EJECT AT £0) 
X*02" - CONFIG RECORD LOCK 1R3} 
X"O1' - PREPARE REQUEST ISSUED 


0010 1472 SCAMIPL EQU 
0008 1473 SCAMRBLD EQU 
0004 1474 SCAMEJCT EQU 
0002 1475 SCANCLOK EQU 
0001 1476 SCAMPREP EQU 


Sif Wie ee sS 


F31 
LYC7? - 1364-7 IBM SYSTEM/34 SYSTEN SUPPORT PROGRAN PRODUCT ai @SVAU 12/08/81 15:51 
D1 
29 JANUARY 82 PROGNO _5726~SS1 REL: _RO8-100 
: COPYRIGHT IBM CORP. 1978 LICENSED MATERIAL - PROPERTY OF [Bn 
D 0 


D8 03 
aaaa aaaa 

9 aada jana OF 
aaaa aaaa 
aaaa aaaa 

10} aaa anda 10 
aaaa aaaa 
aaaa aaa 

11 aaaa aaaa 11. 
aaaa aaaa 
aaaa aaa 

12 aaa aaaa 1 
aaaaaaaaaaaana 

agadaaaaaada 

13} aaaaaaaa 1 

4 14 
aaaaddaaadaaanaa aaaaaaaa ESS) 

15] aaaadaaaadadaaaa aaanaaaaasad aqaaaa 15] 
@aaadaaaaaaaaada aaaaaaaaaasaad anaaaaan 
aaaa aaaoo aaadal aaa aad 

16 aaaa aaaa aaaa aged aoa 16 
aaadaaaRaaaaa dana aaa 
aadadaadanaaa anaada asia 

17 aaaaanaaaaaaa aaaaaa aaa 7 
aaaa aaa aaad 
aaaa aaa aade adda 

13} aaa aaaaa aaaaa ange 13 
aaAAAaRaRARAGARA agadaaaanaaaaa aaaananaganaad 
aaadoadanadandaa adaaaaAaaaaa aaaaaaadaaadcn 

19) aadaaaadaaaaaada aaaaaana aacanasaanadaa 19 

D0) 0 

E31 
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CROSS-REFERENCE 


2) SYMBOL oT LEN VALUE OEFN T LEN VALUE DE 


REFERENCES 


INITSCA A 002 OFBE 5095 4244 


ml rap CT ART oOAnARG oAt8s 


TWPGADIC C001 0034 12 


PP eA ee a ene te 


TPL WORK AREA CEND) O78 1567 | 


1 OOFD 1568 | 
0060 1515 SCADNTUB EQU  SCADKLAC+2 2 ASTER CONSOLE TUB ADDRESS GOTE 1569 5 
2 SYSTEM PRINTER TUB ADDRESS OFF 1570" 
1 0080 1572 § 
DISPLACEMENTS AND BIT MASKS 0082 1572 5 
1573 
1 0070 1520 SCADCPS1 EQU = SCADPTUB+] 91 = SWITCH BYTE ONE 0084 1574 
0080 1521 SCAMCPL EQ X'80" - STOP COMPLETE MESSAGE SENT 1575 * 
0040 1522 SCAMALL EQU  X‘40° . NO JOBS CAN BE INITIATED 0685 1576 § 
7 0020 1523 SCARSJE EQU X‘20° - SPOOL WRITER/JOBQ EOJ REQUIRED 008A 1577 § 
0010 1524 SCAMMSE EQU X°*10° -__WS0M SEND EOJ COMPLETION CODE 1578 ° 
0008 1525 SCAMSST EQU X'03° - SPOOL WRITER HAS BEEN STARTED 0088 1579 § 
18 0004 1526 SCAMQS EQU x‘04' - JOBQ HAS BEEN STARTED 1580 * 
0002 1527 SCANSEC EQU  X‘02' - SECURITY IS ACTIVE 008C 1581 $ 
0001 1528 SCAMERP EQU X'‘Ol' . CALL 1/0 ERP TRANSIENT 
] 1529 * 
0071 1530 SCADCPS2 EQU  SCADCPSI+1 SWITCH BYTE TWO 
0080 1531 SCAMKEYS EQU  X'80° . KEY SORT ALL FILES AT SHUT DOUN 


F32 


#SVAU 12/08/81 15:51 4500 SYMBOL VERSION OF 


01 01 
You _ySeD 1913 SYMBOLS. 


= TENGTH OF MODULE 1S 1851 
Ta) 03) 
Baa ms 
aanaa 
aaaa 04 4 
aaa 
aaa 
anaaaD 05) 
aaRAaA 
aaaaaR 
aaaa 06 
aaaa 7 
aaaa 
aaaa 07 0 
0's} OSI 
09 Oo 
10] 10 
ll val 
12 nt 
B 13 
14 14 
15} 19 
16 16 
7 Vv 
18 18 
19 19 
0 ‘ 
E32 
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CROSS-REF ERENCE 


SYMBOL oT LEN VALUE DEFN = REFE 


02) SYMBOL = T LEN VALUE REFERENCES 


SCBBIQST C 001 005A 1513 151 
103} SCBDLANG C G01 0062 1519 1525 


seis. wiar le ae * acs » ~Dalogtee 9 ice fa 


IWPGADDR € 001 0034 
TWPGATR4 C 001 0043 1299 1300 


TRIBPCATTOD FANT AAS yon “ag taht 


QDUTR 1202 SUAUPIRK CU NUMBER RUCLEUS 2K BLOCKS 1R4} 
1566 * 
007B 1567 SCADMCTR EQU COUNTER OF MRT JOBS ACTIVE 
0070 1568 SCADSCIM EQU ADDRESS SYS CONSOLE IMAGE MATRIX 
OO7E 1569 SCADMID® EQU MESSAGE ID # FOR SYS CON REPLY 
OO7F 1570 SCADRSCZ EQU SIZE OF RESOURCE SECURITY FILE 
0080 1571 SCADSECZ QU SIZE OF SECURITY FILE 
0082 1572 SCADCPWa EQU 
1573 * 
0084 1574 SCACSATB EQU CONTROL STORE ALLOCATE TABLE 
1575 * 
0085 1576 SCADXSLT EQU 
008A 1577 SCADSLOT EQU  SCADXSLT+5 12 SLOT NUMBER DECIMAL 
1578 * 
0088 1579 SCADMOQNT EQU — SCADSLOT+1 MESSAGE Q COUNT 
1580 * 
OO8C 1581 SCADCSP1 EQU 
0080 1582 SCAN1255 EQU 
0040 1583 SCAMARNR EQU 
1584 * EQU 
0010 1585 SCAMACDV EQU 


4500 SYMBOL VERSION OF THE ASSEMBLER WAS USED. o SSVAU TCR CHANGE ORG OR DETACH TRY 
1913 SYMBOLS. ERR LOC OBJECT CODE AODP STNT 
Q 0800 2 
3 
4 
| 03) 5 
6 
7 
0 8 
9 
10 
05} YW 
12 
| 3 
06} 14 
15 
16 
07 v 
18 
19 
08 20° 
he 
220 
9 23 | 
24 
Bi 
10} 2 
27 | 
HB 
1] 29 
3 
RS 
a? . 
3 
3a 4 
13 ci 
3 4 
7 
14 38° 
Bi) ‘ 
F's) ‘ 
15 ai? 
a? ‘ 
437 
16 “a? 
ay ? 
ab . 
Y a7 
48 * 
a » 
ph 50° 
31° 
52” 
19 53° 
54 * 
55 * 
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CROSS-REFERENCE 


SYMBOL 


2] SYMBOL oT LEN VALUE DEFN — REFERENCES 7 LEN VALUE DEFW 


ORPMUIDE CC ft AAW %>wWe 


JCBDJOST C 001 OO5SA 1513 1914 


ee Moh h SA RET 8 PS CL RTL CAD re Lm 
WOULD BE X‘C8". 
AUTOCALL AND X.21 ARE MUTUALLY EXCLUSIVE. 


15 0080 1625 SCATLINI EQU  X"80" . COMMUNICATIONS ON LINE 1 
0040 1626 SCAMLIN2 EQU  X‘40° ~_ COMMUNICATIONS ON LINE 2 
0020 1627 SCALIN3 EQU Y‘20" ~ COMIUNICATIONS Gn Lime 3 

16 0010 1628 SCALING EQU x'19" . COMMUNTCET TONS ON LINE 4 

1629 * 

0008 1630 SCAMACU] EQU x‘08" . AUTG CALL OW LINE 1 

17 0004 1631 SCAMACU2 EQU X'04" . AUTO CALL ON LINE 2 
0002 1632 SCAYACU3 QU X‘02' AUTO CALL ON LINE 3 
0001 1633 SCAMACUS EQU x‘OI" . AUTO CALL ON LINE & 

18 1634 * 
0088 1635 SCAYK211 EQU X'S?" ~X.21 ON LINE 1 
0044 1636 SCAYK212 EQU K"44" ~ X.21 ON LINE 2 

19 0022 1637 SCAYK213 EQU . K.21 ON LINE 3 


0011 1638 SCANK214 EQU K.21 ON LINE 4 


*SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


2 SSVAU START X‘0800° 


4 */* COPYRIGHT= 5726-SS1 COPYRIGHT IBM CORP 1977, 1981 i 
LICENSED MATERIAL - PROGRAM PROPERTY OF 18m Sf 
REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083.*/ 


Q RARARRARAAAAARAR KK RARRARERRERRAERAEER RARER RAE REI RRR RRR RIE 
g* 
10 * TITLE: #SVAU - SUPERVISOR TASK DETACH OR CHANGE ORG POINT 


05 l* 
12_* FUNCTION/DESCRIPTION: #SVAU IS CALLED WHENEVER THE ORG POINT OF A 


re oe ee a ee er sy 


13% TASK I'S TO BE CHANGED AS IN GOING SCHEDULER 
06 14% TO USER, USER TO SCHEDULER, OR WHENEVER 
15 * THE TASK IS TO BE DETACHED FROM THE SYSTETt. 
16 * WHEN A TASKS ORG POINT [S CHANGED, *SvAli 
07 17 * FIRST DETERMINES If ENOUGH MAIN STORAGE 1S 
18 * AVAILABLE TO LOAD THE PROGRAM BEING REQUESTED. 
19 * IF MAIN STORAGE EXISTS, THE OLD SWAP AREA ON * 00150000 
08 20* DISK IS FREED ONLY IF IT IS LARGER THAN THE * 00160000 
2 * SWAP AREA REQUIRED, OR IF WHAT IS REQUIRED * 00170000 
22 * TS SMALLER, AND THE TASK IS IN TERMINATION.  * 00180000 
09 23 * NEXT, ALL BUT THE FIRST 2K ASSIGNED TO THE = * 00190000 
24* TASK IS FREED, AND BOOTSTRAP CODE MOVED TO) * 00200000 
2 * THAT PAGE TO START UP THE REQUESTED PROGRAN. * 00210000 
10 26 * SSVAU IS ALSO CALLED WHENEVER A TASK . 00220000 
27° 1S TO BE DETACHED FROM THE SYSTEM. THE . 00730000 
28 * TASK'S SHAP AND MAIN STORAGE IS FREED. ALSO * 00240000 
11 29 * ALL RB‘S AND THE JCB IF REQUIRED, AND FINALLY * 00250000 
30* THE TCB. DETACH IS REQUESTED BY CALLING QJ. * 00260000 
31* . 00270000 
1 32 * ENTRY POINT: THERE IS ONLY ONE ENTRY POINT - *svau . 00280000 
33 = 00290000 
34°* INPUT:  XR1=> ATTACH PARAMETER LIST . 00300000 
13 35 * 00310000 
36 * OUTPUT: THE TASK'S ORG POINT IS CHANGED, OR THE TASK IS DETACHED = * 00320000 
37 FROM THE SYSTEM. IN THE FORMER CASE, THE ROUTINE GIVEN * 00330000 
14 38 * CONTROL IS THE PROGRAM POINTED TO BY THE PARM LIST. ® 00340000 
39 * * 00350000 
40 * EXITS: NORMAL - TO ROUTINE 10 BE FETCHED. 2 00360000 
5 4 * . 00370000 
42° ABNORMAL - TRANSIENT EXIT IF MAIN STORAGE OP SWAP STORAGE = * 00380000 
43% UNAVATLABLE TO START TASK 7 00390000 
16 44% of 00400000 
45 * EXTERNAL REFERENCES: CONTROL STORE ROUTINES - ASSIGN/FREE, ® 00410000 
46 * FREE PAGE, SCB GET, LOAD ATRS, QUEUE, * 00470000 
V7 47 * POST, GPOST, PrR * 00430000 
= 43.” * 00449000 
49 * NOTES: THIS ROUTINE MUST EXECUTE IN THE MAIN STORAGE TRANSIENT ® 00450000 
18 50 * AREA * 00460000 
51% ® 00470000 
52 * CHARACTER CODE DEPENDENCY: N/A : 00480000 
19 53 * . 00290000 
54 "/* CHANGE ACTIVITY - #SVAU * 00491000 
55* * 00491500 
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01 
CROSS-REFERENCE 


O2}sympol = T LEN VALUE REFERENCES SYMBOL oT LEN VALUE DERN 9 >t 
JCBRHIPR C 001 0030 1374 SCBMUPSS C001 000] 1433 
03) JCBRICRC C 001 0008 1400 JSCBMUSLE C001 0004 1379 


JCBMINHT C 001 0010 1365 JCRUKT € 001 «O020 146) 


1676 * G7 OGD TAMU TIPLES OF THE “i ° 
1677 * HISTORY FILE (1-8), ae TN 
ae? : fi eae a ie LS es Eee ea ee eee 75 
OOA?2 1679 SCADRSEC QU SCADCRG?+3 3} RESERVED FOR SECURITY USE OR? 1789 4 
1680* tesiagneall ONS 
OOR4 1681 SCADHFIK EQU “SCADRSEL<2 7 SECTOR OFFSET OF TAC EWTRY:~ 308 TH 
1682 * HISTORY OVERFLOW FILE, SN ISTOW 17m * 
1633 * MOC ATHY § 
SAS as ai Ki TS GA GRRE MO 
1685 * 
OOA? 1686 SCADCFGS EQU  SCADURKA: | SSP_CONE IT RAT IGN 3) 
16a? * tw 30° RES. FD 4 ee 
0040 1688 SCAPASP EQU K*40" USE WORK ATION PRINTER A 
1639 * EQ X'20° FEM Sn ah Ret ST 
169 * tw 10 RESEREDtC—“‘“ CséSOSOS™S*‘“‘“‘SNNNCOWOWOOO 
1691 * Eq x08" RESERVED RR 
1692 * EQ x‘04" RESERMED 
1693 * EQ x*02" RESERVED ee gee 
#35 
9/11/81 12/08/81 21:31 *SVAU TCB CHANGE ORG OR DETACH TRANSIENT Piet 2 WOO/TT/8) 12/08/81 71 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 7 Te nok ed 
00020000 | 02 56% RELEASE 3: < ones 7000 1! 5 
00030000 57 * aia041 - CHANGE TO SUPPORT PICCOLO DIE ‘ 0089 30900 ee eet . 7 
58° aa003 - SUPPORT SECONDARY SNA res Qoea000 y 
0 59* aa052 - PTR PISCPOZ] SRJE SUPPORT FIX . OO6O8OGO | “4 
60 * RELEASE 4: : kale (tn ee 
6 * ga254 - SUPPORT FOR SMUGETPK ¥ 0896 THO i 
00040000 | 04 62 * a@al45 - SUPPORT FOR ICFCNDYER)-3/5/79. . 004942.4G "2 
00050000 63° 2145 - FREE ANY JCB EXTENSION-ICF-4/23/'79-1A8. : 00906900 Fe 
00060000 64a * aal45 - FREE ANY FSB“S OR F1°S ASSOCIATED WITH TH * Cvs % 
00070000 | 05} 65 * OETACHING TASK, P10402-ICF-5/5/79, tvaB. * oa9.4870 | on 
00080000 66 * RELEASE 5 : - i 
aapso00 or PTR - PSWDOO! - [OMAC ALD PART CHANGE. 977 776,Ra ~ 
00100000 | 06 68 * ° 
001 10000 69 REKREAAEA CRAKEAR REAR ERA EEE T ERE EKER ERE ERAT RETR OO RE ER Oe 
00120000 
00130000 | 07; 
00140000 
00150000 
00160000 | 08 
00170000 
00180000 
00190000 | 09 
00200000 
00210000 
00220000 | 10 
00230000 
00240000 
00250000 | 11 
00260000 
00270000 
00280000 | 1 
00290000 
00300000 
00310000 | 1 
00320000 
00330000 
00340000 | 14 
00350000 
00360000 
00370000 | 15 
00330000 
00390000 
00400000 | 16 
00410000 
00420000 
00430000 | 17 
00440000 
00450000 
00460000 | 18 
00470000 
00480000 
00490000 | 19 
00491000 
00491500 
OF 
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01 


02} SYMBOL 


£35 


PAGE 


CROSS-REt cee WE 


140) ¥O9/11/81 


12/08/81 21:28 


T LEN VALUE DEFN = 2EFERENCES 


JCBMUPS3 C 001 0001 1433 


O3}JCBAUSLB C 001 0004 1379 


JCBMUDKT C 001 0020 1461 


{OS MUarSSOS C O01 1000 1774 yw 
NUAMKACE C O01 0360 


ly 


16 


7 
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a ek Ri RR RL RR Re RD 


¥O9/11/81 


12/08/81 21:28 


atc allnliltb teckel be ioachocian Ai ele 
Wi * EQU Tell 
0087 1733 SCAOMDBR EQU SCADCEGS*12 12 USOM BRANCH TABLE CHG STEM 
34 * 
O0BF 1735 SCADRSPC EGU “SCADUDRR-§ EP arSctREp 
V3 * 
OOCO_1737_SCADOPS4 EQU RB) 
0080 1738 SCAMWHLD £QU 
i * FQ 
174) * EQ 
Val * £Qu 
Va? * EQ 
1743 * iy 
744 * EQU 
1745 * £Q. 
174% . ~ some sear penne 0 pevhiyaint era anni ttagreitunre ontmavinn sete 
OOC2 1747 SCADMNID EQU SCADCPS4*? =? EXT. ADDRESS MAPPING “f nar 
36 
#SVAU TCB CHANGE ORG OR DETACH TRANSIENT Pant 


ERR LOC OBJECT CODE ADDR . SOURCE STATEMENT 


71% ACE 


TD ARERR ERR ERE ERE EEE EEE ERE HELENE EER EEE HOE OH 


73% 


74 * CHAIN 


76 * 8* 


77 * PARNS * TYPE * 


1* 
i TAR 


ro. or 
* * Tee 


ge 
XR1 


ef ” 
s 8 ype ’ 


e 


79 x * 
0001 80 ACECHAIN QU 1 CHAIN TO NEXT ACTION COMTRD. FLENNT 
000381 ACEJAR EGU ACECHAINY2 = CALLERS Sew VALUE 
0005-82 ACEMAB «EQU © ACETAR+2 MAB ADDRESS (CONTROL STORAGE ACES -_ 
0006 «83 ACEPARM EQU ACENAB+1 FIRST IN-LINE PARM 
0007 84 ACEPARMZ EQU ACEPARMI+1 SECOND IN-LINE PAR 
0008 «85 ACEPARMS EQU  ACEPARTZ+1 THIRD IN-LINE PARM 
0009 86 ACETYPE EQU ACEPARM3+] © TYPE OF ACE CCTRL OR MAIN STORAGE) 
0080 87 ACEMSCL EQU x‘80° INDICATOR FOR MAIN STORAGE ACE _ 
0000 88 ACECSCL EQU  X*00" INDICATOR 7“ CONTKL STORE ACE 
0040 89 ACEPRIV EQU  X*40" INDICATOR U2 PRIVILIGED ACE 
0020 90 ACEIOCHN EQU X‘20" CHAINED 108 INDICATOR 
0010 91 ACELOG EQU  X"10° INDICATOR FOR SYSLOG CALLED 
0010 92 ACECPERR EQU X10" INDICATOR FOR ASYNC ERROR ACE. 
0008 93 ACEMMAIT EQU  X*08" MULTIPLE WAIT INDICATOR _ 
0008 «94 ACEINUSE EQU  K*O3" WS ACE IW USE. ~ 
95 * NOTE: THE FOLLOWING EQUATE MUST BE THE SANE AS QKLOFF IW S¥EQU 
0004-96 ACEXLOFF EQU  X‘04" INDICATOR FOR [0B 15 IN REAL >TORAGE 
0001 97 ACEQUIES EQU X*O1° INCREMENT QUIESCE COUNTER vALLE 
OOFE 98 ACEMASK EQU X'FE* MASK TO TURN OFF AL. EXCEPT QUIESCE 
0008 99 ACEXRI EQU ACETYPE+2 CALLERS XR1 VALUE 
0000 100 ACEXR2 EQU ACEXRI+2 CALLERS KR? VALUE 
OOOF 101 ACETCBA EQU ACEXR2+2 TCR ADDRESS 
0010 102 ACELEN EQU ACETCBa+1 LENGTH ur ACE 


103 *** END OF EXPANSION ** 


PAFE 141 WO9/11/81 
CROSS-REFERENCE 
O21SYMBOL oT LEN VALUE DEFN REFERENCES 
01CO 1693 1696 
1000 1774 vw 
0360 (1732 1734 
02A8 1713 (1716 
0000 1687 1690 4705 4325 4376 4597 46379" 4447 4444 4471" 2.3% 4779" “ar 


12/08 2, 


A ot ok a tacit ont oh VE EE 


lol 1790 ese ee al Pe awe ee gh, VAP een Bl 
O0C6 1791 SCADICSA EQU  SCADCFG6*2 = 2 ICS COMMUNICATION AREA ADOR (RAI 


1792 * 
W OOCE 1793 SCADRFTR EQU SCADICSA*8 8 RESERVED 
1794 * 
0006 1795 SCADUCFG EQU SCADRFTR*S 8 UDT COrmt CONFIGURATION RBI aes 
18 0005 1796 SCADUDT! EQU SCADUCFG-1 LINE 1 CONFIGURATION (BYTE 0) IR3i 
0003 1797 SCADUDT2 EQU  SCADUCFG-3 LINE 2 CONFIGURATION BYTE 0) IR3i__ ee eee 
” OOD1 1798 SCADUDTS EQU “SCADUCFG-5 —. TINE 3 CONFIGURATION CBYTE 0) (R61 
19 OOCF 1799 SCADLDT4 EQU SCADUCFG-7 LINE 4 CONFIGURATION (BYTE 0) 1R6I 
1300 * NOTE ~----> SEE COMPRESSED UNIT DEFINITION TABLE (UOT) = 
igo1 * DESCRIPTION FOR DEFINITION OF BITS 


G01 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE = 4 -WO9/11/81 12/08/81 21:31 #SVAU TCE CHANGE ORG OR DETACH T 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


105 * ATACH V-EQU 

106 SATLOAD EQU  X‘0B' LOADER PARN LIST OFFSET 

107 SATFLAG EQU  S$ATLOAD+1 FIRST FLAG BYTE OFFSET 

108 $ATCREAT EQU xX '‘80" CREATE A NEW TCB 

109 SATREAL EQU  X‘40' LOGICAL = REAL TO LINK a 

110 SATTUBAS EQU = X'20' ON - TUBA PASSED IN PARM LIST 
* OFF- JCBa PASSED IN PART LIST 
112 SATNONAN EQU  X'10' ON ~ LON'T ASSIGN JOB NAME 

113 * OFF- ASSIGN JOB NAME 
114 S$ATDATA EQU  X'‘03" PUT DATA TO SESSION WORK AREA 
115 * ALSO, DUMMY UP INVITE 
116 $ATPRIV EQU  X‘04" TASK IS PRIVILEDGED 

117 SATNSWAP EQU  X'02" TASK 1S NOT SWAPPABLE 

118 $ATFRPRN EQU Xx ‘Oi" FREE ATACH PARM LIST 

119 SATINIT EQU  SATCREAT+S$ATREAL*+SATTUBAS*SATDATA+SATPRIV START INIT 
120 $ATSPOOL EQU  $ATCREAT+$ATREAL+S$ATNONAM+SATPRIV START SPOOL 
121 SATBATCH EQU  SATCREAT+SATNONAN START BATCH 

122 SATMSSIZ EQU  SATFLAG+1 #2K BLOCKS OF MAIN STORAGE 

123 SATPRIOR EQU $ATNSSIZ+1 = PRIORITY OF NEW TASK 

124 $ATTUBA EQU  SATPRIOR+2 TUB ADDRESS 

125 $ATJCBA EQU = SATTUBA JCB ADDRESS 

126 SATSSSN EQU  SATTUBa+4 SSSN VALUE OF NEXT TRANSIENT 
127 SATFLAG] EQU  $ATSSSN+1 SECOND FLAG BYTE 

128 SATRFRSH EQU = X80" REFRESH UNCOND. IF ATACH SUCC. 
129 SATCOMON EQU = X'40' PROG. HAS COMMON 

130 $ATQKINT EQU  X‘20' PASS CONTROL TO INITIATOR 

131 SATINCJC EQU  X"10" INCREMENT JOB COUNT 

132 SATSYSTK EQU = X'08" SYSTEM TASK 

133 $ATNRTUB EQU  X'04' REQ. TUB, BUT NOT OWNER 

134 SATNCNIQ EQU  X‘02" DISALLOW CANCEL OR INQ 

135 SATACHER EQU X‘Ol* ATTACHERCMRJE) INDICATOR 

136 SATTSKID EQU  SATFLAGI+1 TASK iD OF TASK ATACHED 

137 SATDATA EQU > °TTSKID+2 = ADDRESS SF DATA TO PUT 

138 SATLENG EWU SATDATAG+] = LENGTH OF ATACH PARMLIST 

139 * 

140 * ERROR RETURN CODES IN XR1 IN FORMAT OUXX, WHERE XX: 

14. * TF ATTACH WAS SUCCESSFUL, XR1 RETURNS WITH ATTACHED TASKS TCB 
142 * ADDRESS. 

143 * 

144 SATERROI EQU = X‘O1' NOT ENOUGH STORAGE 

145 SATERRO2 EQU  X‘02' TASK NON-SWAPPABLE, AND NOT 


146 * ENOUGH STORAGE 
147 SATERRO3 EQU = X'03* TASK NON-SWAPPABLE, AND [TS 
143 * STORAGE REQUIREMENTS WILL 


149 * PUT A SWAPPABLE TASK TO SLEEP 
150 SATERRO4 EQU = xX'04" ASSIGN FAILURE ON TCB 

151 SATERROS EQU  x‘05' ASSIGN FAILURE ON Ro 

152 SATERROG EQU  X*06" ALLOCATE FAILURE FOR SWAP AREA 

153 SATERRO? EQU  X‘07" ALLOCATE FAILURE FOR WSUA 

154 *** END OF EXPANSION ** 
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CROSS-REF ERENCE 


O2)SYMBCL = -T LEN VALUE REFERENCES 


PUSHCORE C 001 1793 4360 
Q3}PUSHIND C 001 1783 4359 4362 
PUSHLEN C 001 
PUSHNONS C 001 4360 
PUSHOCH C 001 1783 4363 4369) 4370 
PUSHOSS C 001 1784 
PUSHPART C 001 4359 
PUSHTSSN C 001 1789 
QCPWAIT C 001 


OHORFILK C 001 
OMDRPT = «C001 


022 1876 S¥CDU 
0023 1877 SUCTE 
0024 1878 SUCPR 
0025 1879 S¥ORD 
on26 1880 vCRR 
002? 1881 SVCDS 
0028 1882 SVCRP 
0029 198% S¥CSO 


OO7E 1888 SvCTa 
See See ete an AE 


1896 % "eff 


781 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 5 WO9/11/81 12/08/81 21:3) - SSWAU TCR CHANGE ORG OR DETACH TRANS! 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR _STHT 50k 
02 156 * CSB 00560000 | 0, 216 CSB 
157 KRAAARARRA KARRI IRI RIOR IO IIR IOI TOOT ORO IORI TOR TOR IO II IO OT OI FOIE 211 Coe 
158 * * D2 CS 
03 159 * EQUATES FOR COMMUNICATIONS SPECIFICATION BLOCK * 213 C5 
160 * THIS BLOCK IS ADDRESSED FROM THE OTF. , eee EF 214 CSE 
161 RRARARAKKKEARAARIR IKI IR RI IR IIT IORI RIOR IOC OOOO IO IOI 215 CS8 
04 216 CSB 
0001 163 CSBDECM EQU 1 EVENT CONTROL MASK oe 
0001 164 CSBOMTCL EQU — CSBDECH MONITOR LINE OWNER TCB @ COVERLAYS ECrD 218 8 
05 0002 165 CSBDLINO EQU CSBDECM+] LINE NUMBER 29° 
0001 166 CSBMLINT EQU  X‘01' LINE NUMBER ONE 220 * 
0002 167 CSBMLINZ EQU X‘02' LINE NUMBER TWO 221 ** 
06 0003 168 CSBMLIN3 EQU  X‘03' LINE NUMBER THREE 
0004 169 CSBMLIN4 EQU  X'04" LINE NUMBER FOUR esss—s—‘“—sSSSSsisi“Y Ce 223 C98 
274 C58 
07 0003 171 CSBDDVCD EQU CSBDLINO+1 DEVICE CODE 225 CSB 
0080 172 CSBMBSC EQU  X'80' BSC 226 CSB 
0081 173 CSBMSNA EQU  X°81' SNA 227 C58 
08 0082 174 CSBMMRJE EQU  Y'8?' MRJE 228 C9 
0083175 CSBNSDLP EQU X‘83"_ SDLC PRIMARY 229 C58 
0084 176 CSBMSN44 EQU  X‘84" SNA44/SDLC TRIBUTARY 730 CSB 
09 0085 177 CSBMICF EQU X‘35' INTERACTIVE BSC 231 CSB 
0086 178 CSBNITH EQU ‘86’ ——-_‘3270 EMULATION BSC SUPPORT 
233 rem 
10 0005 180 CSBDSCAC EQU ‘SBODVCD+2 SCA CHAIN FIELD 234 * 
0006 181 CSBDAT! EQU CSBDSCAC+] ATTRIBUTE BYTE 1 2 
a 0080 182 CSBMIOAC EQU  X‘80' BSC I/O AREA ALLOCATED 
11 0040 183 CSBMZIOB EQU Xx'40' TWO [OBS REQUIRED 237 CSB 
\ - 0020 184 CSBMOPND EQU  X'20' CSB HAS BEEN OPENED 238 CSB 
0010 185 CSBMALLC QU x‘10° CSB HAS BEEN ALLOCATED 
12 0008 186 CSBMONTR EQU X‘08" MONITOR CSB 24g 0 
0004 187 CSBMJPN EQU  X'04" JAPANESE MODEM USED ON THIS LINE 2a] * 
0002 188 CSBMEXIT EQU  X‘02' IMMEDIATE EXIT a2 * 
3 0001 189 CSBMINIT EQU X‘01' CSB CREATED BY INITIATOR 243° 
0007 190 CSBDAT3 EQU CSBOATI+1 ATTRIBUTE BYTE 3 244 99 
0080 191 CSBMUSER EQU x'80° USER REQUEST IN PROCESS (#SVTTC) 
14 0040 192 CSBMBSER EQU X‘40" TERMINATION IN PROCESS (#BSER ) 2a te 
0020 193 CSBMSNBU EQU X'20" SWITCHED NETWORK BACKUP LINE INIT Comp ait 
0010 194 CSBNTERN EQU  X'10° #85(M IS BEING CALLED FROM TERPINATION 288 * 
a 0008 195 CSBMK21 EQU xX'08* X.21 ON THIS LINE (PT TO PT OR SW) aa47d 249 * 
0004 196 CSBMAUTO EQU  X'04" AUTOCALL BEING USED 250“ 
0002 197 CSBMCLOS EQU xX'02" CSB HAS BEEN CLOSED 
16 0001 198 CSBMII0B EQU x'01" CSBDIOSZ Gel? \siTH ONE [0B 252 C98 
253 C56 
ees 0009 200 CSBDSCa EQU  CSBDAT3+2 SDLC COMMON AREA ADDRESS 254 C58 
7 OOOA 201 CSBOLST EQU CSBDSCa+] — LINE STATUS BYTE 255 COB 
0080 202 CSBMDRWS EQU  X'30" TERN/DET FOR RUS 256 CSB 
0040 203 CSBMDPER EQU  X*40° TERM/DET FOR PEER 27” 
18 0020 204 CSBMDSFS EQU X'20° TERMV/DET FOR SNA FINANCE 258 CSB 
0010 205 CSBMDST EQU X'10" TERM/DET FOR STATION TEST 259 CSBr 
0008 206 CSBTRN EQU  x'08* TERMINATE ISSUED 760 CSBP 
19 0004 207 CSBNSL EQU xX‘04" SHARABLE LINE 261 CSBr 
208 * equ x'02" RESERVED 262 C 
209 * FQU. x‘Ol' RESERVED 262 CSB 
20 
FO2 
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CROSS-REFERENCE 


T LEN VALUE DEFN = REFERENCES T LEN WALUE ODEFN | REF ERE 


C001 OOlA agre 

C 001 9000 4064 

C 00] 0007 1800 180: 

€ 001 002€ 1090 RESCHAIN C 001 G001 1797 1798 
f To fw TROD ay awl 


Wev 
0021 


15 


16 


19 


0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
002A 
002B 
002C 
0020 
002E 


aOl 2 IVAN 

1874 SVCRENQ 
1875 SVCRDEQ 
1876 SVCDUMP 
1877 SVCTEST EQU 


£QU 
EQU 
EQU 


1878 SVCPRIQ EQU 
1879 SVCRDYCK EQU 
1880 SVCPREP EQU 
1881 SVCDSPCH EQU 
1882 SVCRPT EQU 
1883 SvCSQ___EQU 
1884 SVCMOVET EQU 
1885 SVCPOSTI EQU 
1886 SVCQUAIT EQU 
1837 SVCXAF — EQU 
1888 SVCTOD EQU 
1889 * 


PRTCR WQMEC QUE RAARTE CT 


RESOURCE ENQUEUE 


RESOURCE DEQUEUE 
DUMP MAIN STORAGE /TERMINATE TASK 
TEST AND SET 


TCB PRIORITY QUEUE 
ASYNCHRONOUS TASK READY CHECK. 
PREPARE PRINTER OUTPUT 


DISPATCHER SVC 
REMOTE PRINTER SET UP. 
SECTOR ENQUEUE /DEQUEUE 


MOVE DATA BY ID 

POST TASK BY ID 
QUIESCE COUNTER WAIT 
TRANSLATED ASSIGN/FREE 
RETURN TINE-OF-DAY IN TIMER UNITS 


1890 * *-INDICATES NOT USEABLE FROM MAIN STORE 


20 
G03 
AGE 5 VO9/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE = 6 «-V09/11/81 12/08/81 21:31 01 #SVAU CB CHANGE ORG 
1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
00560000 | 02! 000C 210 CSBDTCB1 EQU CSBDLST+2 —-TCB ADDRESS OF TASK ONE 02 
mK OOOE 211 CSBDTCB2 EQU CSBDTCBI+2 — TCB ADDRESS OF TASK TWO 
0010 212 CSBDTCB3 EQU  CSBDTCB2+2 — TCB ADDRESS OF TASK THREE 
x 03 0012 213 CSBDTCB4 EQU CSBDTCB3+2 — TCB ADDRESS OF TASK THREE 03 
x OOFF 214 CSBMETCB EQU  X‘FF* END OF TCBS INDICATOR 
mR 0017 215 CSBDRESV EQU CSBDTCB4+5 RESERVED SPACE 
04 0018 216 CSBDEMON EQU CSBDRESV+1 END OF MON CSB FOR REMOTE WORKSTATIONS 04 
AYS ECM) 218 RKRERKEKERAERARARAKA AAA KAK ER ER RARER RAIR IIR IORI IIR III IO 
05 219 * END OF COMMON ENTRIES - BSC - SNA - MONITOR * 0 
220 x x 
221 RRARAAKRAARARKRAKEKER KEKE RAERKAAK ARAKI RII IIR ROI IIT IR TOO RIOR III 
0009 223 CSBDFCHN EQU CSBDAT3+2 JCB CHAIN FIELD 
OO0B 224 CSBDTCBa EQU  CSBDFCHN+2 PROTOCOL TCB ADDRESS 
000D 225 CSBDUTCB EQU CSBDTCBA+2 — USER TCB ADDRESS 
OOOF 226 CSBDDTFa EQU CSBDUTCB+2 OTF ADDRESS pat 
0010 227 CSBORTNC EQU  CSBODTFa+1 — TASK RETURN CODE 
08 0000 228 CSBIWRNC EQU X'00' RETURN TO USER 03 
0001 229 CSBMRTOM EQU  X'OL' RETURN TO DATA MGT. CODE 
0002 230 CSBMYSGT EQU  X'02" LINK TO MESSAGE TRANSIENT 
0014 231 CSBDMDSS EQU CSBDRTNC+4 MESSAGE TRANSCIENT ADDRESS 
233 RARKERAKREKRAERKERKAKKREREKREKRAKAKAAKRKRK AA KERREKERK RIK IR IO RIOR TOI III 
234 * COMMON EQUATE SECTION * 
235 RARKAKKRARAKKRKKRKRARREKRAAAERRAKRAERERKER ARERR ERR IIR IORI IIR II ITI 
0033 237 CSBMTOPC EQU  X'‘33" TERMINATION REQUEST OPERATION CODE 
0022 238 CSBMCOPC EQU  X'22' CLOSE REQUEST OPERATION CODE 
240 KRRERERKKRERRAEKRRKR AER KEKE RRA RKEKRERRRRAEKAKAKEKEREKR KARA HK REIMER IRR, 
E ‘ * 
END OF COMMON AREA SECTION OF CSB FOR SNA AND BSC * 
* ® 
RAKKKKKERKEAAKKAKAERRKEKHA RAKE KRERE RAI IRI KEKE KR KARIERRE ARK EKER RRR 
; KKKKKKAERRARARK KERR AAR ARR ARIERE AK KEE REAR ER ERR RIE RRER EIR RR IRR ITRI 
LT COMP x f 
TNATION * SNA ENTRIES x 
SW) aa473 “i R 


ARIK AERRIERERRE REAR HIRE RR IRI IEE RIE II RII II III III IEI III IIIT 
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0016 252 CSBDSDCM EQU 
0018 253 CSBDSNAC EQU 


CSBDMDSS+2 
CSBDSOCM+2 


SDLC COMMON AREA ADDRESS 
SNA COMMON AREA ADDRESS 


0019 254 CSBDMONE EQU 


CSBDSNAC+ 1 


OO1A 255 CSBDSTB1 EQU 


CSBDMONE +1 
0080 256 CSBMRQYS EQU X' 


x'80" 


END OF MON CSB FOR #SNA1 
SNA STATUS BYTE 1 
REQDISCONT ( REQUEST DISCONTACT 


257 * 
0040 258 CSBNRQNO EQU 
0020 259 CSBMTEBI EQU 


* SPECIFIED ) ~ YES 
REQDISCONT - NO 
CSBDMIC CONTAINS TEB@ INDICATOR 


0010 260 CSBMUWCK EQU 
0008 261 CSBMCSLU EQU 
0004 262 CSBMPINT EQU 


USER TS WAITING ON A CHECK 
LU CONFIGURED AS SINGLE LOGICAL UNIT 
CSB AT PRE-INIT STAGE 


0002 263 CSBMUWAT EQU 


CROSS~REF ERENCE 


USER IN WAIT STATE 


FO3 


PAGE 
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02) SYMBOL = T LEN VALUE 


REFERENCES 


C 001 
C 001 


C 001 


1801 


RBSCHAIN C 001 


1798 4867 


C 001 
RLOPEN §=C 001 


| OOF4 1929 SvCOP_ QU _X‘F4" 
O0FS 1930 SVCKFR  EQU X"F5" 
15 1931 *** END OF EXPANSION ** 


SVC_OP CODE VALUE 


SVC TRANSFER OP CODE 


15 
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G04 
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1970 *58 


1971 * 


1972 RRR MH 


1973 *60 


1974 * 


1975 SRRERAY 


1976 *68 


1977 * SQBC 


1978 ARERR 


1979 *?70CATS 


1980 * AWS’ 
1981 RRRIRRD 
1982 *78 


1983 * BAT 


1984 *RRKRRS 


#SVAU TCB CHANGE ORG OR DETACH TRANSIE 
01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOUR 
02 0002 264 CSBMMRWR EQU = xX'01' MESSAGE REQUEST WITH RECALL OPERATION 02 0023 318 CSBM 
001B 265 CSBDSTB2 EQU CSBDSTBI+1 _—_SNA STATUS BYTE 2 0024 319 CSBM 
0080 266 CSBMSNAQ EQU  X'‘80' QUEUE OF SNA COMMON AREA REQUIRED 0025 320 CSBM 
03 0040 267 CSBNCANC EQU = X‘40' CONTROL CANCEL OPTION TAKEN 03 0026 321 CSBM 
0020 268 CSBMOMPT EQU  X‘20' DISK ERROR ON DUMP CABNORMAL TERT) 0027 322 CSB 
0010 269 CSBMNDMP EQU = X‘10° NO DUMP TAKEN CABNORMAL TERM) 0028 323 CSBN 
04 0008 270 CSBMAHLT EQU X‘08" USER RUNNING UNATTENDED 04 0029 324 CSBM 
0010 271 CSBDSDLC EQU CSBDSTB2+2 —SDLC_TCB ADDRESS 002A 325 CSBr 
OO1F 272 CSBOMCDa EQU CSBDSDLC+2 ADDRESS OF ALLOCATED MICROCODE AREA 002B 326 CSBI 
05 0021 273 CSBDMIC EQU CSBDMCDA+2 MIC # ASSOCIATED WITH MESSAGE REQUEST 05 0000 327 CSBrt 
0023 274 CSBDPUBA EQU CSBDMIC+2 PHYSICAL UNIT BLOCK ASSOC WITH LINE 
0025 275 CSBDRECA EQU CSBDPUBA+2 — RECALL ADDRESS ASSOC WITH RECALL USER B29 ene 
06 276 * OPERATION. 06 330 * 
0025 277 CSBOSIOB EQU  CSBDRECa SDLC_ [0B USED FOR ENABLE OPERATION 331." 
002D 278 CSBDNANE EQU CSBDRECA+8 == COMMUNICATION FILE NAME aan 
07 002E 279 CSBDWRKS EQU CSBDNANE+] = START OF SNA WORK AREA 07 333 * 
0037280 CSBDWRKE EQU  CSBDWRKS+9 —_ END OF SNA WORK AREA 334_*RRW 


0038 281 CSBDMLNG EQU  CSBDWRKE-CSBDECM+2 LENGTH OF SNA CSB 
08 03} 0050 336 CSBN 
283 RERARARRARRKAKARAR ERR R RR IIR IRR IIR IRR IRI IR TPR IT RTE ITI TI, 0051 337 CSBM 


284 * ® 0052 338 CSB 
09 285 * BSC ENTRIES * 09 0053 339 CSBP 
0054 340 CSBM 
287 KHRERKRAERKRRER KKK RAK AK KKAK AAA RRA RK RAK RERKEKRAKER IRR IRIE IR IKE RRR IR 0055 341 CSB 
10 10 0056 342 CSBM. 
0015 289 CSBDLNDX EQU CSBDMDSS+1 LINE INITIALIZATION INDEX FOR BSC 0057 343 CSBIE 
0016 290 CSBDAT2 EQU CSBDLNOX+! ATTRIBUTE BYTE 2 0058 344 CSB 
11 0001 291 CSBMRID EQU X‘OI' RECEIVE ID OVERRIDE u COSA 345 CSB 
0002 292 CSBNTID EQU X‘02' TRANSMIT [D OVERRIDE 0059 346 CSBM: 
0004 293 CSBMLOIW EQU EXIT FLAG FROM BSLO TO THE WAIT ROUTINE 0058 347 CSBNi 
12 0008 294 CSBMLOPT EQU EXIT FLAG FROM BSLO TO THE POST ROUTINE 12 OO5C 348 CSB 
0010 295 CSBMLOCL EQU * EXIT FLAG SET BY BSLO WHEN GOING TO 0050 349 CSBrt 
296 * *® THE WAIT ROUTINE FRO’ BSCL OO5E 350 CSBN. 
13 0020 297 CSBMCLIW EQU EXIT FLAG FROM BSCL TO THE WAIT ROUTINE 13 
0040 298 CSBNCLPT EQU EXIT FLAG FROM BSCL TO THE POST ROUTINE 352. BREN 
0080 299 CSBMIDAC EQU TD AREA ALLOCATED 353 * 
14 0018 300 CSBDIOSZ EQU CSBDAT2+2 SIZE OF BSC I/O AREA 14 354 *THE 
OO1A 301 CSBDIOA EQU CSBDIOSZ+2 — ADDRESS OF BSC I/O AREA / MRJE CCT ADDR 355 *BSC 
O01C 302 CSBDTIDa EQU CSBDi0a+2 —* ADDRESS OF SWITCHED TRANSMIT 356 * 
15 303 * * 1D IN BSC I/O AREA 15 357 RRRES 
0021 304 CSBDLCS EQU CSBDTIDA+5 DISK ADDRESS FOR BSC LINE INIT. XIENTS 
OOF 359 CBN 
16 306 RHAKKRKAKEAERKERKERARKREKAK KKK RK ERA RAR ARKKAKAERREAKKEKEAAR ARERR KERATIN 16} OOF 1 360 CSBN4 
307 * * OOF2 361 CSBM 
iad 308 *THE FOLLOWING ARE USED BY BATCH BSC AS A PARATETER LIST TO THE  * 00F3 362 CBM 
17 309 *BSC MESSAGE TRANSIENT (BSD). THEY ARE USED WHEN CSBDRTNC=X‘02' * 7 OOF4 363 CSBM 
310 * * OOFS 364 CSBI4 
311 RARERKER ARR ERKRIAKRERRERIER IER ERR RARIR KIRA RRA ITIE IRR IKIK IIR IRIE, OOF6 365 CSBM4 
13 18 OOF? 366 CSBNZ 
0022 313 CSBDBMS! EQU  CSBDLCS+1 MESSAGE INDEX OOF8 367 CSBM4 
002C 314 CSBM2222 EQU x‘2C" LAST CSB FLAG USED IN TERMINATION OOF9 368 CSBN4 
19 0020 315 CSBM3290 EQU X‘20' OPERATOR ANSWER MSG 19 OOFA 369 CSBM4 
0021 316 CSBM3295 FQU  xX'21' OPERATOR DIAL OOFB 370 CSBM4 
0022 317 CSBM3210 EQU X‘22° CLOSE ERROR (0,2, 3 OPTIONS) OOFC 371 CSBN4 


Of 
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01 
CROSS-REFERENCE 


O2}SYMBOL oT LEN VALUE DEFN = REFEREN 


Q2|/SYMBOL oT LEN VALUE DEFN — REFERENCFS 


C001 O00A 4062 
O3]RLOPEN C001 0016 4074 
ROFFLINE C 001 0027 4091 


O3|SCAW2KMS C001 O00C 1848 1852 


SCACONFG C001 002F 1977 1979 


NACA CATO C ANY Anon 9197 73945, 


ROPEN C OO1 0002 4054 
NMAlpocwi yr crm, ni ann 


Bata 


ae, tide ar? Sean ne 


] [OGD KAXAAAA RRR AK RRO RR RRR RR ERR RRC IR RR ER BO TI IT a | O0O6 POR? TCBRWAIT 4 
1970 *58 : "Oo ' " Be aes eat _ Sa Se sade oo. 002 2023 TOBFUALT | 
i * TOOSK TCT ase EXT Door 2az4 FoBieiaal 
1 1972 REAAAKAAKCAA AKAROA ARERR ELE KE RE RR } 
1973 *60 * £ ee G03 7026 Tomb t 
ig7e * TO ; 
1 LQTS RARRARAAARERR ARR REE RARER RRA ER EERE EERE AER ROR ER RR RIES RA } OO8G PORe TCAPTRWT £ 
1976 *68 ® ® * * * * * * 
1977 * SQBCT © UGK * SSID * SKID * PRIQ. STATS STATS * = ‘ 
17 1978 RRERREREAATRAERAAELR ERE ER RAEN AE KARA RE AOR 
1979 ®70CATN * * * ® * * * * * 
1980 ALSCT * CAT * PRTAK * NSCNT © * CNENT * TOGWT * ARQCT * STATE * 
1§ 1981 REKARAAAAKEERAAR MARAE REE TS MAREE ERR EEE REO EER ERER 
1982 *78 * * ® * * * * 
1983 * BAT * SUSPS * SEPT TST * KF . a 
1 1984 RERRERKEEA ARE ARLE RRR RRR REPRE EEE RR RHEE EER RE ee 
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12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT : ji SSYAU TC CHANGE ORG OR OCTACH TRANSIENT 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STINT SOURCE | 
0023 318 CSBNB211 EQU . IBM ATTACHMENT ERROR 0 
319 CSBPBZ212 EQU XxX" IBM ODEN FAILURE | = ooh 
320 CSBRB213 EQU x‘25° TBA EQUIPMENT TEST OK 
321 CSBMB21X EQU 3210 MSG WITH 2 AND 3 OPTIONS 03 
322 _CSBMB299 EQ > BSC TASK ABORT : os 0023 373 CSBDONF 
323 CSBYB214 EQU xX" SET SWITCH FOR JAPANESE MODEM | 0026 374 COBDRGR 
324 CSBMBZ1Y EQU ; 3210 SG WITH NO OPTIONS j 04 0627 375 CSBOP Rr 
325 CSBM3209 EQU "2A° 3209 WITH 3 OPTION | 0080 376 COBNPE! 
326 CSBMB2X9 EQU 3209 MSG WITH 2 AND 3 OPTIONS | oad 377 
327 CSBM9999 EQU ***DEBUGGING AID***™*** | 0 0020 376 CSBMHAL’ 
OO10 379 CORN 
329 XRXRERRARRAARRERRARARAARARAARE ARERR RRA ARA RRR RARER ER RAR ARE ARTI BOOT CSBMORT 
330 * is OO 0028 381 CSBOMAN 
331.* THE FOLLOWING EQUATES ARE USED IN #BSOB AND “8SOP THE TWO * as O02 382 CSBDRID 
332 * BSC OPEN TRANSIENTS. 7 383 * 
333 * . 07 OO2E 384 CSBQHDR 
334 RRRRRRAARAKRAAARAREARARERRAAERARERRARA ERR ARE REAR EA REARS ER HH OO2F 385 CSBLDEF 
336 CSBB275 EQU "50" INVALID RECORD SEPARTOR REQUEST OG) 0032 387 COBDIOG 
337 CSBNB280 EQU | Oe INVALID CONVERSATIONAL REQUEST 0033 388 COBDIRS 
0052 338 CSBM3285 FQU  X'52° INVALID TRANSPARENT ITB REQUEST 0035 389 CORD 
09 0053 339 CSBMB287 EQU  x‘53" BLOCK OR RECORD LENGTH OF ZERO OY 0037 390 CSBDMDRE 
0054 340 CSBM32838 EQN X'54" UNABLE TO ALLOCATE BUFFER SPACE 00% 91 CSBDATS 
0055 341 CSBM3301 EQU = k"55" BUFFER SIZE EXCEEDS 4,096K 0080 397 COANG 
10 0056 «342 CSBMB302 EQ X"56° INVALID 3740 REQUEST 10 0040 393 CORMAN 
0057 343 CS8MB303 EQU = X"57" INVALID BLANK COMPRESSION REQUEST 9020 Jee COBNC2P 
0058 344 CSBMG304 FQU  X"58" INVALID BLANK TRUMCATION REQUEST OO1G 395 CSBNATCL 
i OO5SA 345 CSBPB289 EQUX‘5A' 3740 MODE ON MULTIPOINT LINE 1] 0004 Fes COBNINFL 
0059 346 CSBAB260 EQU X'59" SUITCHTYPE NOT SPECIFIED 0038 387 CSBDLNG 
0058 347 CSBMI790 EQU  X'5B’ FLAG FOR RETURN TO BSOB LABEL 85001790 
1 OO5C 348 CSBMOO20 EQU  X‘SC’ FLAG FOR RETURN TO 8508 LABEL 85000020 14 39°" END 
0050 349 CSBFG286 EQ X'5D' X.21 TASK NOT LOADED, SVITCHED LINE aa478 
OO5E 350 CSBPBZ8Z EQU = X°SE* COMPR OR TRUNC WITH VARIABLE RECORDS : 
: 352 RRERAEAAEERARAKK AAR RKE ERLE RRA EERE LEAKE EREREK ORE EERE RR, 
353 * * 
14 354 *THE FOLLOWING ARE USED BY MRJE BSC AS A PARAMETER LIST TO THE = * 14 
355 “BSC MESSAGE TRANSIENT (#BSMD). THEY ARE USED WHEN CSBDRTNC=X'02° * .. . 
*® * 
ib, ag REMARK AEREREAREKKERREER RE RR ELEEEE ERR EERE REISE PED 1S 
OGFO 359 CSBMPR EQU  xX‘FO' NASK FOR ANY MRJE MSSG. 
16] OOF] 360 CSBN4691 EQ X'F1" OPERATOR DIAL REQUIRED 16) 
OOF2 361 CSBNSE92 EQU  X'F2° NO CONNECTION: MANUAL DIAL | 
2s OOF3 362 CSBM4693 EQU = X‘F3° BSC UNIT CHECK ON END 
7 OOF4 363 CSBNG694 FQU  K'F4" NO CONNECTION NON-SUTTCHED LINE 1 
OOF5 364 CSBM695 EQU  xX'F5‘ TEMPORARY MLCA PROC CHK 
OOFS 365 CSBM4696 EQU = X"F6' PERMANENT MLCA PROC CHK 
13} OOF? 366 CSBA2DP EQU X'F7' NO CONNECTION; AUTOCALL (4692 U/ 2 DPT) i 
OOFS 367 CSBM4697 EQU  X‘FS" OPERATOR ANSHER REQUIRED 2 
OOFS 368 CSBM4689 FQU = K'F9" AUTOCALL TASK NOT ACTIVE OM SYSTEM 
19 OOFA 369 CSBNA690 EQU  K'FA’ X.21 TASK NOT ACTIWE OW SYSTER 19 
OOFB 370 CSBN4698 EQU  X'FB" CALL ATTEMPT WITH IMVALID PHONE LIST 
OOFC «371 CSBN4699 EQU X‘FC* PHONE PARAMETER ON INWALID LINE TYPE 
0 . 
FO5 
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CROSS-REFERENCE 


T LEN VALUE REFERENCES 7 LEN VALUE DEFN 


SCAFLDB3 C 001 0085 


PO sammie et MEN, WATT UCT AGTH FR. BYTES ALL TEE OS 
307i * A RESOURCE ENQUEUE FAT LiRE 


14 0004 2022 TCBRMAIT EQU x ‘04" . DISK RESOURCE FAILURE 
Nc i AA i a SE LLL Se 
Coot 2078 THREAT EQN” KOI" ~ UORESTATION RELEASE GAT 


0003 2026 TCBUNGKZ EQU  TCBUNAGK+1 SECOND WAIT NASK 


16 Q080 2028 TORPTRUT EQU  x"80" . PRINTER ALLOOATE FAILURE 
ere 0040 2029 TOBLINUT EQU x"40" CORR. UTNE ALLO e 
0070 2030 TORKTYT QU” 30" "DISKETTE ALLOCATE FATLORE 
v7 0010 2031 TOBOSKUT EQU  xX"10" . DISK SPACE ALLOCATION 6441. URE 
0008 2032 TCRDEVUT EQU X08" __ OTHER DEVICES ALLOCATION FAURE 
R004 2033 TORIONT EQ KX Oe" TCS TRANS TENT UNI TOR 
1 3002 2034 TCRASRUT EQU  x"O2" _ ASSIGN RECOVERY FORCED WAITER 
2035 * eq Xx‘Or __ RESERVED bh ema aS ie ee ee . 
19 0004 2037 TCRSTAT3 £QU TOBUSK2+1 TCR STATUS BYTE 3 
0080 2030 TCBTERN EQU x°BO" ~ TK TS IN TERMIMATION es ae 
$ 
G06 
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Ol 


ERR LOC OBJECT CODE ADDR STINT SOURCE STATEMENT 


0023 373 CSBDCNFG EQU CFG BYTE USED BY *BSCi 
0026 374 CSBORSRY EQU “* PESERVED ** 
G27 375 CSBDPRN] EQU BSC MESSAGE PART 
376 CSBAPEL EQU i PERM ERROR INDICATOR FOR BSC 
377 CSBARTRY EQU RETRY OPERATION TAKEN TD WALT 
378 CSBMHALT EQU xX" THIS MESSAGE DISPLAYED WITH HALT 
379 CSBMAIT EQU MSG KTENT CALLED FROM @SC WAIT 
380 CSBMORTY EQU x" ASSIGN RETRY WITH WAIT SPECIFIED S8S0P 
381 CSBONAN EQU MODULE THAT WANTS MESSAGE DISPLAYED 
382 CSBORIDa £QU * ADDRESS OF SWITCHED RECE IVE 
383 * * 1D IN BSC 1/0 AREA 
384 CSBQHDR EQU * 108 QHOR AND LINE DEF. 
385 CSBLDEF EQU * BYTES SAVED BY #8508 
386 CSBDLWUM £QU SAVE AREA QF THE EBCDIC LINE MUMBER 
387 CSBDIOBa EQU 108 POINTER USED BY “BSER 
FLAG BYTE TO BYPASS MESSAGE FOR 1RSS 
POINTER TO PHOME LIST 
WORK AREA FOR #8508 
ATTRUBUTE BYTE FOR AUTOOALL 
AUTOCALL TASK HAS BEEN POSTED 
SET PET BUT DISPLAY NO NGG 
EXIT FLAG FROM BSC? TO POST 
USING AUTDCALL ON THIS (INE 
PRE INFORM ONLY MESSAGE 
LENGTW OF CSB FOR BSC AND MRJE 


399 "** END OF EXPANSION ** 
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CROSS ~REF ERENCE 


T LEN VALUE ODEFW OR 


T LEN VALUE DEFN 


SCAOKSHC C O01 O003 18% 


0088 «2132 


Cratwip f ft anrh  wao8 5 
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Wy ore WE CW A TU PRA UU POLIS CLR CMU PLE 
OOFR 2073 TORPRSMF EQU  x'FB’ SM PRIORITY 
OOF! 2074 TCRPROOF EQUX'FI" SOURCE DDFF PRIORITY "KEEP UNIQUE" 
0000 2075 TCRPRSUT EQu x00" SHE WRT TASK PRIORITY 
O0EO 2076 TOBPRUDH EQU  x"EO" USER DEFINED HIGH PRIORI TY 
0001 2077 TCBPRUDR EQU — X"01" MEDIUM PRIORITY _. 
2078 * USE TCRPRUDN FOR THE SVCPRIQ (CHP) SVC. IN THE TGR, TH Wa IN 
2079 * TOBPRIOR WILL BE TCRPRONY AND BIT TOBUONPR UTLL BE SET IN TCBBAT, 
0000 2080 TCRPRCNY EQU X20" CONVERSATIONAL PRIORITY 
00CO 2081 TCRPRECH EQ x00" BATCH PRIORITY 
2082 * NORMAL COEFAULT) USER TASK PRIORITY IS TCBPROWY OYWARICA,|Y 
2083 * CHANGED TO/FROM TCBPRECH BE THE SYSTEM SUPERVISOR. 
0080 2084 TCRPRUDL EGU” X80" Tau PRIORITY 


0006 2086 TCBTTINE EQU TCBPRIOR+1 TASK RESIOUAL TIME [NTERWAL. 


ERR LOC OBJECT CODE 


0007 2088 TCBQCNT €QU TCBTTINE+!  QUIESCE COUNTER 
0009 2089 TCBCMPLQ EQU  TCBQCNT+2 TASK EVENT CONTROL QUEUE HEADER 


2090 “AARAAAAAAAAAA THE ABOVE FIELDS ARE ORDER OFPENDENT AAAAAAAANAOAAAAA 


Q008 2092 TCBPUSH EQU TCBCPLQ+2 — PUSH ELEMENT Q-HEADER 


Q000 2093 TCBCHAIN EQU  TCBPUSH2 SYSTEM EXISTENCE QUELIE CHAINTNG FIELD 


G07 


ADOR STMT SOURCE STATEMENT 


401 * ECH 


402 ECMPARN FQ PARN BYTE OFFSET 


DO NOT SKIP ON AULT. WAIT INDICATOR 
GATA ADDRESS IN [08 [5 REAL INDICATOR 
405 ECHTTC §=EQ TASIK-TASK COMMUNICATIONS [MD ICATOR 


403 ECMINSKIP EQU 
404 ECMREAL EQU 


406 ECMIOERR EQU 1/0 ERROR INDICATOR 
407 ECHING ‘ INQUIRY INDICATOR 
J0BQ DETACH INDICATOR 


TIMER ECM INDICATOR 
OCL COMMAND INDICATOR 
TEST AMD SET INDICATOR 


CSB TRANSFER INDICATOR 
SYSLOG INDICATOR 
ECM - EVENT CONTROL MASK OFFSET 


EC - GENERAL WAIT maSK FIELD 


S85 8 82 2 SB 8 ale 


. DO OMOT PREEMPT BIT 
EQ ‘40° . LIFO QUEUE REQUEST 
426 *** END OF EXPANSION ** 
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CROSS~REFERENCE 


T LEN VALUE DEFN = REFERENCES 


SYMBOL «67 LEN VALUE DEFW 


19 


OOSF 2137 TCBEXIT EQU 
OO5F 2138 TCBAFAIL EQU 
0067 2139 TCBTQE EQU 
0068 2140 TCBSQBCT EQU 
0069 2141 TCBLCKMK EQU 
0080 2142 TCBLCKDI EQU 
0040 2143 TCBLCKSI EQU 
0020 2144 TCBLCKVI EQU 
0010 2145 TCBLCK5! EQU 
0008 2146 TCBLCKPI EQU 
0004 2147 TCBLCKHI EQU 


TCBASGNQ+2 
TCBEXIT 
TCBEXIT+8 
TCBTQE+1 
TCBSQBCT+1 
X‘80" 
X'40' 
x'20" 
X‘10" 
X‘08' 


ASYNCHRONOUS EXIT ADDRESS. 


0010 21! 


CP ASSIGN FAILURE INDICTOR BYTES 
TIMER QUEUE ELEMENT. 
COUNT OF SECTOR QUEUE REQUESTS 


COUNT OF LOCK REQUESTS 
INTERLOCK FOR DEDICATION 
INTERLOCK FOR SCHEDULER 
INTERLOCK FOR VTOC 
INTERLOCK FOR FORMAT 5 
INTERLOCK FOR PROC NANE 
INTERLOCK FOR HISTORY FILE 


20 
G08 
) WO9/11/81 12/08/81 21:37 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 11 09/11/81 12/08/81 21:31 ' SAU TCB CHANGE ORG OR DETAC 
01 1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATENENT ERR LOC OBJECT CODE ADDR 
00530000 | 02 428 * FLEQU 00600000 | 02 0002 
430 FOO IOIIOUI RIGO IOC IOC OG IOI R IO ORR OO OIT 
03 431 * : 03 
432 * DISK FORMAT-1 7 
433 * x 0001 
04) 434 RRARRIRK ARIK RRA III IIR IIR II III IORI TOIT IORI II TOR ITO IIIT TOTO TORII TOR TOTO. 04 
OO0F 
0000 436 FIADDFLG EQU 0 LATEST DATE INDICATOR 
05 005C 437 FIAMLTST EQU C'*' FILE HAS LATEST DATE FOR THIS LABEL 05 0010 
0080 
a 0008 439 FIADLABL EQU FIADDFLG+8 FILE LABEL 
06 0001 440 FIANSYSF EQU  X'01' “SYSTEM FILES’ MUST HAVE A LABEL WHICH 06 0012 
441 * BEGINS WITH X‘O1' 0012 
07 000B 443 FIADDATE EQU FIADLABL+3 CREATION DATE 07 0011 
000B 445 FIADSDIR EQU  FIADDATE LIBRARY - START OF DIRECTORY ‘“ 0012 
08 
000C 447 FIADTYPE EQU  FIADDATE+1 FILE TYPE 0015 
0080 448 FIAMINDX EQU  X‘80° BIT ON = INDEXED FILE 
09 0040 449 FIANCONS EQU X'‘40' BIT ON = CONSECUTIVE FILE 09) 0015 
0020 450 FIAMDIRC EQU  X'20' BIT ON = DIRECT FILE 
0010 451 FIAMROFL EQU§ X‘10° BIT ON = T1 UNIT, BIT OFF = Fl UNIT 0015 
10 0008 452 FIAMPERM EQU  X'08' BIT ON = PERMANENT FILE (‘P'> 10 
0004 453 FIANTEMP EQU  X‘04' BIT ON = TEMPORARY FILE ('T') 
0002 454 FIAMJOBR EQU  X‘02° BIT ON = JOB FILE CU") 00138 
ll 0001 455 FIANSCRT EQU  X'O1' BIT ON = SCRATCH FILE ('S') li 
0018 
000D 457 FIADSFLG EQU  FIADTYPE+] FLAG BYTE 
12 12 0010 
459 REKKRKRKKRAKKEKKAK AER AKRA ARK AKER ERR HRA ARI IRI ORR IORI OIRO IO IO RIOT 
460 * THE FOLLOWING FOUR BIT MASKS ARE VALID ONLY IF ‘FIANINDX’ IS ON * 
B 461 KRKRAKRERKAKRKAER IRA ARIK IRR R RIKER IK RIOR ER IIR ITO IO III ITO III TOR OR IT B 
0080 463 FIAMSORT EQU  X‘80° BIT ON = SORT KEYS 
] 0040 464 FIAMMRGE EQU  X‘40' BIT ON = MERGE KEYS 14 
0010 465 FIAMDPCK EQU  X'10' BIT ON = UNORDERED LOAD 
466 * (CHECK DUPLICATE KEYS) 
15 0008 467 FIAMXNFG EQU  X'08' BIT ON = INVALID INDEX 15) 
468 * CKEYSORT MAYBE IN PROCESS) 
16 470 FRRROIOR ROI IOI III IOI IIR IO IR IRI OO TOO III TO ITO 16 
471% THE FOLLOWING BIT MASKS FOR X'80' ARE VALID ONLY IF ‘FIAMINDX' IS * 
472 * OFF ® | 
7 473 RRR RRR RAI RII IRI IIR RIOR RIOR IOI I TOR IR IRR TORI IR TO TO TOIT 7 ! 
0080 475 FIAMSCHD EQU  X'SO' SECTOR MODE LIBRARIAN FILE | 
18 476 * CIF 'FLAMLBFL' IS ON) 13 0010 | 
0080 477 FIAMSCLB EQU  X‘80' SECURE LIBRARY 
478 * CIF FIADRECL = X“0000°) 0020 | 
19 19 0030 | 
0020 480 FIAWEW EQU  x‘20' BIT ON = NEW FILE 0040 | 
0004 481 FIAMSPAl EQU  X‘04" SPINDLE Al REQUESTED ORIGINALLY 0070 
20 
FOS 
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CROSS-REF ERENCE 


02] SYMBOL. 


T LEN VALUE 


OEFN = REFERENCES 


02] SYMBOL 


T LEN VALUE 


SCANOSIZ C001 
03) SCAMDSKS C 001 


O6]SCAMHALC C 001 


NAT SCAMPR20 7 NN) 


0040 2189 TCBATTCH EQU 
0020 2190 TCBSYSTN EQU 
0010 2191 TCBABTRM EQU 
0008 2192 TCB22RCS EQU 
0004 2193 TCBCNLPD EQU 
0004 2194 TCBTWACL EQU 
0002 2195 TCBHOMPT EQU 
0001 2196 TCBOMPPD EQU 


Vv 


18 


OO6F 2198 TCBSTATS EQU  TCBSTAT4+1 


0080 2200 TCBTHBIT EQU 


XK ‘30' 


0040 2201 TCBCN2PD EQU X‘40' 


781 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0002 482 FIAYSPA2 EQU X‘02' 
484 * 
485 * 


0001 487 FIAMLBFL EQU = xX‘O1' 


QOOF 489 FIADRECL EQU FIADSFLG+2 
0010 491 FIADHIGH EQU  FIADRECL+1 
0080 492 FIANBLRN EQU  X'‘8C' 

493 * 
0012 494 FIADBLKN EQU 
0012 495 FIADRECN EQU 


FIADRECL +3 
FIADRECL +3 
0011 497 FLADLBOW EQU  FIADRECL+2 
0012 499 FIADLBUS EQU  FIADLBOW+] 
0015 501 FIADLSTR EQU  FIADRECN+3 


0015 503 FIADSMEM EQU  FIADLSTR 


IF BOTH OF THE PREVIOUS TWO BITS ARE OFF, THEN NO ORIGINAL SPINDLE 
PREFERENCE WAS SPECIFIED 


ATTACH YES 

SYSTEM TASK - NOT SUSPENDABLE 

TASK _IS_IN ABNORMAL TERMINATION 
RECURSIVE TERMINATION DUE TO SVC 22 
CANCEL PENDING 

C.P. CALLED FOR TWA RECOVERY 


16 OO7A 2244 TCBWAT 


2246 * SEE 
W 
007C 2248 TCBSMF 


ERROR ON DUMP - PARTIAL DUMP TAKEN 2249 * THE 

DUMP PENDING ON CANCEL 18 2250 * BYTE 
2251 * A St 

STATUS BYTE 5 0080 2252 TCBSHF 
2253 * 


TASK HAS BEEN IN TERMINATION 
2 OPTION CANCEL PENDING 


007D 2255 TCBX 


G09 


#SVAU TCB CHANGE ORG OR CETACH TRANS! 
ERR LOC OBJECT CODE ADDR STNT SOU 


SPINDLE A2 REQUESTED ORIGINALLY 


OO1E 537 FIAl 
BIT ON = LIBRARIAN FILE 539% 
540 * 
RECORD LENGTH 541 * 
542 * 
HIGH ORDER BYTE OF BLOCKS/RECORDS FIELD 543 * 
BIT ON = FILE ALLOCATED WITH BLOCKS, 544 "eR 
BIT OFF = FILE ALLOCATED WITH RECORDS 
BLOCKS USED TO ALLOCATE THE FILE OOF 546 F1AL 
RECORDS USED TO ALLOCATE THE FILE 
548 FLAD 
LIBRARY - OWNER QUEUE POINTER 0080 549 FLAY 
LIBRARY - COUNT OF CURRENT USERS 551 FAD 
RELATIVE RECORD NUMBER OF NEXT RECORD 553 F1AD 
0080 554 FLAN 
LIBRARY - START OF MEMBERS 0040 555 FIAM 
0020 556 FIA" 


0015 505 FIADRFST EQU  FIADLSTR START SSS OF RESERVED AREA FREE SPACE 557 * 
506 * (3 BYTES) 0010 558 F1AM 
559 * 
0018 508 FIADSTOA EQU FIADLSTR+3 = SSS OF START OF DATA 0008 560 F1AN 
561 * 
001B 510 FIADENDA EQU  FIADSTDA+3 SSS OF END OF EXTENT 0004 562 F1AM 
563 * 
001D 512 FIADVTOC EQU FIADENDA+2 = RELATIVE S/D OF VTOC ENTRY 0002 564 FIAN 
0001 565 Fla" 
566 x 
RE-DEFINITION OF ‘FIADVTOC' FOR RELEASE 3 0023 568 FAD 
569 * 
BYTE 570 * 
7 E , 0080 571 FIA 
BIT 1}012345671/01234567 4] 0040 572 FIA 
. : . 0020 573 FIA 
522 *RESERVED = 0010 574 FLAN 
523 ®OFFSET = 0008 575 FLAN 
524 *RESERVED = 0 
525 *SECTOR NUMBER = YY Ye EVEN, 0025 577 FIAD 
526 * 0027 578 FADE 
527 * WHERE ‘XXX" IS DEFINED BELOW: 
528 * Ul 0027 580 F1ADF 
529 * vw 581 * 
0010 530 FIAMVIST EQU § B'00010000" FIRST FORMAT~1 IN SECTOR aa419 
531 * CALSO INCREMENTS OFFSET) aaG13 583 Rane 
0020 532 FIANV2ND EQU B'00100000" SECOND FORMAT~-1 IN SECTOR aa419 584 * 
0030 533 FIANV3RD EQU B'00110000' THIRD FORMAT~-1 IN SECTOR aa419 585 * 
0040 534 FIAW4TH EQU  B'01000000' FOURTH FORMAT~1 IN SECTOR aa419 586 * 


0070 535 FIAMVALL EQU  B'01110000' 


11/81 


12/08/81 21:28 


CROSS-REFERENCE 


CLEARS OFFSET aa419 587 * 
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01 


Q2]SYMBOL T LEN VALUE DEFN — REFERENCES 


02]SYMBOL 1 LEN VALUE DEFN — REFEREN 


SCAMILCA C 001 
03) SCAMMRJE C 001 


0080 
0040 


2155 
1925 


2291 
0004 


05] SCAPFREP C 001 
SCAMPRT © 901 


1 0002 2241 TCBSDTAC EQU X'02' TASK SUSPENDED DUE TO ADDRESS COMPARE 15 
0001 2242 TCBWIOSP EQU  X'‘01' TASK SUSPENDED DUE TO WS 1/0 ERROR 


16 OO7A 2244 TCBWAFLG EQU TCBSUSPS+1  WSWA INITIALIZATION STATUS. 16 
2246 * SEE TUB MACRO (BYTE TUBWAFLG) FOR BIT DEFINITIONS WITHIN TCBWAFLG. ° 
vi 7 
007C 2248 TCBSMFPT EQU TCBWAFLG+2 SIF POINTER 
2249 * THE FOLLOWING EQUATE [S USED TO SET ON THE X‘80° BIT IN THE HIGH 
18 2250 * BYTE OF THE SMF POINTER FIELD. CURRENTLY THIS FIELD [S USED AS 18) 
2251 * A SWAP-IN COUNTER INSTEAD OF AN ADDRESS FIELD. 
0080 2252 TCBSHFON EQU X80" SMF HAS PROCESSED THIS TCB 
19 2253 * 19 
007D 2255 TCBX — EQU «TCBSMFPT+1 AMOUNT OF TASK SWAPPED OUT 
20 
G10 
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01 1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCI 
02) 588 * 
589 * 
590 KRKRRS 


OO1E 537 FIALIVTA EQU  FIADVTOC+1 LENGTH OF THE FIRST VTOC AREA 03 
0028 592 F1AOKE 


539 RRRRARRARARHAARRARARMRAKHA RAR ARR RR RAR IRR ER RARE RA RIM RRA RR TORR R ROR HIRI 

540 * x 04 002A 594 FLADKE 
541 * THE FOLLOWING FIELDS ARE ONLY SUPPORTED IN THE AFA FORMAT-1 

542 * CEXCEPT WHERE NOTED OTHERWISE) 002E 596 FIADLS 
543 * 05 


544 RRKRRARKKAAKAARARRARRERAKKRRAK RIKI II RRIF RI IIR IR TOR IOI IORI II POP I TOI 0031 598 F1ADST 


OOIF 546 FIADFCHN EQU FIADVTOC+2 — FORWARD CHAIN POINTER 06 0035 600 F1ADLS 


7 0020 548 FIADATT! EQU FIADFCHN+] = ATTRIBUTE BYTE ONE 0039 602 F1ADHO 
0080 549 FIAMXTND EQU  X'80" EXTEND CAPABLE FILE 0? 
0012 604 FIAL2V 


0021 551 FIADCONT EQU FLADATTI+1 COUNT OF CURRENT USERS 


08 606 *RRRKK 
0022 553 FIADATTR EQU  FIADCONT+] —_ ATTRIBUTE BYTE THREE 607 * 
0080 554 FIAMOTAD EQU = X‘80' BIT ON = FILE OPENED AS OUTPUT OR ADD 608 * 
0040 555 FIAMKBPR EQU = X'40' BIT ON = KEY BUCKET HAS BEEN PRINED 09 609 * 
0020 556 FIAMINFR EQU  X‘20' BIT ON = INDEXED PORTION OF F1 HAS BEEN 610 * 
557 * FREED BY ALLOCATE G11, RARESE 
0010 558 FIAMHKAS EQU = X‘10° BIT ON = HIGH KEY BUCKET ASSIGNED 10 
559 * (NOT TO BE USED BY TERMINATION) 003B 613 F1ADKB 
0008 560 FIAMNREC EQU xX '08' BIT ON = NON-FORMATTTED FILE 
561 * CVALID IN THE VTOC) ll 003D 615 FIADPC 
0004 562 FIANDNFG EQU  X‘04' BIT ON = INVALID DATA AREA 003F 616 FIADRE' 
563 * CVALID IN THE VTOC) 
0002 564 FIAMRFIL EQU = X'02' BIT ON = FILE ALLOCATED IN RESERVE AREA 12 
0001 565 FIAMOLMV EQU. X‘O1' BIT ON = OFF-LINE MULTI-VOLUME FILE 0028 618 FIALLG 
566 * (VALID IN THE VTOC) ; 619 * 
1 
0023 568 FIADATT2 EQU FIADATTR+1 ATTRIBUTE BYTE TWO - THIS BYTE IS 0040 621 FIALLG 
569 * SUPPORTED IN BOTH THE AFA AND THE VTOC 
570 * EXCEPT FOR A LIBRARY FORMAT-1 14 0020 623 FIALLGI 
0080 571 FIAMSCFL EQU  X'80' SECURE FILE 
0040 572 FIANCKPT EQU = X'‘40' CHECKPOINT ACTIVE FILE G25 ARRRRR: 
0020 573 FIAMDLTC EQU = X'20' DELETE CAPABLE FILE 15 GAG REE 
0010 574 FIANIFIL EQU  X‘10' IMMEDIATE ACCESS FILE CIFILE) 627 ** THE 
0008 575 FIANGASK EQU = X'08' TFILE GAPS ADDED SINCE LAST KEYSORT 628 ** FALL 
16 629 ** LETE 
0025 577 FIADOWR EQU  FIADATT2+2 — OWNER QUEUE POINTER 630 ** OVEF 
0027 578 FIADEDFQ EQU FIADOWNR+2 EDF QUEUE POINTER 631 ** 
7 632 ** IF § 
0027 580 FIADRFED EQU  FIADEDFQ END SSS OF RESERVED AREA FREE SPACE 633 ** SET 
581 * (3 BYTES) 634 ** 
g 635 ** THE 
FIR IIIIOURROIIIORIIOIOUOOR TORR III IOI IU IOI ITO IR TRI IOI FOR. 636 RR LOS! 
sd £ 637 ** EXEC 
THE FOLLOWING FIELDS ARE ONLY SUPPORTED FOR INDEXED FILES 19 638. 2AARR? 


* 
* ® 639 RARRRRD 
* 


NOTE: THIS AREA MUST BEGIN ON AN 8 BYTE BOUNDARY BECAUSE IT IS * 


F10 
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CROSS-REFERENCE 


02) SYMBOL = T LEN VALUE REFERENCES 


02] SYMBOL = T LEN VALUE 


DEFN REFERENCES 


2291 
0004 1915 
SCAMMOMK C001 0008 1914 
SCAMWSCB C 001 0040 2156 
0010 2077 
0004 2037 
SCAMXTRA C 001 0080 2099 


4239 
SCO00110 A 003 O87C 4252 4249 
SETLOW C001 0008 0108 0136 0137 


VO9/11781 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 14 VO9/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


588 * FREED BY ALLOCATE FOR NON-INDEXED FILES a 
589 * . 


590 RIKKI IRR RIKI RII III IIR IORI IR FOR IR IORI TOR IOI IOI IORI RI RIOR FORT ION TIPO 


0028 592 FIADKEYL EQU  FIADEDFQ+] KEY LENGTH 

002A 594 FIADKEYO EQU FIADKEYL+2 KEY LOCATION 

002E 596 FIADLSTK EQU FIADKEYO+4 = SSS/D OF NEXT KEY 
0031 598 FIADSTIX EQU FIADLSTK+3 SSS OF START OF INDEX 


0035 600 FIADLSTP EQU FIADSTIX+4  SSS/D OF LAST PRIME KEY 


0039 602 FIADHOKY EQU  FIADLSTP+4 = SSS/D OF HIGHEST KEY IN OVERFLOW AREA 


0012 604 FIAL2VTA EQU FIADHOKY-FIADEDFQ LENGTH OF THE SECOND VTOC AREA 


606 RERAKRERAR RRR RAR REAR IRR RIK RIK ERR IIR IR RII III III IIR PIRI II ITI I IOI III TK. 


607 * x 


608 * THE FOLLOWING FIELDS ARE ONLY SUPPORTED IN THE AFA FORMAT-1 x 
609 * FOR INDEXED FILES x 
610 * * 


G1] RRRRRRARARARRA ARERR ERR AR ERR IRR KER IRR ERIKA ERI I IRR RII 


613 FIADKBKT EQU  FIADHOKY+2 —_KEY BUCKET POINTER 


615 FLADPCBQ EQU FIADKBKT+2 FILE POSITION CONTROL BLOCK POINTER 
616 FIADRES3 EQU  FIADPCBQ+2 —_ RESERVED FOR FUTURE USE 


618 FIALLGCD EQU  FIADEDFQ+1 —_LENGTH OF A FORMAT-1 FOR CONSECUTIVE AND 
619 * DIRECT FILES (40) 


621 FIALLGIN EQU  FIADRES3+1 LENGTH OF AN Fl FOR INDEXED FILES (64) 


623 FIALLGLB EQU FIADFCHN+1 = LENGTH OF A LIBRARY FORMAT-1 (32) 


625 RARARRRERRRARARR RARER RIR RR RRR K RRR REAR ARR E RIK IRI IRR KIT III IIIT, 
626 RARARARARRARRARAAR ARERR RRR IRR IR IKI III IIT IRIE IIR IT III II 


627 _** THE FOLLOWING LABELS ARE USED BY $PACK TO INDICATE THAT A SYSTEN 
628 ** FAILURE OR PERMANENT I/O ERROR OCCURRED BEFORE $PACK HAD COMP- 
629 ** LETELY MOVED THE FILE, WHERE PART OF THE FILE MAY HAVE BEEN 

630 ** OVERLAYED DURING THE MOVE OPERATION. 

63] ** 

632 ** IF $PACK IS ABLE TO MOVE THE FILE SUCCESSFULLY, THESE FIELDS ARE 
633 ** SET TO ZERO. 

634 ** 

635 ** THE VALUES STORED IN THIS AREA ALLOW $PACK TO RESTART WITHOUT 
636 _** LOSING ANY DATA IF THE ABOVE ERRORCS) SHOULD OCCUR DURING 

637 ** EXECUTION. 


638 ROO OR IORI OR RIOR RIOR IIR TOI ITO RTI TOT TCR TOR OIRO TOTTORI. 


639 ROO OR III RII ORR RI IR III TORS IIIT ISTO IR TOR TOR TOI RTT TIT IIE 
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01 
CROSS-REFERENCE 


Q2)|SYMBOL T LEN VALUE DEFN REFERENCES O2|SYMBOL T LEN VALUE DEFN | 


SCA2KOK C001 0000 1842 SUBABTRM C 001 0001 3662 


03] SCA2SPIN C 001 0080 1858 03) SUBAPRNT C 001 003E 3676 
1859 SUBASGNA C 001 OO1E 3614 
SCA4SPIN C 001 0010 1860 SUBASGNL C 001 000A 3557 


$C000100 A 003 0870 4247 4239 SUBATTRI C 001 0035 3628 


2303 RRRAARAKKARARRRARARAARARRRA RARER AR AAR KK AK KK KARA RKKREKKAEK KR AR RR IK 


2304 * 58 = * 59 5A* 5B * SF * 
2305 * ATTRB * TUBOGTUB * ATTRC * RESERVED * 


2306 RARRAARARKIK IRI RRR IRR IIR IOI IIT II III TOTO TOR OR TION IRR TOT TOO. 


81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 15 VO9/11/81 12/08/81 21:31 01 #SVAU TCB CHANGE ORG OR DETACH TRANSIEN 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURC! 


OO1E 641 FIFLAG EQU FIADVTOC+! — 1-BYTE FLAG INDICATING THAT RESTART OF 02 652 * 
642 * SPACK IS REQUIRED FOR THIS FILE. 
OOFF 643 FIRESTRT EQU  X‘FF* SWITCH VALUE THAT IS PLACED IN FIFLAG 654 RRRRRS 
644 * IF RESTART IS NECESSARY. 03 655 * 
0021 645 FISSTRT EQU  FIFLAG+3 POINTS TO START SSS OF DATA THAT HAS BEEN 656 * 
646 * MOVED BY SPACK. 657 * 
0027 647 FISSEND EQU  FIADEDFQ POINTS TO END SSS OF DATA THAT HAS BEEN 04 658 *RRRH? 
643 * MOVED BY SPACK. 
0007 660 FSBDN 
650 *** END OF EXPANSION ** 05 
0008 662 FSBDSH 
OOFF 663 FSBMI1 
06 OOFE 664 FSBMRF 


0009 666 FSBDAT 
07 0080 667 FSBMLN 
0040 668 FSBMSI 
0020 669 FSBMAL 
08 0010 670 FSBMDP 
0008 671 FSBMOP 
0004 672 FSBMOP 


674 * IF 
675 * WA 


0002 677 FSBIHK 
678 * 
ll 0001 679 FSBNTY 


000A 681 FSBDAT 
12 0080 682 FSBMNF! 
0040 683 FSBMKY’ 


000C 692 FSBDFCt 


16 OO0E 694 FSBDF1I 


OOOF 696 FSBDAT 
V7 0080 697 FSBMOPI 
0040 698 FSBMCLI 
0020 699 FSBNCOF 
8 0010 700 FSBMOL 
0008 701 FSBMIPT 
0004 702 FSBMOPT 
19 0002 703 FSBMUPL 
0001 704 FSBMADI 
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/81 12/08/81 21:28 
01 


CROSS-REFERENCE 


Q2)|SYMBOL 1 LEN VALUE DEFN REFERENCES REFERENCES 


0001 SUBSNUBa C 001 0010 3561 

03) SUBAPRNT C 001 O03E 3676 3677 (03) SUBSRES1 C 001 0019 3609 3610 

OO1E 3614 SUBSRES2 C 001 001A 3610 3611 3612 
SUBASGNL C 001 000A 3557 3558 SUBSRES3 C 001 O01B 3612 3613 

04] SUBATTRI C 001 SUBSRES4 C 001 OO1C 3613 

SUBATTR2 C 001 }SUBSRQ C001 0002 3661 


Oo Nn tS) ae Se 
Se So ee i 


15 VO9/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT 
1 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


654 RRRRIKRERRAKIR AIRE RIK RII IR IER RR III III II IR RIE RII IER IRR TOR OT IOI 


F 021 652 * FSBEQ 
03 655 * 
BEEN 656 * 
657 * 
EN 04 
0007 660 FSBDNANE EQU 7 
05 


0008 662 FSBDSHAR EQU 
663 FSBMIISH EQU 
06 664 FSBMRF1 EQU 


FSBONAYE +1 
XFF 
X'FE' 


0009 666 FSBDATT1 EQU 
07 0080 667 FSBMLNBK EQU 
0040 668 FSBMSIZE EQU 


FSBDSHAR+1 
X'80° 
X'40' 


FILE SPECIFICATION BLOCK . 


658 RHRRRRERKAREKREKRARRARAR ARR ER RIERA ARIA IK IR IRI II IPI ISSIR IIS IK III IRIE 


613 


PAGE 16 VO9/11/81 12/08/81 21:31 #SVAU  TCB CHANGE ORG OR DETE 
1 


ERR LOC OBJECT CODE ADDR 


aa 45 


* 


x 


FILE NAME 


FILE SHARE LEVEL 
SHARE LEVEL FOR [1 FILES 
SHARE LEVEL FOR REMOTE FILES 


ATTRIBUTE BYTE ONE 
BIT ON = BLOCK LOCATION SPECIFIED 
BIT ON = SIZE SPECIFIED 


0020 669 FSBMALLC EQU = X‘20° BIT ON = FILE ALLOCATED 
08 0010 670 FSBMOPLD EQU X‘10' BIT ON = DISP-OLD SPECIFIED 
0008 671 FSBMOPNW EQU  X‘08' BIT ON = DISP-NEW SPECIFIED 
0004 672 FSBMOPSR EQU = X‘04' BIT ON = DISP-SHR SPECIFIED 
09 
674% TF ALL OF THE PREVIOUS THREE BITS ARE OFF, THEN NO DISP PARAMETER 
675 * WAS SPECIFIED 
10 
0002 677 FSBMHKAS EQU  %'02' HIGH KEY BUCKET ASSIGNED 
678 * (TO BE USED BY TERMINATION) 
11 0001 679 FSBMTYP2 EQU  y'01' TYPE TWO FSB (24 BYTES) 
OOOA 681 FSBDATT2 EQU FSBDATTI+1 ATTRIBUTE BYTE TWO 
12 0080 682 FSBMNFAL EQU X‘80° BIT ON = NEW FILE BEING ALLOCATED 
0040 683 FSBMKYST EQU  X‘40" BIT ON = KEY SORT REQUIRED 
0020 684 FSBMDPLB EQU = X'‘20' BIT ON = DUPLICATE FSB FOR THIS FILE 
2B 0010 685 FSBMSNLB EQU § X'‘10° BIT ON = SESSION LIBRARY FSB 
0008 686 FSBMKEYS EQU  X‘08' BIT ON = FILE HAS BEEN KEYSORTED 
0004 687 FSBMUSED EQU = X’04' BIT ON = OTF ASSOCIATED WITH THIS FSB 
14 0002 688 FSBMLBST EQU § X‘02' BIT ON = LIBRARY FSB CREATED BY A 
689 * LIBRARY STATEMENT 
690 * EQU. X‘Ol' RESERVED 
15 
O00C 692 FSBDFCHN EQU  FSBDATT2+2 — FORWARD CHAIN POINTER 
16 OOOE 694 FSBDFIPT EQU FSBDFCHN+2 = FORMAT-1 POINTER 
QOOF 696 FSBDATT3 EQU FSBDFIPT+1 ATTRIBUTE BYTE THREE 
Vv 0080 697 FSBMOPD EQU x'80' BIT ON = FILE HAS BEEN OPENED 
0040 698 FSBMCLD EQU Xx‘40' BIT ON = FILE HAS BEEN CLOSED 
0020 699 FSBMCOMP EQU = X‘20' BIT ON = RESERVE AREA COMPRESS REQUIRED 
18 0010 700 FSBMOLIV EQU = xX‘10' BIT ON = OFF-LINE MULTI-VOLUME FILE 
0008 701 FSBMIPT EQU  X‘08' BIT ON = FILE ACCESS IS FOR INPUT 
0004 702 FSBMOPT EQU x‘04' BIT ON = FILE ACCESS IS FOR OUTPUT 
19 0002 703 FSBMUPD EQU x‘02' BIT ON = FILE ACCESS IS FOR UPDATE 
0001 704 FSBMADD EQU X‘Ol' BIT ON = FILE ACCESS IS FOR ADD 
20 
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CROSS-REF ERENCE 
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01 


02) SYMBOL = T LEN VALUE REFERENCES 


Q2|SYMBOL T LEN VALUE DEFN 


SUBSNUBa C 001 
03} SUBSRES1 C 001 3610 
SUBSRES2 C 001 3611 3612 


svcQgs = €C 001 0020 2426 
03] SVCQSCAN C 001 001B 2421 
SVCQUEUE C 001 OO0E 2408 


3613 


SVCQWAIT C 001 
SVCRDEQ C 001 
SVCRDYCK C 001 


3559 
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a0145 


CORR III IR 
x 
x 
x 
HRI IIR IR IIR IO IH 


ES 


ECIF IED 


D 
) 
D 


DISP_PARANETER 


00620000 


LOCATED 


THIS FILE 
SB 
SORTED 


TH THIS FSB 
ED BY A 
. 


NED 
SED 


RESS REQUIRED 
LUNE FILE 
2 INPUT 


2 OUTPUT 
2 UPDATE 
8 ADD 
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0040 2376 TUBSNOZ EQU X‘40" . NO RETURN ON PERMANENT ERROR 


0020 2377 TUBAUTOB EQU  X‘20° AUTO INPUT BUFFER ASIGNMENT 
0010 2378 TUBSVH EQU X‘10' . TUB NOT ALLOWED OFF VERTICAL TUBCHAIN 
0008 2379 TUBONL QU X‘08' . DEVICE ONLINE 


0004 2380 TUBRIISU EQU  X'04" READ INPUT ISSUED TO TUB 
0002 2381 TUBRINCN EQU . READ INPUT NOT COMPLETE 
0001 2382 TUBSDTCS EQU . DATA IN CONTROL STORE 


0003 2384 TUBCMND EQU  TUBFLAG+1 [OB COMMAND BYTE 


00CO 2386 TUBSDA EQU  X‘CO' ~ LOCAL WORKSTATION DEVICE ADDRESS 


OOEO 2387 TUBSPNAV EQU  X"EO' . NATIVE PRINTER DEVICE ADDRESS 
OOCO 2388 TUBSEXEC EQU X°CO' . EXEC 1/0 OPERATION CODE 

00C1 2389 TUBSPOLL EQU X‘C1' ._EXEC INVITE OPERATION 

0OC2 2390 TUBSIDLE EQU  X‘C2° . QUIESCE 


G14 
#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 17 VO9/11/81 12/08/81 21:31 #SVAU TCB CHANG 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT C 


0010 706 FSBLLNTH EQU FSBDATT3+1 — LENGTH OF A TYPE ONE FSB 


7108 KRERKRRAKKRRERRE RAR RAK KARR AK KA RARER AREER EEK RI IERIE RK RII AIR IIA IR IR IIR 


709 * 


FILE EXTEND VALUE 
X*000000' = NOT SPECIFIED 


717 FSBDATT4 EQU ATTRIBUTE BYTE FOUR 

718 FSBMOFIL EQU DFILE PARAMETER SPECIFIED 
719 FSBMDFLY EQU BIT ON = DFILE-YES SPECIFIED 
720 FSBMIFIL EQU TFILE PARAMETER SPECIFIED 

721 FSBMIFLY EQU BIT ON = IFILE-YES SPECIFIED 
722 FSBMBYPS EQU BIT ON = BYPASS-YES SPECIFIED 


724 FSBDRES1 EQU FSBDATT4+4 — RESERVED AREA 


726 FSBLTYP2 EQU  FSBDRES1+1 = LENGTH OF A TYPE TWO FSB 
727 *** END OF EXPANSION ** 
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01 
CROSS~REFERENCE 


O2|SYMBOL = T LEN VALUE REFERENCES T LEN 


4612 4624 4830 4836 


TCBAXRI = C 001 


TCBAXR2 C 00: 


000B 2429 TUBSENS] EQU TUBSENSO+1 © SENSE BYTE 1 


2431 * SCREEN FORMAT ERROR * REFERENCE GROUP 5 IN TUBSENS4 
2432 * EQU X'80" . SCREEN FORMAT ERROR 

2433 * EQU . NO RESPONSE TINE OUT 

2434 * EQu TRANSMIT ACTIVITY CHECK 

2435 * EQU . ACTIVATE COMMAND FAILURE 

2436 * EQU : ~ RECEIVE PARITY CHECK 

2437 * EQU : RECEIVE LENGTH CHECK 

2438 * EQU : . NOT USED 

2439 * EQU X' ~ EVEN/ODD TIME OUT 


O00C 2441 TUBSENS2 EQU TUBSENSI+1 SENSE BYTE 2 


2443 * EQU_X'80" DEVICE HUNG BUSY 
2444 * EQU  X‘40° . LINE PARITY CHECK 


7 WO9/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSTE! PAGE 18 VO9/11/81 12/08/81 21:31 #SVAU  TCB CHANGE ORG OR DET 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


0001 731 QHDHI EQU xX‘O1' HIGH VALUE FOR QUEUE HEADER ADDRESS 
0020 732 DEQUEUE EQU X‘20' DEQUEUE REQUEST 
0000 733 QUEUE EQU X‘00' QUEUE_REQUEST 
0080 734 PRIOR  EQU  X‘80' MASK FOR PRIORITY QUEUE ING 
0040 735 SYS EQU X‘40" SYSTEM QUEUE HEADER REQUEST 
0010 736 LIFO EQU X'10° MASK_FOR LIFO QUEUEING 
0000 737 FIFO EQ X'00' MASK FOR FIFO QUEUEING 
0090 738 PRIORL EQU PRIOR+LIFG © MASK FOR LIFO PRIORITY QUEUE ING 
0080 739 PRIORF EQU  PRIOR*FIFO MASK FOR FIFO PRIORITY QUEUEING 
740 * 
741 ** THE FOLLOWING QUEUE HEADERS ARE OFFSETS FROM LOCATION X‘0100° 
742 ** IN MAIN STORE. THE QUEUE HEADERS HAVE VARIOUS FUNCTIONS 
743 ** DEPENDENT ON THEIR USERS REQUIREMENTS. ANY USER OF THESE QUEUE 
744 ** HEADERS MUST ALSO BE AWARE THAT CONTROL STORE MAY ALSO ACCESS 
745_** THE HEADER ASYNCHRONOUSLY. 
746 * 
0000 747 QHDFD = EQU  X'00' DISK [0S 
0002 748 QHDIO = EQU X‘02' DISKETTE 10CS 
0004 749 QHDPT  £QU PRINTER [OCH 
0006 750 QHDWSC = EQU WORKSTATION [OCH 
0008 751 QHDCOMN EQU COMPUNICATIONS [OCH 
OOOA 752 QHDIOXNT EQU X'0A' 1/0 XIENT AREA 
753 * EQU X'‘0C’ RESERVED 
754 * E X‘0E* | 
755 * EQU X'10° | 
756 * EQU. X'12" | 
157 -* EQU X'14° { 
758 * EQU X'16' | 
759 QHDCXNT EQU X‘18' CONTROL STORAGE XIENT SCHEDULER CACE) 
760 QHOTWA EQU X‘1A' TASK WORK AREA ACCESS ACE) 
761 QHDLOAD EQU X‘IC* N.S. RELOCATING LOADER (ACE) 
762 QHDKBTR EQU  X‘l1E' KEYBOARD TRACE CACE) 
PRINTER QUEUE HEADER 1 CACE) 
PRINTER QUEUE HEADER 2 (ACE) 
PRINTER QUEUE HEADER 3 (ACE) 
PRINTER QUEUE HEADER 4 _CACED 
767 QHDPTS PRINTER QUEUE HEADER 5 (ACE) 
768 QHDPT6 PRINTER QUEUE HEADER 6 (ACE) 
769_QHDPT? PRINTER QUEUE HEADER 7 CACE) 
770 QHOPTS PRINTER QUEUE HEADER 8 (ACE) 
771 QHDFDA ‘ SPINDLE A QUEUE HEADER CACE) 
772_QHDFOB SPINDLE B QUEUE HEADER (ACE) 
773 QHDFOC [71 SPINDLE C QUEUE HEADER 
774 QHOFOD 17| SPINDLE D QUEUE HEADER 
775 QHDIOA "33° DISKETTE ACTIVE QUEUE ACE) 
776 * ; RESERVED 
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Ol 
CROSS-REFERENCE 


Q2/)SYMBOL T LEN VALUE REFERENCES Q2|SYMBOL T LEN VALUE DEFN 


TCBAQHDR C 001 002F 2679 TCBIDACT C 001 
03) TCBARQ C 001 0023 2661 2662 O3/TCBIDBEL C 001 OOEE 2718 
TCBARSE C 001 0018 2655 TCBIDBLD C 001 OOF9 2730 


TCBAXRI COOL 0019 2656 = 2057 4277* 4278* 4279* 4237% 4318* 4366 4368 4376 4378* 4414 4416 TCBIDBSC C 001 OOF5 2725 


NAl Ae Ahhh: “AC ORE- BRCM GARE 2A GAN aOR ERP” Clee mane Peal eihiee es een oe ean) eee: mS ok 


62480 * = —— EQUS X00" . TOO MANY FORMAT CONTROL WORDS DEFINED 


14 

2482 _* GROUP 2 - WS CONTROL FILED ERRORS 

2483 * ( REFERENCE TUBSENSO BIT] ) 
15 

2485 * EQU X‘O1' INVALID COMMAND MODIFIER 

2486 * EQU X"02" . INVALID BYTE COUNT (O OR 4096) 
16 2487 * EQU  X'03" - DEVICE ADDRESS NOT FOUND 

2488 * EQU X'04" . BYTE COUNT 7= ACTUALLY TRANSFERED 


2490 * GROUP 3 - RESOURCES TEMPORARILY NOT AVAILABLE ERRORS 
2491 * ( REFERENCE TUBSENSO BIT2 ) 


13 2493 * EQ X'O1" . PRINTER BUSY DURING WRITE ATTEMPT 


0002 2494 TUBSDEAD EQU  X'02" -_WS_IN ERROR MODE 


2495 * EQU  xk'03" . DEVICE OFFLINE ERROR 
19 2496 * EQU X'04' ~ PRINTER NEEDS INITIALIZATION 
0005 2497 TUBSNRMD EQU  X'05' -_NOT READY DUE TO OPERATOR ERROR MODE 
2498 * OR SYS REQ MODE 


G16 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 19 VO9/11/81 12/08/81 21:31 *SVAU TCB CHANGE ORG OR DET 


ERR LOC OBJECT CODE ERR LOC OBJECT CODE ADL 


ADDR STMT SOURCE STATEMENT 


0O3C 778 QHDTINER EQU = X‘3C' INTERVAL TIMER TQE QUEUE (TQE) 
0O3E_779 QHDTIMEA EQU X'3E' INTERVAL TIMER ACE QUEUE (ACE) 
0041 780 QHDSPTCB EQU  X'41' CURRENT TASK EXECUTING (TCB) 
0042 781 QHDXIENT EQU = X‘42' MAIN STORAGE TRANSIENT SCHEDULER (TCB) 


0044 782 QHDPRIQ EQU X‘44' TCB PRIORITY QUEUE 
0046 783 QHDTCBQ EQU X'46' TCB READY QUEUE 
0048 784 QHOTTC EQU X'48" TASK-TASK COM" (ACE) 


004A 785 QHDSQE EQU X'4A' STATUS QUEUE HEADER (PL) 
004C 786 QHDCNLGE EQU X'4C' CONSOLE SYSLOG CPL ) 
OO4E 787 QHOCILK EQU X'4E* CONSOLE SYSLOG INTERLOCK 


0050 788 QHDTRN § EQU  X'30' TERMINATION/RELEASE 
0052 789 QHORFILK EQU  X'52' REJECT FILE INTERLOCK CAQE) 


0054 790 QHDCPOCL EQU x'‘54' OCL COMMAND REQUESTS (PL) 
0056 791 QHOSQB EQUX'56' SECTOR QUEUE BLOCKS (SQ8) 
0058 792 QHDCSCQ EQU X'53' CONTROL STORE COMPLETE QUEUE CACE) 
005A 793 QHDTUB EQU X‘SA' TERMINAL UNIT BLOCK QUEUE (TUB) TUB) 


OO5C 794 QHOCOM EQU X'‘5C' COMMUNICATIONS LINE 1 CACE) 


OO5E 795 QHDCOM2 EQU X'5E' COMMUNICATIONS LINE 2 CACE) 
0060 796 QHDCOM3 EQU x'‘60' COMMUNICATIONS LINE 3 (ACE) 
0062 797 QHOCOM4 EQU  X‘62' COMMUNICATIONS LINE 4 CACE) 
0064 798 QHDDILK EQU X'64' DEDICATION INTERLOCK CAQE) 
0066 799 QHDSILK EQU X'66' SCHEDULER — INTERLOCK CAQE) 
0068 800 QHOVILK EQU X‘63' vroc INTERLOCK CAQE) 
006A 801 QHDSILK EQU X'6A' FORMAT FIVE INTERLOCK CAQE) 
006C 802 QHDPILK EQU xX'éC PROC NAME — INTERLOCK CAQE) 
OO6E 803 QHDHIST EQU X'6 HISTORY FILE INTERLOCK CAQE) 
0070 804 QHDSQSPT EQU xX" ' ASSIGNED PAGES QUEUE HEADER CAPE) 
0072 805 QHDCSB EQU xX" ' COMMUNICATIONS SPECIFICATION QUEUE (CSB) 
0074 806 QHDERB EQ X') ' ERROR RECORDING BLOCK QUEUE HEADER (ERB) 
0076 «807 QHDGN §=EQU X'7 GENERAL WAIT QUEUE HEADER CACE) 
0078 808 QHDSEC EQU X'78' SECURITY QUEUE HEADER CPL >) 
OO7A 809 QHDLOC EQU  X'7A' LOCATION OF NODE DICTIONARY CPL) 

810 * EQU X'7C* RESERVED 
OO7E 811 QHDSNA QU X‘7E' SNA TASK QUEUE HEADER 
0080 812 QHDWSQS EQU  X'‘80' WORKSTATION QUEUE SPACE CFQED 
0082 813 QHDSQS EQU X82’ SYSTEM QUEUE SPACE CFQED 

814. * 9 ---~ THRU ---- 

815 * EQU X‘SE' RESERVED 
0090 816 QHDINQEX EQU xX‘90' TNQUIRY EXIT QUEUE CACE) 
0092 817 QHDQUAIL EQU X*92' QUEUED ACQUIRE INTERFACE LIST (PL ) 
0094 818 QHDRPT EQU X‘94' REMOTE PRINTER QUEUE (ACE) 
0096 819 QHDSCT EQU X'96' SUBSYSTEM CONFIGURATION TABLE (PL ) 
0098 820 QHDTWAFI EQU X‘98' TWA EXTENSION F1 CHAIN (F1) 
OO9A 821 QHDEXTRA EQU xX ‘9A’ EXTENDED TRACE (PL) 
OO9C 822 QHDSUBCN EQU = xX'‘9C’ SUBCONSOLE SYSLOG CPL) 
OO9E 823 QHDSUBRA EQU = X'9E' SUBCONSOLE REASSIGN (PLD 
OOAO 824 QHDEIB EQU  X'A0' ERROR INFORMATION BLOCK (EIB) 
OOA2 825 QHDNSACE EQU = X'AZ' NS GET PAGE ACE (ACE) 
OOA4 826 QHDGLF EQU  X'A4' GENERAL LOGGING FACILITY PARMLIST (PL > 
00A6 827 QHDEXAN EQU  X'A6' EXAM QUEUE (NAS) 
OOAS 828 QHDMTI EQU  xX'AS' MRT TERMINATION INTERLOCK 
OOAA 829 QHDPDLH EQU X'AA' MULT SNA LINE [NTERLOCK CAQE> 
OOAC 830 QHDSPLK EQU X'AC' SPOOL FILE INTERLOCK CAQE) 
OOAE 831 QHDX21 EQU  X‘AE’ MCLA X.21 
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CROSS-REF ERENCE 


02)SYMBOL  T LEN VALUE DEFN — REFERENCES 02) SYMBOL T LEN VALUE DEFN 
TCBIDACT C 001 O0E4 2708 TCBMSAFL C 001 0008 2757 
03) TCBIDBEL C 001 OOEE 2718 03) TCBNSSIZ C 001 002C 2673 


TCRIDBLD C 001 OOF9 7730 TCRMSTAR CM) AMa (77K 


QUEL £932 TUBSPRMA EQUA ELD + 3296 WORKSTATION SERTAL PRINTER 
O0E2 2533 TUBSNGLD EQU  X'E2‘ - 650 LPM LINE PRINTER 

OOE3 2534 TUBSMITR EQU  X‘E3' . MITRE PRINTER 

00CO 2535 TUBSKBDP EQU  X'CO" . KEYBOARD DISPLAY WORKSTATION 


0015 2537 TUBQHDOR EQU TUBDEVID+1 QUEUE HEADER POINTER FOR PRINTER 


0016 2539 TUBERPCT EQU  TUBQHDR+1 ERP CONTROL BYTE 


2541 * 
2542 * SEE THE ERBOCTL FIELD OF THE ERB MACRO FOR ASSOCIATED MASKS. 
2543 * 


0017 2545 TUBERBFG EQU  TUBERPCT+] —_ERB FLAG BYTE 


2547 * 
2548 * SEE_THE ERBDFLG FIELD OF THE ERB MACRO FOR ASSOCIATED MASKS. 
2549 * 


0018 2551 TUBERAID EQU  TUBERBFG+1 —_ ERROR AID FLAG BYTE 
OO1A 2552 TUBNIC QU TUBERAID+2 ERP MESSAGE ID CODE 


GE =619 VO9/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT 
01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


(TQ) 02 832%  ---- THRU ---- 
CACE) 833 * EQU X'BE' RESERVED 
CTCBD 834 *** END OF EXPANSION ** 


TUB) 07 


CAQED 10 


UE CSB) 1l 
ER ERB) 


CPL > 12 


13 


14 


CPL D 15 


(FL > 16 


CPL ) Vv 


CAQE) 19 
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01 


01 
CROSS-REF ERENCE 


O2]SYMBOL oT LEN VALUE DEFN — REFERENCES 02] SYMBOL = T LEN VALUE 


TCBSFILK C 001 0010 


TCBMSAFL C 001 0008 2757 


0025 2581 TUBAID EQU 
0026 2582 TUBCPAID EQU 
0027 2583 TUBDRESV EQU 


002F 2584 TUBUSER EQU 
0030 2585 TUBOPSTS EQU 
0032 2586 TUBJCBa EQU 
0034 2587 TUBTUB EQU 


0035 2589 TUBATTRI EQU 


0080 2591 TUBNCN EQU 
0040 2592 TUBACN EQU 
0020 2593 TUBCMOT EQU 
0019 2594 TUBSGN EQU 
0008 2595 TUBTSRQ EQU 
0004 2596 TUBSTPJ EQU 
0002 2597 TUBLIOFR EQU 
0001 2598 TUBFCNSL EQU 


0036 2600 TUBATTR2 EQU 


TUBCOMON+ 1 
TUBAID+1 
TUBCPAID+1 
TUBDRESV+8 
TUBUSER* 1 
TUBOPSTS+2 
TUBJCBa+2 


TUBTUB+1 


X'80° 
X'40' 


TUBATTRI1+1 


AID BYTE CENTER, REC ADV , ETC. (DISPLAYS) 
AID BYTE CINQUIRY, SYS REQ) (DISPLAYS) 
RESERVED BYTE 

OPERATOR [0 

OPERATOR STATUS 

ADDRESS OF JCB 

TUBCHAIN FOR SYS REQ AND INQUIRY 


ATTRIBUTE BYTE 1 


. MASTER CONSOLE 

. ALTERNATE CONSOLE 

. COMMAND TERMINAL CON)-DATA TERMCOFF > 
. TERMINAL SIGNED ON 

«TEST REQUEST MODE 

. JOB INITIATION NOT ALLOWED 

. WSWA FORMATTED WITH L{O DISPLAY 
CONSOLE MODE FORCED BY [/0 ERROR 


TERMINAL MODE AND DISPLAY 


2602 RERRKERERRRAIIKIRER IR HIM I KIER IR FIO IR III RII IR IIR IRR IRI AISI IT IDI IR, 
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01 0 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR 
0080 
838 FAIR ORI ICI OO IO IOIIOCIOOR OOOO OO TOC UICR RIO IO TOR IO, 0040 
03 839 * 03 0020 
840 * JOB CONTROL BLOCK 0010 
841 * 0008 
0) fa 842 JRRIOIOIOIOIOR OORT OIIO UC IOI ROI TOR TOR IORI TOR TOTO TORI 04 0004 
0002 
0000 844 JCBDINIT EQU 0 INITIATOR SWITCH BYTE 0001 
05) 0080 845 JCBMNTRA EQU X'‘80' IN INTRA MODE (LOAD STATEMENT RECEIVED) 0 
0040 846 JCBMRUNG EQU  X'40' PROGRAM RUNNING (BETWEEN RUN STATEMENT AND 0005, 
847 * TERMINATION) 0080 
06) 0020 848 JCBMNTER EQU = X'20' IN INTER MODE (BETWEEN TERMINATION AND 06 0040 
849 * LOAD STATEMENT) 0020 
0010 850 JCBMINHT EQU = X'10' IGNORE NO-HIST PROCEDURE ATTRIBUTE 0010 
07 0008 851 JCBMAMRT EQU X'08' THIS 1S A MRT JCB 07 0008 
0004 852 JCBMNOSC EQU x '04' NO SOURCE REQUIRED 0004 
0002 853 JCBMILDS EQU = X'02' LOAD STMT RECEIVED THIS SESSION 0002 
08} 0001 854 JCBMILDJ EQU = X'O1' LOAD STMT RECEIVED THIS JOB 03 0001 
0001 856 JCBDINT2 EQU JCBDINIT+1 INITIATOR SWITCH BYTE TWO 0006 
09 0080 857 JCBMREGN EQU § X'‘80' JOB REGION RECEIVED (09 0080 
0040 858 JCBMRLCL EQU  X‘40' LOCAL DATA AREA IS IN STORAGE 0040 
0030 859 JCBMHIPR EQU X‘30' HIGH PRIORITY HAS BEEN SPECIFIED 0020 
10 0020 860 JCBMYDPR EQU X‘20' MEDIUM PRIORITY HAS BEEN SPECIFIED 10 0010 
0010 861 JCBMLOPR EQU § X'‘10' LOW PRIORITY HAS BEEN SPECIFIED 0008 
862 * X'30' BITS OFF = NORMAL PRIORITY 0004 
11 0008 863 JCBMIPRC EQU xX ‘08" IN A PROCEDURE 11 0002 
0004 864 JCBMUSLB EQU xX ‘04' PROGRAM CJCBDPROG) WAS FOUND IN USER 0001 
865 * LIBRARY CJCBOCRLB) 
12 0002 866 JCBMRSNP EQU X‘02' ENQUEUE RESOURCES WITH NEP ATTRIBUTE 12 0009 
0001 867 JCBMNRTP EQU  X'O1' NRT PROGRAM 
000C 
13 0002 869 JCBDSCH1 EQU JCBDINT2+1 SCHEDULER BYTE ONE 13 
0080 870 JCBMPUCL EQU X'80' PROGRAM HAS UTILITY CONTROL STATENENTS OO0E 
0040 871 JCBMXREF EQU X‘40' RUN OXREF AT TERMINATION 0000 
14 0020 872 JCBMRTWA EQU X‘20' FIRST SYSIN RECORD IS IN TWA 14 EEEE 
0010 873 JCBMFLUC EQU xX‘10' FLUSH UTILITY CONTROL STATEMENTS 
0008 874 JCBMOEAD EQU = X‘08" PROGRAM IS DEDICATED 0010 
15 0004 875 JCBMWTCD EQU § X'04' DMY DATE - WORLD TRADE ib) 0012 
0002 876 JCBMDOMD EQU Xx‘02' MOY DATE - DOMESTIC 
0001 877 JCBMYMOD EQU  X‘Ol' YMD DATE - INTERNATIONAL 6 0014 
16 
0003 879 JCBDSCH2 EQU  JCBDSCH1+1 SCHEDULER BYTE TWO 0016 
0080 880 JCBMOPCL EQU X‘80° OPEN OR CLOSE ERROR 
vi 0040 8831 JCBMPRTY EQU X‘40' PRTY COMMAND EXECUTED PRIOR TO START OF 17 0018 
882 * JOB 
0020 883 JCBMPNEP EQU X'20' PROGRAM IS A NEP 0020 
13 0010 834 JCBMBTCH EQU X‘10' JOB QUEUE PROGRAM 13 
0008 885 JCBMICRC EQU X'08' INCLUDE STATEMENT RECEIVED 
0004 886 JCBMOPRD EQU X'04' ALLOCATE - DON'T PREPARE THE DISKETTE 
19 0002 937 JCBMINQP EQU  X‘02' INQUIRY LATCH SET 19 0028 
0001 838 JCBMNONI EQU  X‘O1' NON-INQUIRABLE PROGRAM 
0029 
0 20) 
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02] SYMBOL 


T LEN VALUE DEFN = REFERENCES 


T LEN VALUE DEFN 


12 0038 2633 TUBATTR4 EQU TUBATTR3+1 — INQUIRY/SYS REQ AND MISC 12 0080 2687 TI 
0040 2688 TI 
0080 2635 TUBH2Q EQU  X‘80' . TUB ON HORIZONTAL QUEUE 0020 2689 TI 
13 0040 2636 TUBINQ! EQU X‘40° . INQUIRY] TUB 13 0010 2690 TL 
0020 2637 TUBINQ2 EQU  X'‘20° ~ INQUIRY2 TUB 
0010 2638 TUBIQNP EQU x‘10" . INQUIRY MENU TS PENDING 
14 0008 2639 TUBRST1 EQU xX'‘08' . RESTORE SCREEN - INQ OR SYS REQ 14 
0004 2640 TUBRST2 EQU X'04' . RESTORE SCREEN - MSG OR SYSLOG 
0002 2641 TUBLIOS EQU  x*‘02" ~ SYSIN/SYSLOG DISPLAY HAS BEEN SAVED 
15 0001 2642 TUBIDEL EQU X'‘O1' . 1 DELETE FUNCTION IS ACTIVE 15) 0047 2696 TU 
0047 2697 TL 
0039 2644 TUBATTRS EQU  TUBATTR4+1 RELEASE INDICATORS 
16 16 0048 2699 TU 
0080 2646 TUBORY E£QU  X‘30' ._RESTORE-Y ON OCL STATEMENT 
0040 2647 TUBORN EQU  xX‘40° . RESTORE-N ON OCL STATEMENT 0080 2701 TU 
17 0020 2648 TUBLOP QU X‘20' . LAST OP TO THE TUB WAS A PUT 17 0040 2702 TU 
0010 2649 TUBRSW QU X‘10" RELEASE STOP INV WORKED 0020 2703 TU 
0008 2650 TUBRSF EQU  X‘0S" . RELEASE STOP INV FAILED 0010 2704 TU 
18 0004 2651 TUBREL EQU X'04' . TUB HAS BEEN RELEASED 18 0008 2705 TU 
0002 2652 TUBSRQ EQU  X'02' . SRT HAS RELEASED REQUESTOR 0004 2706 TU 
0001 2653 TUBABTRN EQU  X‘01' . CALL TERMINATOR PRIOR TO RELEASE 0002 2707 TU 
19 19 0001 2708 TU 
003A 2655 TUBATTR6 EQU  TUBATTR5+1 
es 
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ERR LOC OBJECT CODE 


ADDR STMT s 


00660000 0004 890 JCBDSCH3 EQU JCBDSCH2+1 © SCHEDULER BYTE THREE 
0080 891 JCBMSEOJ EQU  X'80' SYSLOG - SUPPRESS 2 OPTION HALT 
0040 892 JCBMSOFF EQU X‘40' SYSLIST OFF SELECTED BY HALT OPTION 
0020 893 JCBMSPRT EQU X‘20' SYSLIST PRINTER SELECTED BY HALT OPTION 
0010 894 JCBMREST EQU  X‘10" RESERVE STATEMENT RECEIVED THIS JOB 
0008 895 JCBMSCRT EQU  X'08' SYSLIST CRT SELECTED BY HALT OPTION 
0004 896 JCBMEOMP EQU X‘04' END OF OUTER-MOST PROCEDURE 
0002 897 JCBMRING EQU  X'‘0z' INQUIRY JCB 
0001 898 JCBMOSRC EQU = X'‘01' TERMINATION - DISPLAY RETURN CODE 
0005 900 JCBDINLK EQU  JCBDSCH3+1 SCHEDULER INTERLOCK BYTE 
0080 901 JCBMSLOG EQU X'80' SYSLOG TRANSIENT CALLED 
0040 902 JCBMSYSN EQU X‘40' SYSIN TRANSIENT CALLED 
0020 903 JCBMDKAL EQU  X'20' DISKETTE FILE ALLOCATED, BUT NOT CLOSED 
0010 904 JCBMRDVC EQU  X"10' DISKETTE VTOC ON DISK 
0008 905 JCBMRDVU EQU X‘08' DISKETTE VTOC UPDATED 
0004 906 JCBMRCSM EQU  X‘04' RESUME ~ CALL #CSIM 
0002 907 JCBMSELT EQU X‘02' AUTO-LOADER DISKETTE SELECTED 
0001 908 JCBMRSET EQU X'01' RESET STATEMENT RECEIVED 
0006 910 JCBDUPSI EQU JCBDINLK+1 — UPSI SWITCH BYTE 
0080 911 JCBMUPS] EQU X'80' UPSI SWITCH ONE 
0040 912 JCBMUPS2 EQU  X'40' UPST SWITCH TWO 
0020 913 JCBMUPS3 EQU  X‘20' UPSI SWITCH THREE 
0010 914 JCBMUPS4 EQU X'‘10' UPSI SWITCH FOUR 
0008 915 JCBMUPS5 EQU§ X'08' UPSI SWITCH FIVE 
0004 916 JCBMUPS6 EQU = X‘04' UPSI SWITCH SIX 
0002 917 JCBMUPS7 EQU § X‘02' UPSI SWITCH SEVEN 
0001 918 JCBMUPS8 EQU  X‘01' UPSI SWITCH EIGHT 
0009 920 JCBDDATE EQU JCBDUPSI+3 SESSION DATE 
000C 922 JCBDPDAT EQU JCBDDATE+3 = PROGRAM DATE 
QOOE 924 JCBDSLST EQU JCBDPDAT+2 —SYSLIST INDICATOR - PRINTER ID 
0000 925 JCBSLOFF EQU x '0000' X'0000' = OFF 
EEEE 926 JCBSLCRT EQU X'EEEE' X*EEEE* = CRT 
0010 928 JCBOCRLB EQU JCBDSLST+2 = CURRENT LIBRARY Fl POINTER 
0012 929 JCBDFSBL EQU JCBDCRLB+2 LIBRARY FSB CHAIN POINTER 
0014 931 JCBDFSBF EQU JCBDFSBL+2 = FILE FSB CHAIN POINTER 
0016 933 JCBDWSBP EQU  JCBDFSBF+2 —_WSB CHAIN POINTER 
0018 935 JCBDPSBP EQU JCBDWSBP+2 = PSB CHAIN POINTER 
0020 937 JCBDIPRC EQU JCBDPSBP+8 = NANE OF FIRST LEVEL PROCEDURE 

938 * CART PROCEDURE NAME IF JCBAAMRT IS ON AND 
939 * THIS JCB IS POINTED TO BY THE MAT'S TCB) 
0028 941 JCBDPROG EQU JCBDIPRC+3 = PROGRAN NANE 
29 943 JCBDSTAT EQU JCBOPROG+] = STATUS BYTE 
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0047 2696 TUBHELPM EQU 
0047 2697 TUBGCHAR EQU 


0048 2699 TUBATTR9 EQU 


0080 2701 TUBBADGE EQU 


0040 2702 TUB960 EQU 
0020 2703 TUBMENU2 EQU 
0010 2704 TUBNRTSC EQU 
0008 2705 TUBSVRD EQU 
0004 2706 TUBSVER1 EQU 
0002 2707 TUBSVER2 EQU 
0001 2708 TUBRDYPD EQU 


TUBATTR8+2 
TUBHELPM 


TUBHELPMt+1 


~ RESERVED FOR WSIOCH 0080 2745 T 


. RESERVED FOR WSIOCH 0040 2746 T 
. RESERVED FOR WSIOCH 0020 2747 T 
«RESERVED FOR WSIOCH 0010 2748 T 

0008 2749 T 
HELP KEY NIC AREA 0004 2750 T 
OR GAIJI CHARACTER ON AID REQUEST 2751 * 


2752 * 
ATTRIBUTE BYTE 8 0053 2753 TI 
. THIS TUB HAS BADGE SECURITY 

. THIS TUB IS FOR A 960 CHAR SCREEN 
_ DISPLAY PAGE 2 OF MENU ON 960 

. MRT SECURITY SWITCH 


« REJECT IN READY FUNCTION 0040 2759 TI 

« ERROR DURING SAVE - STATUS OR CNSL SYSLG 0020 2760 Tl 

. ERROR DURING SAVE ~ SYS REQ OR INQUIRY 0010 2761 Tl 

. READY TASK IS PENDING 2762 * 
2763 * 

REJECT FILE INDEX 0008 2764 Tl 
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1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT 
944 JCBMMPNT EQU WAITING FOR PRINTER 005A 998 
945 JCBMULIN EQU WAITING FOR COMMUNICATION LINE 005C__999_ 
946 JCBMWOKT EQU WAITING FOR DISKETTE 
947 JCBMWDSK EQU WAITING FOR DISK SPACE 
948 JCBMWINT EQU INITIATOR WAITING FOR RESOURCES 
949 JCBMNMX EQU WAITING FOR A MRT OVER NRTMAX 
950 JCBMSLOP EQU HALT PENDING TO SYSTEN OPERATOR 
951 JCBMEXTD EQU FILE EXTENSION IN PROCESS 
953 JCBDRGS2 EQU JCBDSTAT+1 REGION SIZE (STEP) 
955 JCBOCTAG EQU JCBDRGS2+1 © CURRENT TAG IN PPSA 
957 JCBOSLOB EQU  JCBDCTAG+2 —SYSLIST 10B ADDRESS 
1012 ’ 
959 JCBDRTCD EQU JCBDSLOB+2 = RETURN CODE (MIC) 
0063 1014 , 
961 JCBDEXTA EQU JCBORTCD+2 = JCB EXTENSION ADDRESS 0080 1015 . 
0040 1016 . 
963 JCBDPRG] EQU  JCBDEXTA+2 RELATIVE SS OF PROGRANI NESSAGE MEMBER 0020 1017 . 
964 JCBDPRG2 EQU JCBOPRGI+2 = RELATIVE SS OF PROGRAMZ MESSAGE NENBER 0010 1018 . 
965 JCBDUSR1 EQU JCBDPRG2+2 RELATIVE SS OF USER] MESSAGE NEMBER 0008 1019 J 
966 JCBDUSR2 EQU  JCBDUSRI+2 RELATIVE S° OF USER2 MESSAGE MEMBER 0004 1020 J 
967 JCBDPGIL EQU JCBDUSR2+2 = PROGRAM] LIBRARY FORMAT-1 ADDRESS 0002 1021 J 
968 JCBDPG2L EQU JCBDPGIL*2 = PROGRAM2 LIBRARY FORMAT-1 ADDRESS 0001 1022 J 
969 JCBDURIL EQU JCBDPG2L+2 —_ USER] LIBRARY FORMAT~1 ADDRESS 
970 JCBDURZL EQU JCBDURIL+2 — USER2 LIBRARY FORMAT-1 ADDRESS 0065 1024 J 
972 JCBOMENU EQU  JCBOUR2L+2 RELATIVE SS OF MENU MESSAGE MEMBER 006D 1026 J 
973 JCBOMENL EQU = JCBDMENU+2 = MENU LIBRARY FORMAT-1 ADDRESS 
OO6F 1028 J 
975 JCBDJBID EQU  JCBDMENL+2 JOB NAME (ID) QO6F 1029 J 
977 JCBDLNPG EQU JCBDJBIL+1 — LINES/PAGE 0070 1031 J 
979 JCBDFMNO EQU JCBDLNPG+4 = FORMS NUMBER 1033 * 
1034 * 
981 JCBOSLLC EQU  JCBOFINO+1] —SYSLIST CRT LINE COUNTER 1035 * 
1036 * 
983 JCBDNFTF EQU JCBDSLLC+1 © NUMBER OF FORMATS FOUND 1037 * 
985 JCBDFINA EQU  JCBONFTF+2 © ADDRESS OF FORMAT INDEX 0001 1039 J 
0003 1040 J 
987 JCBDCIBa EQU  JCBDFINA+2 — ADDRESS OF COMPILER INFORMATION BLOCK 0005 1041 J 
989 JCBDDTFA EQU JCBDCIBA+2 ADDRESS OF FIRST DTF ON CHAIN 0006 1043 J 
0004 1044 J 
991 JCBDSLLR EQU JCBDDTFa+1 = SYSLIST CRT LINES REQUESTED 0006 1045 J 
0008 1046 J 
993 JCBDDFRG EQU  JCBDSLLR+1 REGION SIZE (DEFAULT) 
OOOF 1048 J 
995 JCBDJBRG EQU JCBDDFRG+1 = REGION S{ZE (JOB) 0010 1049 JI 
1050 * 
997 JCBDMENF EQU JCBDJBRG+7 = MENU FORMAT INDEX CNON-RELEASED WS JOBS) 
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01 


CROSS-REFERENCE 


02] SYMBOL 


TUBSCNCL C 001 00C3 3019 
Ol TuRSNA 


C00) OOfO %;14 


T LEN VALUE DEFN = REFERENCES C2]SYMBOL =T LEN VALUE DEFN  REFE 
TUBATTR5 C 001 0039 3272 3283 
(Y2Ab 7 IRATTRBK CAN) M2) 29082 204 


0050 2743 TUBCMSK EQU  TUBCNSK3 COMMAND KEY MASK 
0051 2744 TUBFMSK EQU  TUBCMSK+1 FUNCTION KEY MASK 
0080 2745 TUBPRT EQU  X'‘80' ENABLE PRINT KEY 
0040 2746 TUBRLUP EQU X‘40' ENABLE ROLL UP KEY 


1 0020 2747 TUBRLDN EQU X‘20' ENABLE ROLL DOWN KEY 
0010 2748 TUBCLER EQU  X‘10' ENABLE CLEAR KEY 
0008 2749 TUBHELP EQU X‘08' ENABLE HELP KEY 
15 0004 2750 TUBRCBK EQU X‘04' ENABLE RECORD BACKSPACE KEY 
2151..* EQU X‘02' RESERVED 
2752 * EQU. X‘O1' RESERVED 


0053 2753 TUBDEXTa EQU — TUBFIMSK+2 REMOTE WORKSTATIONS TUB CRHSTB) 
2754 * NOTE: THE ABOVE EQUATE IS THE DISPLAY STATION TUB POINTER 
2755 * TO THE RWS TUB. SEE PRINTER EQUATES FOR THE PRINTER 
2756 * TUB'S POINTER TO THE RWS TUB. 

0054 2757 TUBATTRA EQU  TUBDEXTa+1 ATTRIBUTE BYTE 10 

0080 2758 TUBCLRAD EQU  X'80' . CLEAR AIDS 


18 0040 2759 TUBSLOCK EQU X‘4G' . LOCK CONTROL 
SYSLG 0020 2760 TUBMOFF EQU X‘w' «OFF OCL STATEMENT RECEIVED 
TRY 0010 2761 TUBMHOLD EQU  X'i0' . HOLD PARAMETER FOR OFF COMMAND CON) 
19 2762 * NOTE THAT IF THIS BIT IS NOT ON 
2763 * UT_INDICATES THE DROP PARAMETER 
2 
G21 
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ERR LOC OBJECT CODE Al 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


005A 998 JCBDJQST EQU JCBOUBRG+3 © JOB QUEUE JOB START TIME (JOBQ JOBS) 
005C_999 JCBDSPID EQU  JCBDJQST+2 SESSION PRINTER ID (RELEASED WS JOBS) 


0061 1001 JCBDJOBN EQU JCBDMENF+3 = JOB NAME (TIME STAMP) 


0062 1003 JCBDSCHS EQU JCBDJOBN+! © SCHEDULER BYTE FIVE 

0062 1004 JCBDLANG EQU  JCBDSCHS LANGUAGE COMPILER BYTE 

0080 1005 JCBNSYLB EQ SEARCH SYSTEM LIBRARY ONLY 

0040 1006 JCBMSLMG EQU SYSLIST END MESSAGE REQUIRED 

0020 1007 JCBMLIST EQU LIST RPG 

0010 1008 JCBINEXT EQ SYSLIST ‘NOEXTN' SPECIFIED 

0008 1009 JCBMI5SCP EQU 15 CPI SPECIFIED ON FORMS STATEMENT 
1010 * EQU 
1011 * 
1012 * EQU 


0063 1014 JCBDSCH4 EQU  JCBDLANG+1 SCHEDULER BYTE FOUR 
0080 1015 JCBMTILK EQU X'‘80' JCB TERMINATION INTERLOCK 

0040 1016 JCBMFLIS EQU X'‘40' FLUSH INLINE SOURCE 

0020 1017 JCBMPGIS EQU  X'‘20' PROGRAM HAS INLINE SOURCE 

0010 1018 JCBMINTK EQU X‘10' INITIATOR DID NOT INITIATE THIS TASK 
0008 1019 JCBMSRAL EQU x '08' SECURED RESOURCE ALLOCATED BY THIS NRT 
0004 1020 JCBMEVPR EQU xX '04' EVOKED PROCEDURE 

0002 1021 JCBMSPCK EQU x ‘02' SET SPOOL FILE EOF AT LAST CHECK POINT 
0001 1022 JCBMEIBA EQU = X‘01' ERROR INFORMATION BLOCK PRESENT (EIB) 


0065 1024 JCBOCSBP EQU JCBDSCH4+2 CSB CHAIN POINTER 


006D 1026 JCBDUSER EQU  JCBDCSBP+8 USER ID 


OOF 1028 JCBDBFRA EQU JCBDUSER+2 — SYSIN BUFFER ADDRESS 
QO6F 1079 JCBDLCLA EQU  JCBDUSER+2 LOCAL DATA AREA ADDRESS 


0070 1031 JCBLLNTH EQU JCBDBFRA+1 © LENGTH OF A JCB 


7033 RRR OO COIR RII IR IOFOTO CTO TR OR IT OT IRR TIE 


1034 * . 
1035 * JCB EXTENSION é 
1036 * x 


O37 RARRARRRRARR AR RII IRR IORI III OR IOI IOI II NTR FR RID RII II DI TOD I TTT 


1039 JCBDSSBa EQU 1 SESSION SPECIFICATION BLOCK POINTER 
1040 JCBOCCBA EQU JCBDSSBa+2 = CHECK POINT CONTROL BLOCK POINTER 
1041 JCBDPLST EQU  JCBDCCBa+2 PHONE LIST CHAIN POINTER 


1043 JCBDLPI# EQU JCBDPLST+1 = LPI VALUE 

1044 JCBMALPI EQU  X‘04' 4 LPI SPECIFIED ON FORMS STATEMENT 
1045 JCBMOLPI EQU xX *06' 6 LPI SPECIFIED ON FORMS STATEMENT 
1046 JCBNBLPI EQU xX ‘08' 8 LPI SFECIFIED ON FORMS STATEMENT 


1048 JCBDERSV EQU JCBDLPI#+9 = RESERVED AREA 
1049 JCBDELNG EQU JCBDERSV+1 = LENGTH OF JCB EXTENSION 
1050 _*** END OF EXPANSION ** 
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16] 


01 
CROSS-REFERENCE 


O2}SYMBOL = T LEN VALUE DEFN = REFERENCES 02}SYMBOL = T LEN VALUE DEF 


12 0060 2795 TUBLEN EQU TUBRSVD+1 LENGTH OF A DISPLAY TUB 12 


27198 RERKIERRARRERRIERHRAR AIR IARI RII ARR IERRIAR EIR IIR IR III RII IR IO IIT TOR IOS IFO 


2799 * PRINTER UNIQUE PORTION OF THE TUB : 


7 2800 RRAKKRARRARKRAKER RRA RAR RRA RK IR ERR IIR IIR IO IORI IRI IR RIOR TORR ITO TORT OTR OI 


2801 * 


0026 2803 TUBPEXT@ EQU  TUBCOMON+2 — REMOTE WORKSTATION TUB ADDRESS PRINTERS) 
0027 2804 TUBPRESV EQU  TUBPEXTa@+! — RESERVED BYTE 
0028 2805 TUBPFINO EQU  TUBPRESV+4 — FORMS NUMBER 


002C 2806 TUBPFMLN EQU TUBPFMNO+] = FORMS LENGTH (LINES/PAGE ) 

0020 2807 TUBPCRLN EQU TUBPFMLN¢l] © CURRENT LINE 

OO2E. 2808 TUBPMXPP EQU  TUBPCRLN+! — MAX PRINT POSITION CHORIZONTAL) 

002F 2809 TUBDPRST EQU TUBPNXPP+! = PRINTER STATUS BYTE 

0080 2810 TUBS$PUPM EQU xX ‘80" . POST USER ON ERROR MESSAGE 

0040 2811 TUBSDPST EQU  X‘40' + PRINTER PAST READY 

a) 0020 2812 TUBSEXTD EQU § X'20' . THIS PRINTER TUB HAS AN ADDITION 

2813 * EQU X'l0° « RESERVED 
2814 *® EQU X‘03' -_ RESERVED 
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ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ADDR ST 


1052 * NUCEQ 


1053 RARRRRIAR RRR III IR III RIOR IAI IIR IIR R TOR IR IIR TO TOTO TOR TORII TOR OR TORR IFO 
1054 * TAIN’ STORAGE NUCLEUS 7 
1055 RERARRIARARRIAR KIER IR IR IIR IR IRR TORII IR IOI OR TOR IO IR RR TOTO TOR TOI TO. 
1056 RERKRAERERRAER IRR IRR IIR IRI RIT IIIT IIT II TTR TORR TOOT POR TOT TOR IO IT TO TOT TOR DRI 


1057 * ADDR = NAME SIZE CHEX) SIZE CDEC) LABEL = * 


ST ost: Mialatalafotatalatalatotalatatatatatalalalalatatetatatatalaalatatatatatatatatatetataisitaieloicateteeteiitaen td tttdaecel 
1059 * 0000 FIXED NUCLEUS 1000 4096 NUFIXNUC * 
]060 RRRRKRRAAKARARRRRARAARANRRARARERKKARRRURER RRA RR RRRRRRRR AR RARE RE RRR RR RRR 
7106] 00202200 OO OOO OURO IO IOC ITO ITO TOTO II TOO II TOE 


1062 * 0000 SYSTEM COMMUNICATION AREA 0100 256 

1063 *® 

1064 * 0100 ACE QUEUE HEADERS 

1065 * 

1066 * 01CO MULTI-PURPOSE 10B 0020 NU@MP 10B 
1067 * 

1068 * O1EO CS TRANSIENT LOADER [0B 0020 NUACX10B 
1069 * 

1070 * 0200 COMMAND PROCESSOR TCB 0080 NuacPTce 
1071 * 

1072 * 0280 TASK WORK AREA INDEX 0023 NUATWAXL 
1073 * 

1074 * 02A3 TASK WORK AREA QUEUE HDR 0005 NuaTWAQ 
1075 * 

1076 * O2A8 DISKETTE ERROR LOG AREA NUARDIOB 
1077 * 

1078 * O2EO = SYSTEM LIBRARY FORMAT~1 NUS#LBF 1 
1079 * 

1080 * 0300 A/D TRACE ACE 0010 NUATRACE * 
1081 * 

1082 * 0310 ALTERNATE SECTOR ACE 0010 NUAERACE 
1083 * 

1084 * 0320 STATISTICAL LOGOUT ACE 0010 NUaLGACE 
1085 * 

1086 * 0330 INTERVAL TIMER ACE 0010 NUATIACE 
1087 * 

1088 * 0340 MSP ERROR ACE 0010 NUAMACE 
1089 


mo tL ee el ee tl et el ete 


0350 SWAP ACE NUaSWACE 
1091 
1092 * 0360 MS TRANSIENT LOADER ACE NUANKACE 
1093 


0370 DISKETTE ERROR ACE NUATEACE 
1095 
1096 * 0380 ERROR TASK-TASK ACE NUACSETC 
1097 


0390 DISPATCHER TQE NUADSTQE 


MIDNIGHT TQE NUaITQE 


STATISTICAL LOGGING TQE 0008 NUaIDI. TQE 


SQS FAILURE TQE NUSATQE 


a] ee el ee el ee el ee el ee el ee el ee tl ee 
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LRERKRRERRERERAER, 


J 


ERERIIRIR IR EAIIRK 


RESS (PRINTERS) 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


00680000 1106 * 0380 TERMINATION DUMP [08 
IR IRI III IR III. 1107 * 
x 1108 * 0300 
RRARRERERERE ER RRR 1109 * 
ARERR RAERERRERRRER 1110 * 03£0 
Cc) ‘LABEL * Mu * 
RRRRRARRERERERERER 1112 * 03FO IPL ASSIGN/FREE AREA 
NUFIXNUC * 1113_* 
RRERARERERRRERRERR 1114 * 0700 
KRERRRARARKK ARIK RE 1115 id 
NUaSCA * 1116 * 0700 _ALTER/DISPLAY WORK AREA  00C0 
® 17% 
NUBACEQH * 1118 * O7CO —IMPL ERROR LOG SAVE AREA 0040 
x 119 * 
NuatP lop * 1120 * 0800 MS TRANSIENT AREA 
® 1121 * 
NUACX 10B * 1172 RREKEKAERKAAAAARKKRARKRAAKKKAKKAARERKEKAERA RAKE KEKE KKH IK IRE RIK IR, 


x 1123 RARRAHRAARRARARARRAARAAARAERRAARARARRAA ARR AKER ERA ARK RAR ARR ERAT ER, 


NUACPTCB * 1124 * 1000 VARIABLE NUCLEUS NUVARNUC 


L125 RRRRRARARRAARARRARERRRRER AERA RRR R ERE RARER EEE RIKER I ITER 


» 


L126 RREREKRAARARAARRARARARRAARAERRARRR ARERR RAR RKIKR RE RERAAAR RAR A RA ARERR IR 


1127 * 2000 LOAD ADDRESS FOR IPL DISKETTE NUaLOADI * 


L128 ®RRRRARRARARAR AR RRA RR ARAARERRERER EERE AER RER ERE RIE RII AIEEE IIIT IER, 


NUATWAXL 


NUaTWAQ 


L129 RRRRXRRARRER AER ERRERA RARER RARER ERR ERE REEK AE RIERA R EAA RAR RARER 


8 
» ele me el ee 
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01 
CROSS-REFERENCE 


OZ|SYMBOL 7 LEN VALUE DEFN REFERENCES 


TUBRIC =©C 001 OO1A 3180 ©3182 
03] TUBMINIT C 001 0030 3243 


0030 2876 TWAYLOGC EQU 48 TAG 48- SYSLOG COMMUNCATIONS TO conse 


0031 2877 TWAPTKMQ EQU = 49 TAG 49- TASK MESSAGE QUEUE AREA 
14 2878 * 54 TAG 54- €ND OF MESSAGE QUEUE AREA 
0037 2879 TWAAOCLC EQU 55 TAG 55- OCL COMMAND SAVE AREA 
0038 2880 TWAPXLAT EQU = 56 TAG 56- TRANSLATE TABLE AREA 
1 0039 2881 TWAPRRNG EQU 57 TAG 57- DUAL MESSAGE ROUTING AREA 
2882 * 58 TAG 58- RESERVED THRU 59 
2883 * 
16 2884 * COMMAND PROCESSOR TAGS 
2885 * 
0000 2886 TWAPNUSE FQU 00 TAG 00- NOT USED 
17 0001 2887 TWASCOl EQU 01 TAG O1- SYSTEM CONSOLE IMAGE 
2888 * 07 TAG 07- END 
0014 2889 TWAYCEND EQU 20 NUMBER OF [MAGES 
18 0008 2890 TWAYIQO! FQU 08 TAG 08- MESSAGE QUEUE 
2891 * 13 TAG 13- END OF MESSAGE QUEUE TAGS 
OOOE 2892 TWAMCURT EQU 14 TA 14~ CURRENT SYSTEM PRINTER IMAGE 
19 OOOF 2893 TWAYSCSV EQU 15 TAG 15- SYSTEM CONSOLE SAVE/RESTORE AREAS 1 
OOOF 2894 TWAPCNSL EQU 15 e CONSOLE SAVE AREA (15-26) 
OO1B 2895 TWAAISSA EQU 27 e WORKSTATION SAVE AREA (27-38) 
eee 
G24 
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01 0 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT COD 
02 1131 * e 0 
0000 1132 NUFIXNUC EQU  X'000' MAIN STORAGE NUCLEUS - FIXED AREA 


EERE 
: 
2 | 2 8 


: 


R 
» 


» 


NUaXTENT * 
x 


RRARAAEREERAARAK 
KRREKREKEARARKRKK 
NUVARNUC 
RRAARAAAEREKRERK 
RRRARARARKEKKEKKK 
NU@LOADI. * 
ERAKERERAAAEKARRK 


ER RRRAKARERKH RRR 


1133 * 
0000 1134 NUBSCA EQU = NUFIXNUC SYSTEM COMMUNICATION AREA 
0100 1135 NULSCA EQ 256 * (LENGTH OF AREA) 
1136 * 
0100 1137 NU@ACEQH EQU  NUBSCA+NULSCA SYSTEM QUEUE HEADERS 
OOCO 1138 NULACEQH EQU 192 * (LENGTH OF AREA) 
1139 * 
O1CO 1140 NUAMPIOB EQU = NUBACEQH+NULACEQH MULTI-PURPOSE 108 
0020 1141 NULENIOB EQU 32 * _CLENGTH OF & “ISK 108) 
14" * 
O1EO 1143 NU@CXIOB EQU NU@MPTOB+NULENIOB CS TRANSIENT L YER [0B 
1144 * 
0200 1145 NUACPTCB EQU NU@CXIOB+NULENIOB COMMAND PROCESSOR TCB 
0002 1146 NUACPTAH EQU = X‘02° COMMAND PROCESSOR TCB (HIGH) 
0080 1147 NULCPTCB EQU 128 * (LENGTH OF AREA) 
1148 * 
0280 1149 NUATWAXL EQU NUACPTCB+NULCPTCB TASK WORK AREA INDEX (LEFT) 
0023 1150 NULTWAX EQU 35 (LENGTH OF AREA)(280 ENTRIES) 
O2A2 1151 NUBTWAKR EQU = NUBTWAXL +NULTHAX-1 TASK WORK AREA INDEX (RIGHT) 
1152 * 
1153 * _NOTE: TASK WORK AREA SPACE IS INDICATED BY 8 TRACKS PER 
1154 * BYTE. THE RIGHT BYTE INDICATES THE START OF THE TASK 
1155 * WORK AREA ON THE DISK. 
1156 * 
02A3 1157 NUBTWAQ EQU  NUATHAXL+NULTWAX TASK WORK AREA QUEUE ELEMENT 
0005 1158 NULTWAQ EQU 5 (LENGTH OF AREA) 
1159 * 


02A8 1160 NUARDIOB EQU  NUGTWAQ+NULTWAQ SYSTEM DISKETTE IOB/LOGOUT AREA 
56 


0038 1161 NULRDIOB EQU 
1162 * 


* (LENGTH OF AREA) 


O2E0 1163 NUWFLBF1 EQU — NUGRDIOB+NULRDIOB #LIBRARY RESIDENT FORMAT-1 
0020 1164 NUL®LBF1 EQU = 32 * CLENGTH OF AREA) 
1165 * 


0300 1166 NUBTRACE EQU = NU@*LBF1+NUL®LBF1 TRACE LOGOUT ACE 
0010 1167 NULACE EQ 16 * CLENGTH OF AN ACE) 
1168 * 


0310 1169 NUBERACE EQU NUATRACE+NULACE ALTERNATE SECTOR ACE 
117¢ * 
0320 1171 NUBLGACE EQU — NUGERACE-NULACE STATISTICAL LOGGING ACE 


172 * 
0330 1173 NUSTIACE EQU NUA@LGACE+NULACE INTERVAL TIMER ACE 
1174 * 


0340 1175 NUBIMACE EQU NUATIACE+NULACE MSP PROC CHECK ERROR HANDLER ACE 
1176 * 
0350 1177 NUBSHACE EQU  NUGMACE+NULACE ACE FOR SUAP 10B 


1148 * 
0360 1179 NUGMXACE EQU  NUASWACE+NULACE ACE FOR MS XIENT SCHEDULER 
1180 * 


0370 1181 NUATEACE EQU  NUGIMXACE+NULACE ACE FOR DISKETTE ERP 
1182 * 
0380 1183 NUBCSETC EQU NU@IEACE+NULACE CS TASK-TASK ERROR ACE 


PAGE 
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1184 * 
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CROSS-REFERENCE 


SYMBOL oT LEN VALUE DEFN = REFERENCES 


TUBRINCH C 001 0002 3009 


00 
1 1 00 
OLE = eee ke 
ri 
14 0 
on 
00 
1 oo 
w 
i") 
16 00 
V7 
1 f 
AREAS 19 
) 
0 
625 
27 VO9/11781 12/08/81 21:31 |] {*#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 78 = VO9/11/81 12/08/81 21:31 01 #SVAU TCR CHANGE ORG OR OE 
01 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE al 
® 02} 0390 1185 NUADSTQE EQU  NUACSETC+NULACE DISPATCHER TQE 02} 
0008 1186 NULTQE FQU 8 * (LENGTH OF A TOE) on 
1187 * | 00 
0 0398 1188 NUQMNTQE EQU NUADSTQE+NULTQE MIDNIGHT TOE 03 00 
1189 * 0 
03A0 1190 NUaDLT NUGMWTQE+NULTQE STATISTICS DATA LOG TIME Q ELEMENT 
1191 ® 04 
O3A8 1192 NU@ATQE EQU  NU@DLTQE+NULTQE ASSIGN/FREE FAILUTE TIME Q ELEMENT 00 
1193 * 00 
0380 1194 NU@DPIOB EQU NURATQE+NULTQE TERMINATION DUMP 10B 05) 
1195 ® 00 
0300 1196 NUBDPACE EQU NUBOPIOB+NULENTOB TERMINATION DUMP ACE 00 
1197 * 06) 0 
030 1198 NUASPACE EQU  NUSDPACE+NULACE PERMANENT SWAP ACE 
1199 * 
03FO 1200 NUAIPLAF EQU  NUASPACE+NULACE FIXED NUCLEUS FREE AREA #1 07 
1201 * 
1202 KEKARERERRR: AREARAKKARAARKKARRERAREKE REEL AKEREEERAR ERR 
1203 Ls GS 
0800 1204 NUAXTENT EQU 2048 1S TRANSIENT AREA 
0800 1205 NULXTENT EQU 2048 * (LENGTH OF AREA) 
109 1206 * 09 
0100 1207 NULTRBUF EQU 256 LENGTH OF TRACE BUFFER 
ASK 0700 1208 NUSTRBUF EQU  NUAXIENT-NULTRBUF TRACE LOGOUT BUFFER 
10, 1209 * 10 
0700 1210 NUBADWRK EQU — NUaTRBUF ALTER/DISPLAY WORK AREA 
00CO 1211 NULADURK EQU 
11 1212 * I 
O7CO 1213 NUSBADZK EQU NUATRBUF+NULADWRK IPL STORAGE ERROR SAVE AREA 
1214 * 
1 0310 1215 NULIPLAF EQU  NUaTRBUF-NURIPLAF LENGTH OF IPL FREE AREA 12 
1216 * 
12717 3 RRRAAKRRARRK KARA RAKE REG RE LER ERRERE REE EKRERERRE REAR AERE, 
13 1218 * 13 
1000 1219 NUVARNUC EQU  NUAXIENT+NULXIENT MAIN STORAGE NUCLEUS - VARIABLE AREA 
1220 * 
14 1000 1221 NUANSSQS EQU  NUVARNUC FIXED NUCLEUS FREE AREA #2 14 
1000 1222 NULMSSQS EQU 4096 DEFAULT LENGTH FREE AREA £2 
1223 * 
1 2000 1224 NUALOADI EQU — NUAMSSQS+NULITSSQS LOAD ADDRESS WHEN [PL DISKETTE 15 
1225 * 
_— 1226 *** END OF EXPANSION ** 
16 16 
7 av) 
18 1 
19 19 
0} 0 
F25 
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1 


0006 2942 RSLIST EQ X‘06" 
0007 2943 RSIN Eq 
0008 2944 RSGET = - EQ 
0009 2945 RSNSG = ECA 
OO0A 2946 RLIBRY EQU 
0008 2947 RVTOCFD QU 
O00C 2948 RALLOC  EQU 
0000 2949 ROALOC £QU 
GOOE 2950 RSALOC QU 
OOOF 2951 RINFO — EQU 
0010 2952 RVTORD = EQU 
0011 2953 RSNAP EU 
0012 2954 RPGHLT EQ 
0013 2955 ROMCALL §£QU 


001A 2962 RAFA 
0018 2963 RSPOOL EQ 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0003 1230 PUSHOSS EQU  PUSHOCH+2 
0004 1231 PUSHIND QU  PUSHOSS+1 
0080 1232 PUSHPART EQU X‘80* 


1234 * 
0005 1235 PUSHTSSN EQU  PUSHINO+1 
0006 1236 PUSHBEGL EQU  PUSHTSSN+1 


SYSLIST 


SYSIN 

SOURCE GET 

MESSAGE RETRE!VE 

LIBRARY OPEN/CLOSE 

VTOC READ/WRITE FO 
ALLOCATE 

DEALLOCATE 

SPECIAL ALLOCATE 
RETRIEVE SYSTEM INFORMATIOK 
VTOC READ/WRITE RD 

‘SNAP DUMP 

RPG HALT 

Oy TA MANAGEMENT CONTROLLER 
PINTER ALIGNMENT 
COMMAND PROCESSOR ROUTER 
LIMITS OPEN 

USER — USOM REQUEST 
SYSTEM WSOM REQUEST 

USER LIBRARY FIND REQUEST 
AFA ACCESS TRANSIENT 
SPOGL_ INTERCEPT REQUEST 
SPOOL ALLOCATE REQUEST 


POINTER TO NEXT PUSH ELEMENT 
SS OF TWA ALLOCATED ON DISK 
PUSH INDICATOR 

* TASK PUSHED PARTIALLY TO 015K 


1233 * NOTE THAT A VALUE OF X°FF’ IN THIS BYTE INDICATES THAT 
THE CHOOR MACRO HAS NOT EXECUTED. 


SECTOR VALUE FOR SWAP 
TASK BEGINNING ATR OFFSET 


1237 * OR USER'S BEGIN ADORESS FOR A PARTIAL PUSH 


0007 1238 PUSHCORE EQU  PUSHBEGL+1 
0080 1239 PUSHNONS EQU X'‘S0" 

0008 1240 PUSHLEN EQU  PUSHCORE+! 
1241_*** END OF EXPANSION ** 


CORE SIZE IN 2K BLOCKS 
TASK PUSHED 1S NON-SWAPPABLE 
LENGTH OF A PUSH ELEMENT 
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6008 1250. 
Ono 11 
05) OO0E 1252 | 
GOOF 1253 | 
0610 1254 | 


06 OO11 1255 | 


07 O02F 12758 | 


OF 


09 


5 


16 


we S ee ee 


pt NE tl 

003A 2954 RELFAC EQ X"3A" 

1 0038 2995 REXTNP =EQU OX"3B" 
OOK 2906 RFC EK SC" 

0030 2997 RIGDD EK" 3D" 

13 OO3E 2998 MUDD EU E* 
OOF 2999 RUDOT = EQ 

O40 3000 RMEGE = EQU ‘40° 

14 004] 3001 RADON EQU "a1" 
0042 3002 RMDHH = FQ K"42* 

0043 3003 RSPOG FQU Ka" 

19 0043 3004 RXTEND =FQU  RSPONG 


0120 3006 XFLENBYT EQU  RXTEND*4+4 
16 0088 3007 XFLEMURD EQU = RXTEMD™2+2 
3008 *** END OF EXPANSION ** 


7 


18 


19 
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ERR LOC OBJECT CODE ADDR STNT SOURCE STATEMENT 


1243 * RBEQU 
0001 1244 RBSCHAIN EQ 


03} 0005 1246 RBSXR2 EQU RBSXRI+2 
0007 1247 RBSARR  EQU RBSXR2+2 
0009 1248 RBSIAR EQU  RBSARR+2 
04 OO0A 1249 RBSPAR «= EQU RESIAR+1 
0008 1250 RESPSR EQU RBSPYR+! 
0000 1251 RBSRQ = EQU  RBSPSR+2 
0 O00E 1252 RBSINL1 EQU  RBSRQ+1 
OOOF 1253 RBSIM2 EQU  RBSIMLI+1 
0010 1254 RBSINL3 EQU RBSINL2+1 
06 0011 1255 RBSIML4 EQU  RBSINL3+1 
0012 1256 RBSLEN EQU RBSINL4+] 
0012 1257 RBSWORKS EQU  RBSINL4+1 


O02F 1258 RBSWORK EQU RBSIM.4+30 WORK AREA 


0030 1259 RBSTLEN FQU  RESWORK+] 


1260 *** END OF EXPANSION ** 
Li 
‘ 


1] 


0003 1245 RBSXR1 = EQU = RBSCHAIN'Z 


ees ES 
Gu a TEN 
EXTENDED PRINT 
SACOM. DATA COLLECTION 
PEER MULTIPOINT 
USM KUENT 


RON TTC KIENT CALL 
USON_KIENT 

SPOGL QUEUE MGMT KI ENT 
LAST WALIO ENTRY 


LENGTH OF XFER TABLE CBYTES) 
LENGTH OF XFER TABLE CUORDS) 


G2? 


ADORES OF NEXT REQUEST BLOCK 1 

KR SAVE AREA 1 

X92 SAVE AREA OF \ 

ARR SAVE AREA u 

TAR SAVE AREA t 

PMR SAVE AREA 04) i 

PSR SAVE AREA i 

RiQ SAVE AREA 

INLINE PARM 1 ts woo 

INLINE PARR 2 

TNL IME PAR 3 | ‘0001 

INLINE PARM 4 6 

LENGTH OF REQUEST BLOCK REG SAVE AREA 

UDRK AREA START 9000 
o0G3 

TOTAL LENGTH OF REQUEST BLOCK 000 


12 


RG § 88 Sseegies 


BEEBE SSIGS SIG GE SIF CRIS SSIS © Bf be ew elie & ele = 
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t f 
ERR_LOC OBJECT CODE ——_ADOR._ STMT SOURCE STATEMENT J LEAR L0C OBJECT CODE ADDR STINT "Sain 
00720000 02} 1262 * SCAEQ oregon | OZ) 9001 1316 SOW 
LQGZ RAMAAAAARAAARAAARAAAAAA ALAA EAR AER AER AAA ERE REREAD j siead au 
1264 * : q 
0 1265 * SYSTER . OF 0081 1319 Shaw 
1266 * “ 001 1320 Som 
1267 * COMMUNICATION AREA * | 1321 
04 1268 * . 0 i? * 
L2H9 RRMAMARAAAMMARARERERARAAAAR RRA EGRET ERERRIERR EERE IE RIR, i Lasalaie 
fl ee 
05) 0000 1271 SCASYS EQU 0 . BEGINNING OF SYSTEM Conn | 03 1325 * GHP 
1272 * i | 1325 tonne 
: 0001 1273 SCADORIC EQU  SCASYS+1 . ABNORMAL TERMINATION ERROR TIC i | Bad THT SWS 
06 1274 * . QUILL BE SEEN IN OUP AREA ONLY) | 06) 9001 1328 SOAS 
1275 * i oon] 1379 Stew 
CUPP S¥C CLEFT WAND ADORESS) OOC1 1330 SOW 
0D TRANSTENT EXIT SWC CLEFT HAND? 0 OOE2 1331 SCana 
001 1332 SOWD 
1 
0S} RIN STORAGE SIZE IN 2K BLOCKS 08 oo10 1736 SCRDP 
X"80" - 256K MAIN STORAGE 187) GOR 1335. SCAND 
X*@0" - L2OK MAIN STORAGE ‘O05A 1336 SON 
"30" - 96K MAIN STORAGE 09 337 * 
-___X"20"_- 64 MAIN STORAGE O11 1338 SCACS 
0018 1285 SCAMS48K EQU X‘18" .  _X°18" - 48K MAIN STORAGE 9004 1339 SOACS 
0010 1286 SCAMS32K EQU  K'}0" . X"10" - 32K MAIN STORAGE 10 13ap * 
1287 * 0012 1341 SOROC 
0008 1288 SCA2KBAD EQU SCATSIZE+2 2 — ADORESS OF GAD 2K BLOCKS SAWE 9080 1342 SOA 
0000 1289 SCA2KOK —QU x"0000° . MD BAD 2K BLOCKS 1 13 * 
1290 * 0020 1344 SOAS 
OOOA 1291 SCADSPIa EQU  SCAXKBAD+2 92 = ~=—«SSPOOL INTERCEPT STORAGE AGDRESS id 1385 SWS 
1292 * a i * 
0008 1293 SCADCFSZ EQU SCADSPIa+1 1 ——CONFIGURATION RECORD SECTORS | 00081347 SOO 
14 * 
O00C 1295 SCA#ZKMS EQU SCADCFS2+1 1  MIMBER OF AVAILBLE 2K BLOCKS rs 3 0004 1349 SCA 
1296 * CARIN STORAGE SIZE MINUS NUMBER 1390" 
1297 * OF BAD 2K BLOCKS) OO? 1ST Sow 
1298 * 14 1382 * 
0000 1299 SCARS "2K EQU  SCAFZ2KMS+1 1 2K BLOCKS OF USER STORAGE 153° 
1300 * 0001 1356 SCANS 
OOOE 1301 SCAMAKRG EQU SCAMS#2K+1 1 © SUAPPABLE TASK REGION SIZE ie Ls * 
1302 * 0013 1356 SOANCE 
OOOF 1303 SCASDISK EQU SCATAMRG+1 1  +~DISK CONFIGURATION oon 1357 Sowa 
0080 1304 SCAMDUAL EQU x ‘B0" .  TULTIPLE SPINDLE DISK ier} 16 0080 1358 SONAL 
0080 1305 SCAZSPIN EQU  X‘B0° -__2 SPINDLE DISK 187] 0020 1359 SOArUD 
0020 1306 SCASSPIN EQU  X‘20° ~ 3 SPINDLE DISK 1871 ‘0010 1360 SOwEF 
0010 1307 SCASSPIN EGU X‘10" . 4 SPINDLE DISK {R74 17] 0008 1361 SCAN 
0040 1308 SCADKCFG EQU  x‘40° . DISK CONFIG FLAG 193! 0004 1362 SCANE 
1309 * 1363 * 
rte yea * 
1s * 
1312 * THE FOLLOWING DISK CONFIGURATION FLAGS ARE VALIO OMLY FOR A SMALL 002 1366 SCR 
1313 * CAPACITY DISK, ONE WITH 60 SECTORS PER TRACK. * 19 9001 1367 SoAner 
0081 1315 SCADSKS EQ X81" DISK STATUS BITS OOls 1369 SCAN 
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F28 


D1 


WSTT C001 OO010 3956 3957 3958 3959 3960 


sen CN vie 7 
MASK FOR BIT 6 - 
MASK FOR BIT 7 - 


0002 3089 BIT6 EQU X*02" 

0001 3090 BIT? EQ X‘0l' 
3091 * 

0008 3092 TARX EQU  X'08" TAR TRANSLATED 

0004 3093 OP2 EQU  X‘04" OP2 TRANSLATED 

0002 3094 OP1 EQU X‘02" OP1_ TRANSLATED 

0000 3095 PRV EQU X*00" 


TASK PRIVELEDGED 
TASK NOT PRIVELEDGED 
DISPATCHING DISABLED 


0001 3096 NPRV EQU. Xx'‘O1' 
0080 3097 DSABL EQU X‘8C' 
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01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODF ADDR ST 
00740000 0001 1316 SCANSI2 EQU X‘01' . X01 = DISK FILE SIZE 02 0080 13 
Ra 1317_-* 0 - 8 MEGABYTE DISK 0020 13 
ak 1318 * 1-12 MEGABYTE DISK 0040 13 
® 0081 1319 SCAM27NG EQU X'81' ‘ 27 MEGABYTE DISK 03 0010 13 
x 0001 1320 SCANI3MG EQU 1 13__ MEGABYTE DISK 0008.13 
x 0000 1321 SCAMIONG EQU 0 ~ 8 MEGABYTE DISK 0004 13 
* 1322 * 04 0002 13 
x 1323 RERRAKKRERARARARAAAKRAARAKAKHKRARAARKKRRAKAAAAKERRARARARRARAERA ARR RIERA RRA IIR 0001 13 
1324 * THE FOLLOWING DISK CONFIGURATION FLAGS ARE VALID ONLY FOR A LARGE * B 
1325 * CAPACITY DISK, ONE WITH 64 SECTORS PER TRACK. ® 05 0015 13 
1326 RRAKRKKAAKRKRAKRARRARRARAARRAAAAK RA AARAKEAARARA AAAI RE RAER RRR REIT RII 0080 13 
0040 1327 SCAN62PC EQU  K*40° LARGE CAPACITY DISK 0040 13 
y 9001 1328 SCAMOSNG EQU  X‘OL' 65 MEGABYTE DISK 06 0020 13 
0041 1329 SCAYO65M EQU  X‘4l' 65 MEGABYTE DISK 0010 13 
00C1 1330 SCAMI30M EQU  X‘C1* 130 MEGABYTE DISK 0008 13 
OOE1 1331 SCAMI95M EQU  X‘El' 195 MEGABYTE DISK 07 0004 13 
00D1 1332 SCANZ60M EQU  X‘D1' 260 MEGABYTE DISK 0002 13 
ai 1333 * 0001 13: 
0010 1334 SCADPIND EQU SCASDISK+] 1 — SYSTEM/DUMP INDICATOR 08 13 
OAS 1335 SCAMDPOK EQU  X'A5' «VALID DUMP 0016 13 
005A 1336 SCAYDPUS EQU  K'SA‘ . VALID DUMP - HAS BEEN ACCESSED 0017 13 
1337 * 09} 13 
0011 1338 SCACSIZE EQU SCADPIND+] 1 CONTROL STORAGE CONFIGURATION 0018 13 
ea 0004 1339 SCACSIOK EQU  X‘04" » _K'04* 16K CONTROL STORAGE 0080 13 
1340 * 10 0040 136 
0012 1341 SCADCFG] EQU  SCACSIZE+1 1 SPOOL AND JOBQ INDICATORS 0020 135 
0080 1342 SCAMAUTO EGU x'80° X'80° - AUTO WRITER SUPPORTED 0010 13 
1343 * EQU X‘40" X'04' ~ RESERVED 1R8I ll 0008 13 
0020 1344 SCAMSPGP EQU  X'20' X'20' - SPOOL ALL PRINTERS |R8I 0004 135 
0010 1345 SCANSACT EQU X"10° X10" - SPOOL IS ACTIVE 0002 135 
1346 * (SUPPORTED NOT CANCELLED) 12 0001 14¢ 
0008 1347 SCAMCRAN EQU  X‘03' X'08' - SPOOL COMPRESS RUN 14 
1348 * CREFORMAT SPOOL FILE AT IPL) 14 
0004 1349 SCAMJQHD EQU X'04" X'04* - HOLD JOB QUEUE 13 14¢ 
1350 * (D0 NOT START AT IPL) 14¢ 
0002 1351 SCAUQFM EQU  x*02" ._X'02* = REFORMAT JOBQ AT [PL 1a 
1352 * : IF NOT IPL, INPUT JOB QUEUE 14 140 
1353 * .__HAS BEEN POSTED 140 
0001 1354 SCAMSPB EQU  X‘O1" . X‘Ol’ ~ ALLOCATE FILE ON ‘B° OO1A 14¢ 
1355 * 15 o01c 140 
0013 1356 SCADCFG2 EQU SCADCFGI+1 1 SSP CONFIGURATION OPTIONS 141 
0080 1357 SCAMCNAT EQU X*80° > COMMAND LANGUAGE OO1E 141 
0040 1358 SCAMPWSF EQU X'40' . PASSWORD SECURITY 16 0020 141 
0020 1359 SCATJOBQ EQU  x'20' ; 141 
0010 1360 SCANSPOL EQU : 0022 141 
0008 1361 SCAMMDMX EQU DISPLAY STATION DM TRANSIENT 17 0023 141 
0004 1362 SCAMMONR EQU DISPLAY STATION DM RESIDENT 141 
* 0025 141 
, THEN RESIDENT/TRANSIENT 18 0027 141 
" 1365 * 4 VERSION OF DSDM SELECTED. 141 
x 0002 1366 SCATKNSG EQU X02" KEEP INFO. MESSAGES AT EOJ (R4I 0029 142 
" 0001 1367 SCAMCMOE EQU  xX‘Ol' COMMAND LANGUAGE IS ENGLISH 19 0028 142 
* 1368 * 0020 142 
0014 1369 SCADCFG3 EQU  SCADCFG2+1 1 COMMUNICATIONS FEATURES  1IR3! 142 
0 
CHANGE ACTIVITY SUMMARY - VO7/23/79 CHANGE FLAG f 


P10304 SSCP 03 O7/IE 


MODULE NAME FLAG REFERENCE 


02) 08023 = PIO310 SS CP 03 O7/1E 


aSVAT 53 


P10316 OM 03 09/07 


a0001 47 4672 4673 4674 4675 4676 4703 4708 


471 412 4713 44 P10317 SR 03 09/22 


aa093 = P10342 TP SN 03 01/03 


4643 4645 46.46 4651 


_. 04 03/30 


UNE 9190 Fone WU INUEA BUFFER REGISTER 3188 
15 0001 3139 QUE1 FQU 1 01230000 [5] 0836 6C 00 IC 12 
0002 3140 QUE2 = EQU 2 01240000 083A 7D FF IC 


0001 3141 TAB] FQU 1 0830 F2 81 81 3191 


0002 3142 TAB2 = EQU 2 01260000 16} 


16 


0000 3143 DEAHIGH EQU 0 ; 01270000 3192 
0001 3144 DEASIZE EQU  DEAHIGH+1 01280000 3193 
1? 0002 3145 DEANEXT EQU  DEASIZE+1 01290000 }7 3194 
OOFF 3146 DETACH QU X'FF' DETACH REQUEST 01300000 0840 BBO? 10 3195 


0005 3147 SNASIZ EQU 5 SNA SIZE OF 10K 90093 01301000 0843 6C 01 19 10 3196 
18 OOOF 3148 DTSVREG EQU  TCBRSE-TCBARSE OFFSET OF SAVE AREA 01302000 [8] 0847 SF 01 1B 1B 3197 
0011 3149 DTSVARR EQU DTSVREG+2 OFFSET OF SAVE ARR 01303000 0848 B3 40 27 3198 


0012 3150 DTSVSIZ EQU  DTSVARR+1 OFFSET OF SAVED LENGTH 084E F2 10 20 


19) 0013 3151 DTSVLEN EQU  DTSVSI2+1 LENGTH OF SAVE ELENENT 01305000 19} 


0851 68 01 1B 16 3200 
0855 68 02 1A 16 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ADDR STMT 
0080 1370 SCANBSCA EQU X‘80" 002F 1424 
0020 1371 SCANSRJE EQU X‘20' 1425 


0040 1372 SCAMMRJE EQU  X*40° : MRJE 0031 1426 
03 0010 1373 SCAMSNA EQU X‘l0' . SNA 3 0033 1427 
0008 1374 SCAMRWS EQU X‘08' . RWS 0035 1428 
0004 1375 SCAMICS EQU X‘04" 3 SSP/ICF IR4I 1429 
04 0002 1376 SCAMLCAF EQU  X‘02' ‘ MLCA 1R6| 04 0038 1430 
LJ 0001 1377 SCAMOTTO EQU§ X‘O1' : AUTOCALL IR6I 003B 1431 
® 1378 * 003E 1432 
s 05} 0015 1379 SCAMBSV EQU SCADCFG3+1 1 SSP CONFIGURATION OPTIONS 05) 0041 1433 
i 0080 1380 SCANMD32 EQU  X'80' X'80' - SINGLE PROGRAM MODE 
0040 1381 SCANSMFM EQU = X'40' . X'40° - MLCA SMF ACTIVE IR6] 
06) 0020 1382 SCANSMF EQU X'‘20' : K'20' ~ SMF ACTIVE IR4| YO 
0010 1383 SCANCLOG EQU  X'10' : X'10' - CONSOLE SYSLOG POSTED 
0008 1384 SCAMSFLG EQU  X'08' . X'08" - SECURITY 
07 0004 1385 SCAMCFGS EQU X‘04" : X'04" - BUILD CONFIG RECORDS D7 


0002 1386 SCAMPIE EQU  X‘02' 

0001 1387 SCAMDEAD EQU  X‘O1" 
1388 * 

0016 1389 SCADREL# EQU  SCANBS¥+1 1 SYSTEM RELEASE LEVEL 

0017 1390 SCADMOD* EQU SCADREL#+1 = 1 SYSTEM MODIFICATION LEVEL 
1391 * 

0018 1392 SCADCNTR EQU — SCADMOD#+1 


X'02' - PID MODEL INDICATOR 
X'O1* - DEDICATED EXECUTION 


1 


COMMUNICATIONS TRACE INDICATORS 


0080 1393 SCAML4TX EQU. X'80" : EXTENDED TRACE LINE4 1R6| 
10 0040 1394 SCAML3TX EQU  X'40' ; EXTENDED TRACE LINE3 1R61 0 
0020 1395 SCAML2TX EQU  X'20' ; EXTENDED TRACE LINE2 IR4] 
0010 1396 SCAMLITX EQU  X"10° : EXTENDED TRACE LINE1 iR4| 
f ll 0008 1397 SCAML4TR EQU X'08' : TRACE COMMUNICATIONS LINE 4 1R6| 1 
0004 1398 SCAML3TR EQU  X'04' : TRACE COMMUNICATIONS LINE 3 |R61 
0002 1399 SCAML2TR EQU  X‘02' i TRACE COMMUNICATIONS LINE 2 [R31 
12 0001 1400 SCAMLITR EQU X'Ol' ; TRACE COMMUNICATIONS LINE 1 2 0052 1454 
1401 ® 1455 
eee 1402 * THE FOLLOWING FIELDS DESCRIBE THE DISK ADDRESS (SS) AND 0053 1456 
13 1403 * SIZE (SECTORS) OF VARIOUS WORK AREAS ON THE DISK. WHERE 3} 1457 
1404 * POSSIBLE THE SS HAS BEEN DEFINED AS A 2 BYTE FIELD. THESE a 0055 1458 
1405 * FIELDS ARE ORDER DEPENDENT AND DESCRIBE A ONE-TO-ONE i 1459 
14 1406 * RELATIONSHIP WITH THE SYSTEM CONFIGURATION RECORD, PART-1. 4 0057 1460 
1407 * 0059 1461 
OO1A 1408 SCASSTWA EQU  SCADCNTR+2 2 SS OF TASK WORK AREA 0059 1462 
15 OO1C 1409 SCATWASZ EQU SCASSTWA+2 2 — SIZE OF TASK WORK AREA 5 1463 
1410 * 005A 1464 
OOIE 1411 SCAFVTOC EQU  SCATWAS2+2 2 ~~ «SECTOR ADDRESS OF DISK VTOC OOEO 1465 
16 0020 1412 SCAFVTON EQU SCAFVTOC+2 2 SIZE OF DISK VTOC 6 0010 1466 
1413 * 1467 
0022 1414 SCAIVTOC EQU  SCAFVTON+2 2 ‘SS OF DISKETTE VTOC WORK AREA 005B 1468 
17 0023 1415 SCAIVTON EQU SCAIVTOC+l 1 SIZE OF DISKETTE VTOC WORK AREA 7 0080 1469 
1416 * 0040 1470 
0025 1417 SCASIOSS EQU SCAIVTON+2 SS OF SIO TABLE DIRECTORY 0020 1471 
18 0027 1418 SCALOGSS EQU SCASIOSS+2 2 — SS OF ERROR TABLE DIRECTORY 8 0010 1472 
1419 * 0008 1473 
0029 1420 SCADSSMS EQU  SCALOGSS+2 2 +=~=—S—«SS OF MAIN STORAGE DUNP AREA 0004 1474 
19 0028 1421 SCADSSCS EQU SCADSSMS+2 2 — SS OF CONTROL STORAGE DUMP AREA 9 0002 1475 
0020 1422 SCADSSIO EQU SCADSSCS+2 2 —_SS OF 1/0 PROCESSOR DUMP AREA 0001 1476 
1423 * 1477 
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TBM 


P10304_ SSCP 03 07/18/77 TWB 47E 29 JANUARY 82 PRO‘ 


COPYRIGHT IBM CORP. 19 


P10310 CP 03 07/18/77 TWB 47E 


P10316 DM 03 09/07/77 HDG 475 


P10317 SR 03 09/22/77 MLA 48L 


P10342 SN 03 01/03/78 ACM 486 


oe Vw tt NA RE LE Dh ee ted aS ert. hed Se rR aac Lada ama sect shock 


01220000 3188 *** END OF EXPANSION ** 
01230000 [5] 0836 6C 00 1C 12 3189 MVC TCBAARR-1¢1, TCB1), RBSLEN*$LDDSS-2¢,RB2) SET FLAG 01470100 | 15 


08B2 AC 00 2A 57 


01240000 083A 70 FF 1C 3190 CLI TCB@ARR-1¢, TCB1), DETACH DETACH REQUEST ? 01470200 
01250000 0830 F2 81 81 3191 JE DT000015 YES, BYPASS CALC. 01470300 
01260000 }6 16 
01270000 3192 * 01470400 08B6 6D 00 26 2A 
01280000 3193 * CALCULATE THE PROGRAM SIZE IN #2K BLOCKS 01470500 O8BA F2 02 04 3242 
01290000 }7; 3194 .* 01470600 | 17 
01300000 0840 BB 07 10 3195 SBF RBSLEN*S$ATLOADC,RB2),X'07' ENSURE ON 8 BYTE BOUNDARY 01470700 0880 6C 00 26 2A 
01301000 0843 6C 01 19 10 TCBAXR1(2, TCB1), RBSLEN*SATLOADC, RBZ) LOAD ADDR. 3244» 
01302000 0847 5F 01 1B 1B SLC TCBAXR2(2, TCB1), TCBAXR2(, TCB1) ZERO OUT LINK a 18 
01303000 0848 BS 40 27 TBN _RBSLEN+SATFI.AG1(, RBZ), SATCOMON PROG. SUPPORT COMMON ? 
01304000 O84E F2 10 20 3199 JT pT000011 YES, ASSUME LINK OF 0 01471100 
01305000 19 19} 08C1 7C 00 24 

0851 68 O1 1B 16 3200 MZN  TCBAXR2(, TCB1), RBSLEN*$LODLINK-1¢,RB2) MOVE IN a 01471200 08C4 7C 00 1D 3249 

0855 68 02 1A 16 3201 MNZ — TCBAXR2-1, TCBL), RBSLEN*SLDDLINK-1¢,RB2) MOVE IN a 01471300 O8C7 35 02 0200 

v0 
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ERR LOC OBJECT CODE ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT ADDR STMT | 


002F 1424 SCACONFG EQU OO5C 1478 | 
1425 * 

0031 1426 SCASHIST EQU  SCACONFG+2 2 START SS OF HISTORY FILE 

0033 1427 SCAHFSIZ EQU SCASHIST#+2 2 SIZE OF HISTORY FILE 


0035 1428 SCAHFCUR EQU  SCAHFSIZ+2 2 SS OF CURRENT HISTORY FILE ENTRY 


1429 * 
0038 1430 SCASMSG1 EQU SCAHFCUR+3 3 SS-1ST LVL SSP MSG MEMB C#4NSG1) 
003B 1431 SCASHMSG EQU  SCASMSG1+3 3 SS-SSP HEADINGS NSG MEMBC##N"SG2) 


OO3E 1432 SCASWNSG EQU SCASHNSG+3 = 3 SS-SSP WK STATN MSG MEMBC##NSG9) 
0041 1433 SCASMSG2 EQU SCASWISG+3 3 SS-2ND LVL SSP MSG MEMB (##NSG4) 


SCADSSIO+2 2 SS OF CONFIGURATION RECORD 


5) 05} 


1434 * 1488 ' 
0044 1435 SCADSSJQ EQU  SCASMSG2+3°--3~—=—S« SS OF INPUT JOB QUEUE FILE 0050 1489 5 
1436 * 06 O05E 1490 § 
0047 1437 SCADSSPR EQU SCADSSJQ+3 3 ~——SS._OF SPOOL PRIMARY FILE —_|R8| OO5F 1491 5 
1438 * BEFORE SPOOL 1S INITIALIZED DURING IPL THIS FIELD WILL O05F 1492 S 
1439 * BE INITIALIZED TO ONE OF THE FOLLOWING: 07 1493 * 
1440 * X'000000 ' CANCEL SPOOL. 
1441 * X‘FFO000 ‘ DELETE SPOOL FILE AND CANCEL SPOOL. 
1442 * X‘OON###’ WHERE: N= SPOOL FILE SEGMENT SIZE (BLOCKS-1) 08 
1443 * sd = NUMBER OF SPOOL FILE SEGMENTS 
1444 -® 
0049 1445 SCAUSERA EQU SCADSSPR+2 2 —§ START ADDRESS OF USER STORAGE 09 
004B 1446 SCADSBFP EQU  SCAUSERA*2 2 ADDRESS OF SPOOL BUFFER POOL 
1447 * 
004) 1448 SCADMERP EQU SCADSBFP+2 2 ADDRESS OF MSP ERROR SAVE AREA 10} 
004D 1449 SCADCPKa EQU — SCADMERP 2 ___ ADDRESS OF C.P. DISKETTE 10B 
1450 * 
OO4F 1451 SCADLBF1 EQU SCADMERP+2 2 ADDRESS OF LIBRARY FORMAT-1 11 
1452 * 
0051 1453 SCADFIST EQU  SCADLBF1+2 2 FIRST ACTIVE FORMAT-1 ON CHAIN 
0052 1454 SCAD*TUB EQU SCADFIST+1 1 NUMBER OF LOCAL CONFIG. TUBS 12 
1455 * 
0053 1456 SCADBSCT EQU SCAD*TUB+1 1 | NUMBER OF USERS OF BSC DN 0068 1510 $ 
1457 * 13 1511 * 
\ 0055 1458 SCADVICE EQU  SCADBSCT+2 2 —_ADDRESS OF DEVICE ALLOC TABLE 0060 1512 S 
" 1459 * 0068 1513 § 
4 0057 1460 SCADSEUA EQU SCADVICE*2 2 — ADDRESS SEU MEMBER CHAIN 14 1514 * 
0059 1461 SCADSEUQ EQU SCADSEUQ+2 2 — SEU QUEUE HEADER 006D 1515 S 


0059 1462 SCATPLW6 EQU — SCADSEUQ 2 TPL WORK AREA OO6F 1516 S 

5 1463 * 15 1517 * 
005A 1464 SCADSLOG EQU SCADSEUQ+1 1 SYSLOG ASSIGNED INDICATOR 1518 * 

O0E0 1465 SCAMPRT EQU X'EO' 7 SYSLOG ASSIGNED TO PRINTER 1519 * 

6 0010 1466 SCAMCRT EQU X'10° ; SYSLOG ASSIGNED TO WORK STATION 16 0070 1520 § 
1467 * 0080 1521 5 

005B 1468 SCASYS1! EQU SCADSLOG+i 1 SYSTEM CONFIGURATION BYTE 5 0040 1522 § 

7 0080 1469 SCAHFERR EQU X'80' ‘ X'80' - ERROR IN HISTORY FILE 7 0020 1523 § 
0040 1470 SCAMIPLC EQU  X'40' : X'40' - IPL~PROCESSING COMPLETE 0010 1524 § 

X‘20" - TPL-OVERRIDE RECEIVED 0008 1525 § 


0010 1472 SCANIPL EQU ‘ X'10' - [PL-SIGN ON COMPLETE 0004 1526 $ 
0008 1473 SCAMRBLD EQU§ X' : X'08" - [PL-FILE REBUILD 0002 1527 SI 
0004 1474 SCAMEJCT EQU » X'04" - SYSLOG EJECT AT E0J 0001 1528 S$ 
0002 1475 SCAMCLOK EQU ; X'02' - CONFIG RECORD LOCK 1|R3| 1529 * 
0001 1476 SCAMPREP EQU : X'O1' - PREPARE REQUEST ISSUED 0071 1530 SI 

1477 * 0080 1531 Si 
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LYC7 - 1364-7 IBM SYSTEM/34 SYSTEM SUPPORT PROGRAM PRODUCT 


29 JANUARY 82 PROGNO 5726-SS1 REL: ROS-M00 
COPYRIGHT [BM CORP. 1978 LICENSED MATERIAL - PROPERTY OF IBN 


is} VORF TL 9 US ILI) Jr UIVAN IS NU, NUL TN TCRIILRAT LUN O14/4 700 


092C 6C 00 25 04 
3236 MVC JCBORGS2(1, JCB2), JCBDJBRGC, JCB2) RESET JOB REG. SIZE 0930 BD 00 00 
3237 * 01474900 | 15] 0933 F2 01 04 
3238 * SET TCB@INL3= LARGER OF PROG. SIZE REQUIRED TO EXECUTE, OR 01475000 


O8B2 AC 00 2A 57 


01470100 | 15} 


01470200 


01470300 3239 * THE STEP REGION 01475100 0936 5E 00 25 27 ; 

16 3240 * 01475200 | 161 093A 5D 00 25 24 : 
01470400 08B6 6D 00 26 2A 3241 DT000014 CLC TCB@INL3(1, TCB1), JCBDRGSZ(, JCB2) STEP REG. > 01475300 093E F2 04 04 ‘ 
01470500 O8BA F2 02 04 3242 UNL DT000015 NO, STEP REG. NOT > 01475400 


01470600 | 17 0941 5C 00 24 25 3 
01470700 O8BD 6C 00 26 2A 3243 MVC TCBAINL3(1, TCB1), JCBDRGSZ(, JCB2) MOVE IN LARGER SIZE 01475500 0945 BD 00 00 3 
01470800 3244 * 0948 B5 02 01 3 
01470900 | 18 3245 * CALUCLATE THE MAXIMUM SWAPPABLE ACTIVE REGION SIZE NOT INCLUDING 094B CO 01 0923 3 


01471000 3246 * THIS TASK. STORE VALUE IN TCB@INL1 

01471100 3247 * 094F C2 02 0000 
19} 08C1 7C 00 24 3248 0T000015 MI TCBAINL1¢, TCB1),0 ZERO OUT MAX. REGION AREA 0953 B8 80 77 

01471200 08C4 7C 00 1D 3249 ‘WI TCBAARR(, TCB1), 0 2ERO OUT NO. TASK'S ACTIVE 0956 F2 10 13 


08C7 35 02 0200 3250 L NUACPTCB+TCBCHAIN, TCB2 XR2-> FIRST USER TCB 01540000 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR 
OSC 1478 SCASYS2 EQU  SCASYS1+1 1 SYSTEM CONFIGURATION BYTE 6 0040 
0080 1479 SCAYATBS EQU  X'80' F X'80' - COMM TASK BEING ASSIGNED 0020_ 
0040 1480 SCAMCCHK EQU X*40° : X40" - MASTER CONSOLE CHECK 0010" 
03 0020 1481 SCAYHLDP EQU  X'20' ‘ X'20' ~ HIGH LEVEL DEDICATION 03 0008 | 
0010 1482 SCAMIPUP EQU  X'10' ; X'10' - IPL - STARTUP PROC 1R4| 0004 
0008 1483 SCAMDATE EQU  X*OS" : X08" - SYSTEM DATE RECEIVED 0002 | 
04 0004 1484 SCAMWTC EQU  X'04' , X04" - DDMMYY DATE WORLD TRADE 04 0001 | 
0C02 1485 SCAMDOM EQU  X'02' ; X'02' - MMDDYY DATE DOMESTIC 
0007 1486 SCAMYYD EQU X‘Oi‘ X01" - YYMMOD DATE SPECIAL 0073 | 
05 1487 * 05 0076 1 
1488 * SYSTEM IPL DATE - IN PACKED FORMAT (YY MM DD) 
005D 1489 SCADYEAR EQU  SCASYS2+1 1 SYSTEM YEAR 0077 1 
06 OSE 1490 SCADMNTH EQU  SCADYEAR+1 SYSTEM MONTH 06 
OOSF 1491 SCADDAY EQU — SCADMNTH+) SYSTEN DAY 0078 1 
T OO5F 1492 SCADDATE EGU  SCADDAY SYSTEN DATE (YMO) 0080 1 
07 1493 * 07 0040 1 
0060 1494 SCADCTUT EQU — SCADDATE+1 COUNT OF USER TASKS IN SYSTEM 0020 1 
1495 * 1 
1) 08) 0066 1496 SCARDVOL EQU SCADCTUT+6 6 — DISKETTE VOLUME LABEL 08 1 
1497.® 1 
0067 1498 SCARDFNT EQU  SCARDVOL+] 1 DISKETTE PHYSICAL FORMAT 1 
09 0080 1499 SCAMIPLA EQU  X‘80° : X'80' - IPL AUTOLOADER FLAG 1R31 09 1 
1500 * O - IPL DISKETTE, AUTO-YES 1 
1501 * 1 - IPL DISKETTE, AUTO-NO 0079 1 
0040 1502 SCAM2MFM EQU X'40' : X'40' - 2 SIDED - MFM RECORDING 0080 1 
0020 1503 SCANZFM EQU  X'20' ; X'20' ~ 2 SIDED - FM RECORDING 0040 1 
0010 1504 SCAMIFN EQU x'10° : X'10° ~ 1 SIDED - FM RECORDING 1 
0008 1505 SCAM1024 EQU X'08' ; X'08" - RECORD SIZE = 1024 1 
0004 1506 SCANO512 EQU  X'04' : X'04' - RECORD SIZE = 512 1 
0002 1507 SCAND256 EQU X‘02" : X'02° ~ RECORD SIZE = 256 1 
0001 1508 SCAN0128 EQU xX'O1' : X'O1' - RECORD SIZE = 128 1 
1509 * 1 
0068 1510 SCADKLRC EQU  SCARDFNT+4 4 ‘DISKETTE VOLUME LRC CHARACTERS 1 
13 1511 * 13) 007A 1 
0060 1512 SCAIPLUK EQU — SCADCTUT : IPL WORK AREA (START) 1 
0068 1513 SCAIPLWT EQU  SCADKLRC ; TPL WORK AREA CEND) 0078 1 
14 1514 * 14 0070 1 
0060 1515 SCADMTUB EQU SCADKLRC+2 2 “4STER CONSOLE TUB ADDRESS OO7E 1 
OO6F 1516 SCADPTUB EQU SCADNTUB+2 2 ‘SYSTEM PRINTER TUB ADDRESS OO7F 1 
15 1517 ® 15 0080 1 
1518 ® COMMAND PROCESSOR DISPLACEMENTS AND BIT MASKS 0082 1 
1519 * 1 
16 0070 1520 SCADCPS1 EQU SCADPTUBS1 1 SWITCH BYTE ONE 16 0084 1 
0080 1521 SCAMCPL EQU X'80" . STOP COMPLETE MESSAGE SENT 1 
0040 1522 SCAMALL EQU  x"40" . NO JOBS CAN BE INITIATED 0085 1 
7 0020 1523 SCAMSJE EQU xX'20' . SPOOL WRITER/JOBQ EOJ REQUIRED Vv 008A 1 
0010 1524 SCAMMSE EQU  X'l0" ._WSDM SEND EO) COMPLETION CODE 1 
0008 1525 SCAYSST EQU  X‘08" . SPOOL WRITER HAS BEEN STARTED 0088 1 
18 0004 1526 SCAMJQS EQU x'04" . JOBQ HAS BEEN STARTED 18 1 
0002 1527 SCAMSEC EQU  X'‘02' «SECURITY IS ACTIVE 008C 1 
0001 1528 SCAMERP EQU  X‘O1" . CALL 1/0 ERP TRANSIENT 0080 1 
19 1529 * 19 0040 1 
0071 1530 SCADCPS2 EQU SCADCPS1+1 SWITCH BYTE TWO 1 
0080 1531 SCAMKEYS EQU  xX*80" . KEY SORT ALL FILES AT SHUT DOWN 0010 1 
0 20 
F32 
#SVAU 12/08/81 15:51 4500 SYMBOL VERSION 
1913 SYMBO! 
Aaa 
RARAAAAARA 
uaaAaAATAaA 


Idd bcd 
01474600 
01474700 
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01 


02 


NED 


03 


R4| 


ADE 04 


Ne 10 
11 
12 
13 
14 


15 


16 


V7 


19 


092C 6C 00 25 04 
0930 BD 00 00 
0933 F2 01 04 


0936 5E 00 25 27 
093A 5D 00 25 24 
O93E F2 04 04 


0941 5C 00 24 25 
0945 BD 00 00 
0948 B5 02 01 
094B CO 01 0923 


O94F C2 02 0000 
0953 B8 80 77 
0956 F2 10 13 


ERR LOC OBJECT CODE 


FEI 


3279 
3280 
3281 
3282 


3283 


Or 


JF 


MVC 
CLI 
SNE 


ALC 


3284 0T000042 CLC 


3285 


3286 


JNH 


NVC 


3287 DT000055 CLI 


3290 DT000060 LA 
3291 DT000070 TBN 


3292 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


0008 1535 SCAMSBL EQU  X'08' « REBUILD ~ EXECUTE REBUILD 

0004 1536 SCAMDELE EQU  X‘04' ~ REBUILD ~- DELETE FILES IN ERROR 
0002 1537 SCANTOLD EQU  X'02' « REBUILD - EXAMINE OLD FILES ALSO 
0001 1538 SCANTELL EQU xX‘O1' . REBUILD ~ DISPLAY LABLES IN ERROR 


1539 * 
0073 1540 SCADMGOI EQU 


JT 


ADDR STMT SOURCE STATEMENT 


0040 1532 SCAMCOUT EQU 
0020 1533 SCAMHELP EQU 
0010 1534 SCANCPAF EQU 


0076 1541 SCADSECa EQU 


1542 * 
0077 1543 SCADABCT EQU SCADSECa+1 1 AUTO-BUFFER DISABLE COUNT 1R3] 
1544 * 
0078 1545 SCADXTRA EQU  SCADABCT+1 1 EXTENDED TRACE INDICATORS IR4| 
0080 1546 SCAMXTRA EQU X'80" « EXTENDED TRACE ACTIVE 


0040 1547 SCAMLOTX EQU 


0020 1548 SCAMLOTR EQU 


EQU 
EQU 
EQU 


0079 1555 SCADMCFG EQU 


0080 1556 SCANDREC EQU 
0040 1557 SCASPARK EQU 


1558 * 
1559 * 
1560 * 


1561 * 
1562 * 
1563 * 


1564 * 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


007A 1565 SCADANZK EQU 


1566 * 


007B 1567 SCADMCTR EQU 


007D 1568 SCADSCIM EQU  SCADMCTR+2 
OO7E 1569 SCADMID® EQU  SCADSCIN+1 


OO7F 1570 SCADRSC2 EQU 
0080 1571 SCADSECZ EQU 


0082 1572 SCADCP\WA EQU SCADSECZ+2 


PMOL Ng TSE 7 gp T VOTUMUIV VN TRUIT ovr TAK PUT os VIN MAA ee ee cE re ee 


01000055 YES, NO VALID REGION Saa093 


TCBAINL2¢1, TCB1), PUSHINDC, PSH2) MOVE IN SIZE O9AC 35 01 0141 
PUSHOCH-1¢, PSH2), 0 LAST ON QUEUE ? 


T000042 NO, IT [S NOT 15 


09B0 CO 87 0976 


TCBAINL2C1, TCB1), TCBAINL4¢, TCB1) ADD IN FACTOR 
TCBAINL2¢1, TCB1), TCBAINL1¢, TCB1) MAX. ACTIVE ? 16 
07000055 NO, NOT GREATER 


09B4 7C 00 25 
0987 5C 00 19 2D 
09BB 5C 00 1C 18 
OOBF 7C 00 18 

09C2 5E 01 19 19 
09C6 5E 01 19 19 
O9CA 5E 01 19 19 
OSCE 4E 00 25 OE7F 
0903 4F 01 19 OOAA 
0908 CO 84 O9CE 


TCBAINL1C1,1CB1), TCBAINL2¢, TCB1) MAKE NEW MAX ACTIVE 17 
PUSHOCH-1¢, PSH2),0 ANY MORE ON QUEUE ? aa093 
PUSHOCH(, PSH2), PSH2 POINT TO NEXT 

07000040 YES, CHECK NEXT 18 


#,1CB2 RELOAD TCB POINTER 
TCBSTAT6¢, TCB2), TCBATNS TASK NON-SWAPPABLE ? 19 
01000085 YES, TASK NON-SWAP. — aa093 


G33 


CONSOLE READY TO OUTPUT MESSAGE 
HELP FEATURE ACTIVE [R3] 
C. P. WSQS ASSIGN FAILURE 1R31 


X"10" 


SCADCPS2+2 2 MESSAGE ORDFR INDEX ADDRESS 
SCADMGOI+3 3. SSS OF SECURITY FILE 


X'40" “ENDED TRACE LINE O CINTRA) 
X'20' .__LOG TRACE LINE O CINTRA) 


RESERVED 

: RESERVED 

X'04' : RESERVED 
X'02" : RESERVED 
X‘01' : RESERVED 


SCADXTRA+ 1 


1 DATA MANAGEMENT OPTIONS [R4| 


X'80' - DELETED RECORD CAPABILITY IR4] 
X'40' - SEQ. PROC. ADDED REC. BY KEY |R6| 
X'20' . RESERVED 
X'10' 5 RESERVED 
X‘08' ‘ RESERVED 
X‘04° . RESERVED 
X'02' ' RESERVED 
X‘01' : RESERVED 


SCADMCFG+1 1 NUMBER NUCLEUS 2K BLOCKS 1R4| 


SCADAN2K+1 COUNTER OF MRT JOBS ACTIVE 
ADDRESS SYS CONSOLE IMAGE MATRIX 
MESSAGE ID # FOR SYS CON REPLY 


1 
2 
1 
SCADMID#+1 = 1 SIZE OF RESOURCE SECURITY FILE 
1 
2 


SCADRSC2+1 SIZE OF SECURITY FILE 
COMMAND PROCESSOR WORKAREA ADDRESS 


4500 SYMBOL VERSION OF THE ASSEMBLER WAS USED. 


1573 * 
0084 1574 SCACSATB EQU SCADCPW +2 2 CONTROL STORE ALLOCATE TABLE 
1575 * 
0085 1576 SCADXSLT EQU SCACSATB+] = =1 12 SLOT NUMBER CHEX) 1R3] 
008A 1577 SCADSLOT EQU SCADXSLT+5 5 12 SLOT NUMBER DECIMAL 1R3| 
1578 * 
008B 1579 SCADMQNT EQU SCADSLOT+1 1 MESSAGE Q COUNT 
1580 * 
QO8C 1581 SCADCSP1 EQU — SCADMQNT+1 1_CSP ------ > MSP INTERFACE BYTE 
0080 1582 SCAN1255 EQU  X'‘80' . MICR ATTACHMENT ON SYSTEM 1R2| 
0040 1583 SCAMARNR EQU X‘40' + [2 DISKETTE ATTACHMENT 1R3} 
1584 * EQU X'20° «RESERVED FOR ADDR COMPARE DtriP 
0010 1585 SCANACDV EQU = X'10' . ERROR ON DUMP ~ PARTIAL DUP TAKEN 
F33 


1913 SYMBOLS. 


#SVAU TCB CHANGE ORG OR [ 


ERR LOC OBJECT CODE f 


0800 


LENGTH OF MODULE 1S 


15] 0980 CO 87 0976 3326 B 


3325 *** END OF EXPANSION ** 


DT000086 01990000 | 15} 


GO CHECK NEXT ELEMENT aao93 


3327 * 
16 3328 * CALCULATE OLD SWAP SIZE IN TRACKS 02010000 | 16 
3329 * 02020000) 
09B4 7C 00 25 3330 DT000088 MVI — TCBAINL2¢, TCB1),0 SET TO 0 SIZE SWAP = aa093 02030000 
AX ACTIVE 17] 0987 5C 00 19 2D 3331 MVC TCBAXR1(1,TCB1), TCBRGSI2¢, TCB1) SET = REGION SIZE @a041 02031000 | 17 
JEUE ? aa093 O9BB 5C 00 1C 18 3332 MVC TCB@ARR-1¢1, TCB1), TCBAXR1-1¢, [CB1) SAVE BEGL VALUE aa093 02032000 
O9BF 7C 00 18 3333 MVE TCBAXR1~-1¢, TCB1),0 ZERO OUT HIGH BYTE © aa041 02033000 
T 18} 092 5E 01 19 19 3334 ALC — TCBAXR1¢2,TCB1), TCBAXR1¢, TCB1) DOUBLE VALUE 0a041 02034000 | 18 
09C6 5E 01 19 19 3335 ALC TCBAXR1(2, TCB1), TCBAXR1¢, TCB1) TIMES 4 aa041 02035000 
NTER O9CA 5E 01 19 19 3336 ALC — TCBAXR1(2, TCB1), TCBAXR1¢, TCB1) TIMES 8 aa041 02036000 
ABLE ? 19] OSCE 4€ 00 25 OE7F 3337 DTO00090 ALC TCBAINL2(1,TCB1),DTCO0001 ADD IN 1 TRACK aa041 02040000 | 19) 
SWAP. aa093 0903 4F 01 19 OOAA 3338 SLC TCBAXR1(2, TCB1), NUASCA+SCADTKSZ DECREMENT BY S/TRK a@a041 02050000 
0908 CO 84 O9CE 3339 BH = DTO00090 MORE TRACKS 9041 02060000 
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PAGE 36 09/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 37 VO9/11/81 12/08/81 21:31 #SVAU  TCB CHANGE ( 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
ESSAGE 0008 1586 SCAYACNG EQU xX '03' DISPLAY ADDR COMPARE DUMP MESSAGE 
(R3| 0004 1587 SCAMACDP EQU  X'04" ADDRESS COMPARE DUMP WAS TAKEN 
[R31 0002 1588 SCAMACSP EQU § X'02' TASK SUSPENDED BY ADDR COMP DUMP 
) 0091 1589 SCAMTACT EQU  Xx‘01' TRACE TO DISK ACTIVE 
N ERROR 1590 * 
LES ALSO 008D 1591 SCADCSP2 EQU  SCADCSP1+1 > CSP INTERFACE BYTE 
IN ERROR 0080 1592 SCAMLGER EQU X'80' $/32 MODE LOG PRINTER ERROR 
0040 1593 SCAMPOVK EQU  X'40' PRINTER TRANSLATE FEATURE IR4| 
SS 0020 1594 SCAMFORX EQU  X'20' . FORTRAN EXECUTION SUPPORT {R4| 
0010 1595 SCAMFAIL EQU  X‘10° . LAST 2K OF NUCLEUS ASSIGNED  [R8| 
0008 1596 SCAMICR1 EQU  X'08' «__NICR SUBRO8 SSP SUPPORT [R4} 
1R3/ 1597 * EQU X'04' . RESERVED 
0002 1598 SCAMICR2 EQU X‘02' . MICR SUBR25 SSP SUPPORT {R4] 
IRA 1599 * EQU. X‘O1' ._RESERVED 
1600 * 
NTRAD OO8E 1601 SCADCSP3 EQU  SCADCSP2+1 1 CSP < > MSP INTERFACE BYTE 
0080 1602 SCAMMLCA EQU « _MUCA CONTROLLER ATTACHED 1R6| 
0040 1603 SCAMWSCB EQU WSC ‘B‘ CONTROLLER ATTACHED | R6| 
0020 1604 SCANCFER EQU CONFIG RECORD TUB COUNT ERROR |k7/ 
RESERVED 
. RESERVED 
1608 SCADTLOK EQU TERMINAL UNIT BLOCK CHAIN LOCKED 
TR4I 1609 * FQU X‘O1" RESERVED 
y RAT 1610 * 
KEY {R6{ 1611 SCADSNAT EQU  SCADCSP3+2 2 TCB ADDRESS OF SNA TASK 
1612 * 
1613 SCADLIN® EQU  SCADSNAT+1 1 COMMUNICATIONS CONFIGURATION 
1614 * 
1615 * NOTE: THIS BYTE DESCRIBES HOW THE COMMUNICATION HARDWARE IS 
1616 * DEFINED. BITS O-3 DESCRIBE COMMUNICATION LINES. BITS 4-7 
1617 * OESCRIBF AUTOCAL! LINES. BITS O-7 DESCRIBE X.21 LINES. 
1618 * FOR EXAMPLE: 
[R4] 1619 * AUTOCALL ON LINE 3 AND COMMUNICATIONS ON LINES 
1620 * 1, 2, AND 4 WOULD BE X‘D2‘. 
j 1621 * X.21 ON LINE 1 AND COMMUNICATIONS "NV LINE 2 
MATRIX 1622 * WOULD BE X'C8". 
tEPLY 1623 * AUTOCALL AND X.21 ARE MUTUALLY EXCLUSIVE. 
FILE 1624 * 
0080 1625 SCAMLIN] EQU  X'‘80' COMMUNICATIONS ON LINE 1 
1 ADDRESS 0040 1626 SCAMLIN2 EQU  X'40' COMMUNICATIONS ON LINE 2 
0020 1627 SCAMLIN3 EQU = X'20' COMMUNICATIONS ON LINE 3 
ILE 0010 1628 SCAMLIN4 EQU X'10' COMMUNICATIO#S ON LINE 4 
1629 * 
1R3] 0008 1630 SCAMACUL EQU  xX‘08' AUTO CALL ON LINE 1 
{R31 0004 1631 SCAMACU2 EQU  X‘04' AUTO CALL ON LINE 2 
0002 1632 SCAMACU3 EQU  X'‘02' AUTO CALL ON LINE 3 
0001 1633 SCAMACU4 EQU  X‘OI1' AUTO CALL ON LINE 4 
1634 * 
BYTE 0088 1635 SCAMK211 EQU  X‘8a' « X.21 ON LINE 1 
{R21 0044 1636 SCAMK212 EQU  x'44' ‘ 2 
{R3| 0022 1637 SCAMX213 EQU = x‘22' : 2 
PARE DIP 0011 1638 SCAMX214 EQU  X‘11' ~ X21 ON LINE 4 
NP TAKEN 1639 * 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


#SVAU TCB cHANGE 


PAGE =? 09/11/81 12/08/81 21:31 


ERR LOC OBJECT COD 


0800 2 #SVAU 


3* 


START X ‘0800 ' 
COPYR 


x/® 
ays 


*/* COPYRIGHT= 5726-SS1 COPYRIGHT IBM CORP 1977, 1981 ies 


LICENSED MATERIAL - PROGRAN PROPERTY OF IBM */ 
REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083.*/ 


> OIA se 


mn 


*** END OF EXPANSION ** 


III II IIR IT IIR ITS TTP I TTDI IIOP SORTS OT TT ITO TOT TOT TOR ITI TOR TOT TOT 


01980000 | 14 1 


OA3F OF 00 0060 OE7F 
OA45 F2 01 06 


01990000 | 15 


OA48 F4 00 50 
OA4B 09 OA4B 3390 
OAAC 51 
oA4D 00 


OA4E 35 02 O04F 
OAS2 SF 00 12 OETF 
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01 

ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT S 
02 0095 1640 SCADREOJ EQU SCADLINY+4 4 END-OF-JOB SVC 02 1694 
0095 1641 SCAIPLW5 EQU  SCADREQJ 2___IPL_WORK AREA 1695 * 
0092 1642 SCADREJA EQU SCADREOJ-3 . START OF END-OF-JOB SVC OOAS 1696 S 
03 1643 * 03) 0080 1697 S 
0093 1644 SCADCON] EQU  SCADREJa+1 _. CONSTANT X‘0l' 1698 * 
1645 * 0040 1699 § 
04 0097 1646 SCADTBUF EQU SCADREQJ+2 2 COMMUNICATIONS BUFFER SIZE 04 0020 1700 § 
1647 * 0010 1701 S 
0098 1648 SCADWSQS EQU SCADTBUF+] 1 WORK STATION QUEUE SPACE (1/4K) 0008 1702 S 
05) 1649 * 05) 0004 1703 S 
0099 1650 SCADSQS EQU  SCADWSQS+1 _1_ SYSTEM QUEUE SPACE (1/4K) 0002 1704 $ 
1651 * 0001 1705 § 
06 QO9A 1652 SCADTRSZ EQU  SCADSQS+1 1 TRACE BUFFER SPACE (1/4K) 06) 1706 * 
1653 ® 1707 * 

009B 1654 SCADSNAl EQU SCADTRSZ+1 1 SNA BATCH TASK USE COUNT 1R31 

07 0090 1655 SCADSNA7 EQU SCADSNAl+1 1 SNA REMOTE TASK USE COUNT (R31 


009D_1656 SCADSDLS EQU  SCADSNA7+1 1. SDLC_SECONDARY TASK USE COUNT |K?! 


OO9E 1657 SCADSDLP EQU SCADSDLS+1 1 SDLC PRIMARY TASK USE COUNT  |R3/ 
08 1658 * 


O09F 1659 SCADCFG7 EQU SCADSDLP+1 1 HISTORY FILE CONFIGURATION |R31 
0080 1660 SCAMHWRP EQU  X‘80° ; HISTORY-AUTOMATIC WRAP INDICATOR 
09 1661 * 1 ~ AUTO WRAP HISTORY FILE 
1662 * 0 - NO HISTORY AUTO WRAP 
0040 1663 SCAMHDEL EQU X40" : HISTORY-OVERFLOW FILE DELETE 
10} 1664 * 1 - DELETE OVERFLOW FILE 
1665 * 0 - DONT DELETE OVERFLOW FILE 
0020 1666 SCANHFNT EQU  X'20" P HISTORY-REFORMAT OVERFLOW FILE 
ll 1667 * 1 - REFORMAT OVERFLOW FILE a IPL 
1668 * O - DONT REFORMAT OVEFLOW FILE 
0020 1669 SCANHALC EQU X‘20° : HISTORY-ALLOCATE OVERFLOW FILE 
12 1670 ® AFTER IPL 
0010 1671 SCANFLOC EQU  X'10" : HISTORY-OVERFLOW FILE PREFERREC 
1672 * LOCATION 
13 1673 * 1 - SPINDLE Al 
1674 .* 0 - SPINDLE A2 
OOOF 1675 SCAMHVS2 LQU X‘OF' : HISTORY-OVERFLOW FILE SIZE (BITS 
14 1676 * 4-7 (X‘OF‘)) IN MULTIPLES OF THE 
1677 * HISTORY FILE (1-8). 
1678 * 
abs) OOA2 1679 SCADRSEC EQU SCADCFG7+3 3 RESERVED FOR SECURITY USE 
1680 * 
OOA4 1681 SCADHFLK EQU  SCADRSEC+2 2 SECTOR OFFSET OF VTOC ENTRY: (R3] 
16 1682 * . HISTORY OVERFLOW FILE, #HISTOVE 
1683 * 
OOAS 1684 SCADWRKA EQU  SCADHFUK+2 2 ADDRESS COMPARE WORKAREA ADDR 1R3| 
7 1685 * 
OOA7 1686 SCADCFG3 EQU  SCADWRKA*+1 1 SSP CONFIGURATION 1R31 
1687 * EQU X‘80‘ . RESERVED 
18 0040 1688 SCANRUSP EQU X'40" . USE WORK STATION PRT’ ER 1R6| 
1689 * fQU  xX'20' . RESERVED 
1690 * EQU X10" ~ RESERVED 
19 1691 * EQU  X'08" . RESERVED 1R3| 
1692 * EQU X04" ._ RESERVED 
1693 * FQU X'02" . RESERVED IRS/ 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR > 


56 * RELEASE 3: * 00492000 |02 a 
57% 041 - CHANGE TO SUPPORT PICCOLO DISK ® 00493000 72! 
58 * a093 - SUPPORT SECONDARY SNA * 00494000 3° 
59 * @a052 - PTR P3SCPO21 SRJE SUPPORT FIX * 00494060 |03; 74) 
60 * RELEASE 4: x 00494120 75? 


3383 * 

3384 * TURN OFF SYSTEM IN USE LIGHT IF NO TASKS RUNNING 

3385 
OA3F OF 00 0060 OE7F 3386 SLC NUASCA+SCADCTUTC1),DTCOO001 DECRENENT TASK COUNT 
OA45 F2 01 06 3387 JNE __DT000107 YES, THEN LEAVE ON 


3398 LITES CS~OFF TURN OFF LIGHT 
OA48 F4 00 50 3389 SVC__ SVCC*NT,Q0 
OAAB 09 3390 oC XLT ‘09 TRANSIENT 10 
OnaC 51 3391 DC AL1(O+X'01"#X'50") INDICATOR BYTE 
OA4D 00 3392 DC _XLI'0" NOT USED 

3393 *** END OF EXPANSION ** 

3394 * 

3395 * SUBTRACT 1 FROM 4LIBRARY USE COUNT 

Lf 

OA4E 35 02 O04 DT000107 L_—-NUaSCA+SCADLBF1,F12 XR2-> #LIBRARY F1 
OAS2 8F 00 12 OE?F SLC__FIADLBUS(1,F12),DTCO0001 _DECRENENT USE COUNT BY 1 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 39 VO9/11/81 12/08/81 21:31 


VO9/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 1694 * EQU X‘O1' . RESERVED {R8| 


1695 * 
OOAS 1696 SCADCFG9 EQU  SCADCFGS+1 1 RENOTE CONFIGURATION BYTE iB 
03 0080 1697 SCAMRUSA EQU X‘80" . REMOTE WORK STATIONS ACTIVE 
1698 * FOR THIS IPL a 
0040 1699 SCAMRUAV EQU  X'40° . PERFORM AUTOVARY ONLINE AT [PL 
04 0020 1700 SCAMRWNV EQU X'20' . VARY ONLINE NOT ALLOWED 
0010 1701 SCAMRWET EQU  X'10' .__VARY ON IN PROCESS BY #RIWY oat 
0008 1702 SCANRUSV EQU  X‘08" ~ RUS HAS SET ‘SCANRINV® iR7] 
0004 1703 SCAMSWAP EQU X'04" . REMOTE TASK IS SWAPPABLE 
0002 1704 SCANRCFG EQU  X‘02" ._AT LEAST ONE REMOTE CONFIGURED : 
0001 1705 SCAYRWCF EQU X‘OT' . AT LEAST ONE REMOTE CONFIGURED 
1706 * FOR IPL AUTO VARY ONLINE 
1707 * ; 
OOAA 1708 SC.OTKSZ EQU  SCADCFG9+2 2 DISK SECTORS PER TRACK 1R3] i 
1709 * 
OOAB 1710 SCADCFGS EQU SCADTKSZ+1 1 SECURITY FEATURES 
0080 1711 SCAMRSEC EQU  X‘80" : RESOURCE SECURITY = 
0040 1712 SCANBADG EQU X‘40' : BADGE READER SECURITY 
1713 * EQU  X'20' . RESERVED = 
1714 * EQU X*10" : RESERVED ; 
1715 * EQU  X‘08" 2 RESERVED 
1716 * EQU X‘04" ; RESERVED 
Vi? ® EQU xX‘0"' : RESERVED ~ 
1718 * EQU X‘O1" . RESERVED 
1719 * 
OOAC 1720 SCADWOBT EQU  SCADCFGS+1 . + WSDM BRANCH TABLE CLOW SIDE) [R21 
OOAD 1721 SCAMWDBO EQU SCADWOBT+1  ---> *WDBO STORAGE ADDRESS | R2| 
OOAF 1722 SCAMWDB1 EQU SCADWDBT+3 — ---> 4WDB1 STORAGE ADDRESS —_1R3] =e 
00B1 1723 SCAWWDB2 EQU  SCADWOBT+5 — ---> 4UDB2 STORAGE ADDRESS (R31 
00B3 1724 SCAXDWDM EQU SCADWDBT+7  ---> ADWDM STORAGE ADDRESS | R41 
00B3 1775 SCAFICON EQU  SCAMDWDN ——---> ICOM STORAGE ADDRESS _IR4I 7 
1726 * THIS ADDRESS WILL BE THE ADDRESS 
1727 * OF ICS DATA ‘ANAGEMENT IF ICS 
1728 * IS ACTIVE, OTHERWISE IT WILL BE = 
1729 * THE ADDRESS OF THE WORK STATION 
1730 * DATA MANAGEMENT ROUTER, #DWDM. 
00B5 1731 SCAAWDB? EQU SCADIDBT+9 ~~~» *DB3 STORAGE ADDRESS {Ral _ 
1732 * EQU SCADWDBT+11 RESERVED 
OOB7 1733 SCADWOBR EQU SCADCFGS+12 12 WSDM BRANCH TABLE (HIGH SIDE) 
1734 * 
OOBF 1735 SCADRSPC EQU SCADWOBR+8 8 RESERVED i 
1736 * 
00CO 1737 SCADCPS4 EQU SCADRSPC+1 1 COMMAND PROCESSOR SWITCH 4 | R3] 
0080 1738 SCAMVHLD EQU  X‘80° . VERY HIGH LEVEL DEDICATION = 
1739 * FQU  X'40' . RESERVED 
1740 * EQU  X'20" .__ RESERVED 
1741 * EQU  X'10" . RESERVED ==———<“‘ CW!” 
1742 * EQU X08" . RESERVED 
1743 -® EQU X'04" .__ RESERVED 
1744 * EQU x‘02" . RESERVED Yarns, 
1745 * FQU X'01’ . RESERVED 
1746 -* 


00C2 1747 SCADXNID EQU SCADCPS4+2 2 EXT. ADDRESS MAPPING CEXAN) | R6I 
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VO9/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 3 VO9/11/81 12/08 3. 21:31 


ERR LOC OBJECT CODE ADDR 5, 50URCE STATEMENT 


ui 00492000 |02 71% ACE 3 20000 
* 00493000 72 FORO ROO ORO IOC ROO IIS ICICI IIIS IIT I TOR IO TOT 

* 00494000 3s * Caan) 5F 6 7 . : 

* 00494060 |03 4 * CHAIN * IAR x 9 MAB * PARI] * PARIZ * 

t 00494120 15 FQRCOIOIO IOI OUIIOIISIOUII IO IOI IOI IIIS OI IORI TO IO TT ICI TIT I TOI III 


ie) 


0A98 3A 02 0012 


3435 DTO00109 SBN NUASCA 


+SCADCFG1, SCANJQFM 


INDICATE BATCHQ RESTARAA145 


OASC C2 01 0250 3436 LA _NUACPTCB+TCBTTC-1, XR1 POINT TO ECM FOR JOBQ a@145 02688100 
3437 * POST DEV-QHOTTC, PREMPT-NO POST COMMAND PROCESSORAA145 02689000 
OAAO F4 00 03 3438 SVC SVCPOST, QO 
OAA3 48 OAA3 3439 OC __ALICQHDTTC) _ 
OAA4 80 OAAS 3440 DC = ALICPREENPT+0+0) 
3441 *** END OF EXPANSION ** 
OAAS BD 00 12 3442 DTOOA107 CLI TCBRTUB-1¢, TCB2),0 ANY REQUESTING TUB? 02690000 
OAAS F2 31 OC 3443 JE DTO0B107 NO, THEN CHECK OTHER aa023 02700000 
OAAB BD 00 14 3444 CLI TCBJCBA-1¢, TCB2), 0 ANY JCB ASSOC. ? aa023 02702000 
OAAE B5 01 15 3445 L TCBJCBAX, TCB2), JCBI nRI-> JCB aa023 02704000 
OAB1 78 08 00 3446 TBN  JCBDINITC, JCB1), JCBRAYRT THIS A MRT PROC. ? aa023 02706000 
OAB4 F2 91 6E 3447 __3C 7000120, X'91' NO, BYPASS FREES 3a023 02708000 


01 


02 


03 


04 


_OAF2 F4 00 07 a 
OAFS 0010 On 
16} OAF7 01 on 


17] OAF8 35 02 0141 


OAFC Co 87 OABD 


19 


OBO0 7D 00 30 


10 


11 


12 


HO1 
#SVAU TC CHANGE ORG OR DETACH TRANSIENT PAGE 40 VO9/II/81 12708781 21:31 " #SVAU TCB CHANGE ORG OF 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 7 ERR LOC OBJECT CODE 
1748 * 
Q0C1_1749 SCAOXMLL EQU _ SCADXNID-1 EXAM IDS 1-7 1R6| 
1750 * EQ X"80" . RESERVED 
0040 1751 SCAMSPRK EQU  X'40" 01 - DISK DM (SPARK) 
0020 1752 SCAYLSMF EQU_X'20' 02 - NLCA SMF 
1753 * QU X10" . 03 ~ RESERVED 
1754 * EQU X*08" 04 - RESERVED 
1755 * EQU_X'04" G5 RESERVED 
1756 * EQU X02" 06 - RESERVED 
1157 * EQU X'01" O7 - RESERVED 
1758 * 
00C2-1759 SCADXMI2 EQU” SCADXNID EXAN [DS 8-15 iR6| 
1760 * EQU  X'80" 08 - RESERVED 
1761 * equ X'40" 09 - RESERVED 
1762 * EQU X'20" OA - RESERVED 
1763 * EQU X10" OB - RESERVED 
1764 * EQU x '08" OC_- RESERVED 
1765 * EQU X*04" OD = RESERVED 
1766 * EQU  X‘02" OE - RESERVED 
1767 * EQU_X'O1' OF_- RESERVED 
1768 * 
00C3 1769 SCADCPS3 EQU SCADXMID+] 1 COMMAND PROCESSOR SWITCH 3 [R4| 
0080 1770 SCASTOPS EQU _X'80' STOP SESSION ACTIVE 
0040 1771 SCAMDCKF EQUX"40" REBUTLD-DELETE CHECKPOINT FILES 
0020 1772 SCAMRILP EQU  X'20' INITIALIZE LINE PRINTER R51 
0010 1773 SCAMIOCL EQU_X'10' MLCA IOCH LOADED IR6| 
0008 1774 SCANLATF EQU X'08* LCA ERROR ATTACH FAILURE IRI 
0004 1775 SCAMFUND EQU  X‘04" DISKETTE HAS EXTENDED LABELS IR7/ 
0002 1775 SCANKZ1S EQU_ X'02' X.21_ SWITCHED (RS! 
0001 1777 SCAMODDD EQU x01" DISKETTE HAS NON-SEQ. RECORDS 1831 
1778 * 
00C4 1779 SCADCFG6 EQU  SCADCPS3+1 1 CONFIGURATION BYTE 6 [Ral 


13 


178C * NOTE: THIS BYTE CONTAINS THE SAME BIT MASKS AS SYSTEM CONFIGURATION 
1781 * BYTE ‘CONDCFG6'. 


0080 1782 SCACKRST 


EQU X'80' 


CHECKPOINT/RESTART CONFIGURED 


1783 * 


EQU X'40' 


RESERVED 


15 


16 


WV 


18 


19 


0020 1784 SCANSMFC EQU = X‘20° SMF FEATURE CONFIGURED 
0010 1785 SCAMDFA EQU  X'‘10° DUMP FILE ANALYSIS {R51 
0008 1786 SCAMIEXC EQU X‘08" 1 EXCHANGE 1R6| 
0004 1787 SCAMSUBS EQU  X'04" SUBCONSOLE SUPPORT 1R5| 
0002 1788 SCAMUASF EQU  X‘02' SPOOL FILE ACCESS [RS] 
0001 i789 SCAMEDDM EQU  xX‘01" EXTENDED DISK DATA MAN. {R61 
1790 * 
O0C6 1791 SCADICSA EQU  SCADCFG6+2 — 2_—-ICS COMMWNICATION AREA ADDR {R41 
1792 * 
OOCE 1793 SCADRFTR EQU SCADICSA@+8 8 RESERVED 
1794 * 
O0D6 1795 SCADUCFG EQU SCADRFTR+8 8 UDT COM CONFIGURATION R3] 
00D5 1796 SCADUDT1 EQU  SCADUCFG-1 LINE 1 CONFIGURATION (BYTE 0) [R3| 
0003 1797 SCADUDT2 EQU _SCADUCFG-3 LINE 2 CONFIGURATION (BYTE 0) (R31! 
00D1 1798 SCADUDT3 EQU  SCADIICFE~5 LINE 3 CONFIGURATION (BYTE 0) (R6] 
OOCF 1799 SCADUDT4 EQU SCADUCFG~7 . LINE 4 CONFIGURATION (BYTE 0) |R6/ 
1800 * NOTE wees > SEE COMPRESSED UNIT DEFINITION TABLE CUDT) 


1801 * 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


DESCRIPTION FOR DEFINITION OF BITS 


G01 


PAGE 


12/08/81 21:31 


#SVAU TCB CHANGE ORG 


ERR LOC OBJECT CODE 


02 105 * ATACH V-EQU 00540000 
0008 106 $ATLOAD EQU  X‘OB' LOADER PARM LIST OFFSET 
000C 107 SATFLAG EQU $ATLOAD+1 FIRST FLAG BYTE OFFSET 
03 0080 108 SATCREAT EQU  X'80' CREATE A NEW TCB 
0040 109 SATREAL EQU  X'40' LOGICAL = REAL TO LINK a 
0020 110 SATTUBAS EQU  X'20' ON - TUBa PASSED IN PARN LIST 
ii * OFF- JCB@ PASSED IN PARM L {ST 
0010 112 SATNONAM EQU  X‘10° ON ~ DON'T ASSIGN JOB NAME 


VIA*X 


NCC. ACCICN iwe ase 


BQ aa 45 02688100 OAF2 F4 00 07 3485 SVC SVCFREE,QO_ ISSUE FREE REQUEST ; 
soraai45 "932689000 OAF5 0010 OAF6 3486 OC ALZCFSBLLNTH) LENGTH OF AREA TO FREE 0B35 F4 00 OE 
16] OAF7 01 OAF7 3487 OC  — AL1¢O+1) FREE FUNCTION BYTE 16] 0838 44 
3483 _*** END OF EXPANSION ** 0B39 6C 
7 3489 * TcBa R-TCB2 XR2->CURRENT TCB LOOP BACK a@145 02725000 0B3A 60 
17} OAFS 35 02 0141 3490 L 321, TCB2 GET TCB ADDRESS. vi 
02690000 3491 *** END OF EXPANSION ** 0B3B C2 02 020C 
R aao23 02700000 OAFC Co 87 OABD 3492 B 0002000 CONTINUE LOOKING FOR FSB'S aal45 02725200 
18 18] OB3F_F4 00 OF 
aa023 02702000 3493 * aa 45 02725400 0842 00 
aa023 02704000 3494 * TS THERE AN EXTENSION TO THE JCB? IF SO, FREE IT. OTHERWISE, aa145 02725600 0843 0c 
9023 02706000 } 19 3495 * FALL THROUGH TO FREE THE JCB. aal45 02725800 | 19} 0844 20 
02708000 3496 * aal45 02726000 — 
0800 70 00 30 3497 01002020 CLI JCBDEXT@-1¢, JEB1D, ZERO 1S THERE AN EXTENSION? a@l45 62726200 0845 30 CO 0060 


20} 
HO? 
AGE 40 VO9711/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSTENT PAGE 41 09/11/81 12/08/81 21:31 AS #SVAU TCB CHANGE ORG 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT = ERR LOC OBJECT CODE 
02 1802 * WITHIN THE INDIVIDUAL CONFIGURATION 02 
IR6| 1803 * BYTES. EACH ENTRY IS TWO BYTES LONG. 
ee 1804 * OYTE O: SEE LABEL “UDTDCMFT™ 
03 1805 * BYTE 1: SEE LABEL ‘UDTDCMF3‘ FOR BITS 0-3. 03 
; 1806 * BITS 4-7 (X'OF ') MAP THE DEVICE i in ots 
= ~ ae 1807 * ADDRESS (PRIORITY) OF THE UDT LINE 
04 1808 * ENTRY. FOR EXAMPLE X‘80' NAPS TO 04 
1809 * X'08'. SEE EQUATES BELOW. 
: - 0008 1810 SCAM R8O EGU X‘O8" UDT DEVICE ADDRESS X*80" R31 
05 0004 1811 SCAMPR40 EQU X'04' UDT DEVICE ADDRESS X'40" R6| 05 
0002 1812 SCAMPR20 EQU  x‘02' UDT DEVICE ADDRESS X'20' 1R3| 
TROT 0001 1813 SCAMPRIO EQU  X‘O1" UOT DEVICE ADDRESS X*10° 1R6| 
06 1814 * 06 
0008 1815 SCADKKKa EQU SCADUCFG+2 2 _KATAKANA/KANJI COrt AREA [RG 
1816 * eo 
07 00D9 1817 SCADSSPF EQU SCADKKKa+1 1 SSP FEATURE INDICATORS (R61 07 
0080 1818 SCAMKKKF EQU  X‘80' .__KATAKANA/KANJI. FEATURE 1R6| _ 
as 1819 * EQU X‘40° RESERVED 
08 1820 * EQU  X'20' : RESERVED 0 
1821 * EQU X‘10' «RESERVED 
1822 * EQU X‘03" ~ RESERVED 
IR4 09 1823 * EQU X'04" . RESERVED 09 
1824 * EQUX'02' .___ RESERVED 
LES 0001 1825 SCAYK21 EQU X"O1" . X.2] FEATURE 18] 
[R5 10 1826 * 10 
IR6 OOFF 1827 SCADCPYR EQU 255° 38 __ COPYRIGHT 
IR6] 1828 * 
5 IR? 11 ODEO 1829 SCADMATR EQU SCADCPYR-31 32 TERMINATION DUMP ATR STACK. i 
IRS 1830 * USED BY ABNORMAL TERMINATION 
5 [RA 1831 * WHEN OUMPING MORE THAN 64K OF 
12 1832 * MAIN STORAGE. COPYRIGHT WILL BE 1 
IR4 1833 * RESTORED WHEN DUMP IS COMPLETE. 
| GURAT ION 1834 * 
3 1835 *** END OF EXPANSION ** 1 
JRED 
14 14 
IR5| 
1R6| 
IR5| 15 15 
IRS 
FR6| 
16 16 
lied 
uf V7 
1R3| 
{R31 18 18 
IRB 
(ROI 
RG 19 19 
BLE CUDT) 
s 
20 0 


G02 
#SVAU  TCB CHANGE OR 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE = YO9/11/81 12/08/81 21:31 


12/08/31 21:31 


PAGE 4 VO9/11/81 


ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


00540000 156 * CSB 
157 OOOO OOO IOI IO IO IIO RIOR IO OTR TI IORI I III IIS IIIT IIIT 
a 158 * x 
159 * EQUATES FOR COMMUNICATIONS SPECIFICATION BLOCK = 
160 * THIS BLOCK IS ADDRESSED FROM THE DIF. 7 
16] RRRRRRRERERKRRARRARE RR KAKA ARIK RARER IRR IKE IAI IT HII IR IRIE 
N PARM LIST 
0001 163 CSBDECT EQU 1 EVENT CONTROL MASK 
vie 0001 164 CSBDMTCh EQU © CSBDECN MONITOR LINE OWNER TCB a COVERLAYS ECM) 


a NN? 45 CCRNE TNO EN) oeconeecMad 1 TAC aANisorco 


15 


0B32 7C £0 05 


3535 MVE TCBPRIOR, TCB1),TCBPRUDH CHANGE TO USER HIGH PRIOR 02980000 | 15]  OB7E 0080 OB7F 3587 


16 


02725000 


02725200 


02725400 
02725600 
02725800 
02726000 
02726200 


81 12/08/81 21:31 


02 


03 


04 


05 


10 


1] 


12 


3 


14 


15 


16 


7 


19 


20 


1/81 12/08/81 21:31 


0B35 F4 00 OE 
0B38 44 

0B39 6C 
OB3A 60 


0B3B C2 02 020C 


3536 * DEQUE_DSPL-TCBPRIQ-1,DEV-QHDPRIQ 0B80 01 7 OB80_3588 

3537 SVC SVCQUEUE,QO SVC _FOR SYSTEM DEQUEUE FUNCTION 3589 *** Eh 
0B38 3538 DC = ALICQHDPRIQ) DISPLACEMENT TO DESIRED QUEUE HEADER 16} OBS] F4 01 0D 3590 
0839 3539 OC _ALICTCBPRIQ-1) DISPLACEMENT TO QUEUEING FIELD 0B84 0030 0885 359) 
OB3A 3540 DC ALI CSYS+DEQUEUE) SYSTEM DEQUEUE FUNCTION 0886 CO 8? 0000 3592 


3541 *** END OF EXPANS 


3542 LA __NU@CPTCB+TCBCHAIN- 1, XRZ POINT TO CP TCB 


ION aR 


OB3F F4 00 OE 
0B42 00 


3543 * DEQUE DSPL-TCBCHAIN-1 


3544 SVC SVCQUEUE, QO 
0B42 3545 oc ——XL1'0O' 


0B43 OC 
0B44 20 


3548 


0B45 3D 00 0060 


ERR LOC OBJECT CODE 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 
1 


SVC FOR USER DEQUEUE FUNCTION 
QUEUE HEADER DISPLACEMENT IS ZERO 
0B43 3546 DC = ALICTCBCHAIN-1) DISPLACEMENT TO QUEUEING FIELD 
0B44 3547 DC = ALICDEQUEUE) USER DEQUEUE FUNCTION 

*** END OF EXPANSION ** 
3549 CLI NUASCA+SCADCTUT, 0 ANY TASK'S ACTIVE 


HO3 


ADDR STMT SOURCE STATENENT 


0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
000A 
000B 
000C 
0000 
OO0E 
OOF 


1837 * SVEQU 
1838 * 


#SVAU TCB CHANGE ORG OR DETACH TRANSTE 


PAGE 42 =V09/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE ADDR STMT SOUF 


1839 * SVC R-BTYE EQUATES 


1840 * 
1841 SVCGWAIT EQU 
1842 SVCGPOST EQU 
1843 SVCWAIT EQU 
1844 SVCPOST EQU 
1845 SVCXFER EQU 
1846 SVCUNSTK EQU 
1847 SVCASSGN EQU 
1848 SVCFREE EQU 
1849 SVCISEC EQU 
1850 SVCSNSSW EQU 
1851 SVCASGN EQU 
1852 SVCPPSVC EQU 
1853 SVCLDATR EQU 
1854 SVCPMR = EQU 
1855 SVCQUEUE EQU 
1856 SVCSCB__EQU 
1857 SVCXIENT EQU 
1858 SVCEXIT EQU 
1859 SVCGETP EQU 


X‘00' 
X‘O1' 
X'02° 
X‘03" 
X'04" 
X'05" 
X'06' 
x‘07" 
X‘08" 
X‘09' 
X'OA' 
X‘0B' 
X‘0C' 
X'00" 
X'0E' 
X ‘OF ‘ 


GENERAL WAIT 

GENERAL POST 

WAIT 

POST 

TRANSFER CONTROL/SYSTEM TRANSIENT 
STACK MANIPULATION 

ASSIGN 

FREE 

INCREMENT SYSTEM EVENT COUNTERS 
SENSE CONSOLE DATA SWITCHES 
ASSIGN SYSTEM QUEUE SPACE SVC 
PSEUDO DELAYED SVC POST ACM FUNCTION 
LOAD _ATRS 

ALTER PROGRAM MODE REGISTER (PNR) 


1909 Q1 


QUEUE / DEQUEUE SYSTEM CONTROL BLOCKS 08 0001 1910 QUAL 
SYSTEM CONTROL BLOCK ACCESS 0001 1911 QREF! 
TRANSIENT/TRANSFER-USER SPECIFIED 0002 1912 QNRE! 
TRANS IENT/TRANSFER EXIT SVC 09) 0004 1913 QXLO 
GETPAGE 0004 1914 QSYS! 


0013 1860 SVCFREEP EQU  X'13" FREEPAGE 0004 1915 QFRM 

0014 1861 SVCTIN EQU X‘14° * INTERVAL TINR ENQUEUE 1 0008 1916 QTOE: 

0015 1862 SVCTID EQU X‘15' * INTERVAL TIMER DEQUEUE 0008 1917 OMA! 

0016 1863 SVCTIR EQU X‘l6' * INTERVAL TIMER REMAINDER 0008 1918 QCPW 

0017 1864 SVCTKWT EQU X‘17' ASYNCHRONOUS TASK WAIT i 0010 1919 QSCT 

0018 1865 SVCXNTOF EQU  X'18' SET TRANSIENT AREA NOT BUSY 0010 1920 QNQ 

0019 1866 SVCPOSTA EQU  K'19" POST ACE SVC 0020 1921 TXR2 

001A 1867 SVCLOG EQU  X‘IA' LOG TRACE INFORMATION 12 0040 1922 QxU 

001B 1868 SVCQSCAN EQU  X'IB' SCAN SYSTEM QUEUE ROUTINE 0000 19273 QO 
1869 * EQU X‘IC’ RESERVED 0080 1924 CSCAL 

001D 1870 SVCTPOST EQU X‘1D' TASK POST 1 0019 1925 QNON 

OO1E 1871 SVCTWAIT EQU X‘IE' TASK WAIT 0018 1926 QNCHE 

OO1F 1872 SVCTIH EQU  X'‘IF* * TIMER INTERRUPT HANDLER 0009 1927 QSPEC 

0020 1873 SVCQS = EQU. « X'20' ALTER QUIESCE COUNTER 14 1928 * 

0021 1874 SVCRENQ EQU§ X‘21' RESOURCE ENQUEUE f OOF 4 1929 SVCOF 

0021 1875 SVCRDEQ EQU  SVCRENQ RESOURCE DEQUEUE OOFS 1930 SVCXF 

0022 1876 SVCDUMP EQU  X‘22' DUMP MAIN STORAGE/TERMINATE TASK 15 193] *** £ 

0023 1877 SVCTEST EQU  X‘'23' TEST AND SET 

0024 1878 SVCPRIQ EQU  x‘'24' TCB PRIORITY QUEUE 

0025 1879 SVCRDYCK EQU  X'25' ASYNCHRONOUS TASK READY CHECK. 16 

0026 1880 SVCPREP FQU X‘26' PREPARE PRINTER OUTPUT 

0027 1881 SVCDSPCH EQU = x‘27° DISPATCHER SVC 

0028 1882 SVCRPT EQU X‘28° RENOTE PRINTER SET UP. 7 

0029 1883 SVCSQ_EQU._X'29' SECTOR ENQUEUE /DEQUEUE 

002A 1884 SVCMOVET EQU  X‘2A' MOVE DATA BY ID 

0028 1885 SVCPOSTI EQU xX‘2B' POST TASK BY ID 19 

002C 1886 SVCQUAIT FQU  X'2C' QUIESCE COUNTER WAIT 

002D 1887 SVCXAF FQU  X‘z0° TRANSLATED ASSIGN/FREE 

002E 1888 SVCTOD EQU xX'2E" RETURN TIME-OF~DAY IN TIMER UNITS 1 


1889 * 


ERR LOC OBJECT CODE 


1890 * *-INDICATES NOT USEABLE FROM MAIN STORE 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ADDR STMT SOURCE STATEMENT 


G03 
*SVAU TCB CHANGE ORC OR DETACH TRANS 


PAGE = =©6 VO9/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE ADOR STMT '0 


000C 210 CSBDTCB1 EQU CSBDLST+2 TCB ADDRESS OF TASK ONE 0001 264 CSI 
OOOE 211 CSBDTCB2 EQU CSBDTCBI+2 —_TCB ADDRESS OF TASK THO 001B 265 CSI 
0010 212 CSBDTCB3 EQU CSBDTCB2+2 —TCB ADDRESS OF TASK THREE 0080 266 CSI 
0012 213 CSBOTCB4 EQU CSBDTCB3+2 —TCB ADDRESS OF TASK THREE 0040 267 CSI 
OOFF 214 CSBMETCB EQU  X'FF' END OF TCBS INDICATOR 0020 268 CSI 
0017 215 CSBDRESV EQU CSBDTCB4+5 = RESERVED SPACE 0010 269 CSI 
0018 216 CSBDENON EQU CSBDRESV+] — END OF MON CSB FOR REMOTE WORKSTATIONS 0008 270 CS 


001D 271 CSI 


heli acini OIC Shacks Pet Arata ses Ren heals teh A Ric tiehirn torte siesta 


OB7B F4 00 07 3586 SVC SVCFREE,QO = ISSUE FREE REQUEST 36 

OB7E 0030 OB7F 3587 DC = AL2CTCBLEND LENGTH OF AREA TO FREE 15 36 

OB80 01 OB80 3588 DC ALI(O+1) FREE FUNCTION BYTE 0BD3 CO 87 0034 36. 
3589 *** END OF EXPANSION ** 

OBS] F4 01 00 3590 SVC SVCPMR, QUAIT ENABLE DISPATCHING AND EXIT 03270000 | 16] 0807 03 0807 

0B34 0080 OB85 3591 DC___AL2CDSABL) MASK FOR ENABLE 03280000 OBD8 70 00 10 . 

0B86 CO 37 0000 3592 B 0 PROC CHECK IF EVER GET HERE 03290000 OBDB F2 01 06 36. 


7 


OBDE 7D 05 19 36: 
OBE] F2 02 0B 36! 


13) 
OBE4 7D 07 19 36: 


OBE? F2 02 05 36: 


OBEA CO 8? 0034 


¥O9/11/81 12/08/81 21:31 


00760000 | 02 


03 


04 


05; 


ERR LOC OBJECT CODE 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ADDR STMT SOURCE STATEMENT 


1892 * 
0040 1893 SVCFD EQU  X‘40' 
0041 1894 SVCIO. = EQU.sX‘41' 
0042 1895 SVCPT EQU X'42' 
0043 1896 SVCWSC EQU  X'43" 
0044 1897 SVCCOMM EQU xX'44° 
0045 1898 SVCIOXNT EQU = X'45' 
004C 1899 SVCPQSVC EQU Xx ‘4C‘ 


1900 * X'46' -> X‘4F' RESERVED FOR I/0 SVC 'S 


0050 1901 SVCCXNT EQU X'50' 
0051 1902 SVCTWA EQU X'51' 
0052 1903 SVCLOAD EQU X'‘52' 


1904 * X'53' -> X‘5C' RESERVED FOR DELAYED SVC'S 


OO5C 1905 SVCKBTR EQU  X'5C' 
1906 * 


1907 * SVC Q CODE EQUATES 
1908 * 


0001 1909 Q1 EQU X'O1' 
0001 1910 QWAIT  EQU X‘O1' 
0001 1911 QREFRESH EQU  X'01' 
0002 1912 QNREF  EQU X'02' 
0004 1913 QXLOFF EQU X'04' 
0004 1914 QSYSREQ EQU  X'04' 


10) 


ll 


0004 1915 QFRMEXM EQU X'04' 
0008 1916 QTOEXN EQU X'08' 
0008 1917 QAAIT EQU  X'08' 
0008 1918 QCPWAIT EQU xX‘O8" 
0010 1919 QSCT EQU X'10° 
0010 1920 QNQ EQU X'10' 


12 


0020 1921 QxR2 EQU xX‘20° 
0040 1922 QXU EQU X*'40° 
0000 1923 Q0 EQU X‘00' 


13 


0080 1924 CSCALL EQU X'‘80' 


DELAYED SVC R-BYTE EQUATES 


HO4 


PAGE 43 VO9/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACt 


ERR LOC OBJECT CODE ADOR ‘ 


DISK 10S 

DISKETTE [OCS 

WORKSTATION 1OCH (PRINTER) 
WORKSTATION IOCH (TERMINAL 
COMMUNICATIONS I0CH 

1/0 TRANSIENT REQUEST 
PSEUDO 1/0 REQUEST 


CONTROL STORE TRANSIENT SCHEDULER 
TASK WORK AREA ACCESS 
MAIN STORAGE RELOCATING LOADER 


KEYBOARD TRACE 


iia) hs pac pen acee, Se Sei aoc eee ea Seas ee Nina aa vn ice a 


SVC SIGNIFICANT INDICATOR 

WAIT ON THIS SVC INDICATOR 

REFRESH TRANSIENT/TRANSFER INDICATOR 
NON-REFRESHABLE SVC INDICATOR 
TRANSLATE OFF-I0B/PARM LIST~INDICATOR 
SPECIAL SYSTEM REQUEST FOR ASSIGN REC 
FOR MOVET - FROM ID IN EXAM 6 

FOR MOVEI - TO ID IN EXAM 6 
MULTIPLE WAIT 1/0 REQUEST 

ASYNC ERROR WAIT REQUEST 

SUBSYSTEM CONFIG TABLE aa 45 
NON-QUIESCABLE REQUEST INDICATOR 
RETURN XR2 FROM POSTER ON WAIT. 

USE USERS TCB ON EXAM I/O REQUEST 6 
IMMEDIATE SVC EQUATE 

CS SVC INDICATOR 


0019 1925 QNQNV = EQU — QNQ+QMMATT+QWAIT NON-VOLUNTARY SWAPPABLE WAIT 
0018 1926 QNCHPRI EQU  QNQ+QMMAIT NOT CHANGE PRIORITY ON WAIT 8 
0009 1927 QSPEC = EQU = QYWAIT+QWAIT SPECIFIC WAIT ON NON-ECM. 


1928 * 
QOF4 1929 SVCOP EQU. X'F4" 


SVC _OP CODE VALUE 


OOF5 1930 SVCXFR EQU X'F5' 
1931 *** END OF EXPANSION ** 


SVC TRANSFER OP CODE 


16 


7 


18 


6 VO9/11/81 12/08/81 21: 


Ol 


#SVAU TCB CHANGE ORC OR DETACH TRANSIENT 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATENENT 


604 


#SVAU TCB CHANGE ORG OR DETA 


PAGE = =7 =VO9/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE ADDR 


02 


03 


04) 


0001 264 CSBMMRWR EQU X'O1' MESSAGE REQUEST WITH RECALL OPERATION 0023 
001B 265 CSBDSTB2 EQU CSBOSTBI+1 SNA STATUS BYTE 2 0024 
0080 266 CSBMSNAQ EQU  X‘80" QUEUE OF SNA COMMON AREA REQUIRED 0025 
0040 267 CSBMCANC EQU X'40' CONTROL CANCEL OPTION TAKEN 0026 
0020 268 CSBMOMPT EQU  X'20' DISK ERROR ON DUMP CABNORMAL TERM) 0027 
0010 269 CSBMADMP EQU  X‘10° NO DUMP TAKEN (ABNORMAL TERM) 0028 
0008 270 CSBMNHLT EQU xX '08" USER RUNNING UNATTENDED 0029 


Pcibiaegc air nhl ERY a ee Ae ek 


AVEeV VELIR bo TRE Sr PPO, FA PP DRE APT RU Pek Pt Oe 


3627 ® ACTIVE TASK TO SLEEP, THEREFORE RETURN ERROR CODE TO CALLER 


3628 * 0C25 4€ 01 29 ODAC 
0BD3 CO 87 0034 3629 B DTERROR ERROR, OC2A CO 87 0034 
OBD7 03 3630 DC ALICSATERRO3) IF WELL PUT TASK TO SLEEP OC2E 06 OC2E 3674 
OBD8 7D 00 1D 3631 DT000255 CLI _TCBAARR(, TCB1),0 THIS ONLY ACTIVE TASK OC2F FC 00 26 20 3675 
OBDB F2 01 06 3632 JNE 07000257 NO, ENSURE 14K THEN 3676 *T0 
0C33 35 01 0141 3677 O10 
OBDE 7D 05 19 3633 CLI TCBAXR1¢, TCB1), ©» 10K SWAPPABLE LEFT ? 3678 *** 
OBE1 F2 02 OB 3634 JNL —-0T000260 YES, 10K LEFT 0C37 4C 01 29 ODAC 
3680 x 
OBE4 7D 07 19 3635 DT000257 CLI TCBaXR1¢, TCBI),7 14K SWAPPABLE LEFT ? 3681 * 
OBE? F2 02 05 3636 JNU 07000260 YES, 14K LEFT 3682 * 
OC3C 4€ 00 2B OE7F 3683 DTO 
OBEA CO 87 0034 3637 B OTERROR GO TO ERROR ROUTINE 0C41 4F 00 2A OEA? 3684 


0C46 F2 81 03 


11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 44 09/11/81 12/08/81 21:31 01 #SVAU TCB CHANGE ORG OR DETACH TRAN 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT‘ 
1933 * Tc8 02| 1986 ? 
1934 RRRRARRRRAR ARERR EIR RII IR IR IR IR IRR IR IOI IIR IR RII IRI RII IIIT IIH, 0000 1987 T 
1935 * TCB rs 
1936 RII TO III IER II IR RI IIR IR II IR IIR ITA R TORR IOS TTR III IRI TOR 03 0080 1989 1 
1937 *00 K x x x ® ® K k k 0040 1990 1 
1938 * STAT * STAT2 * WASK * WNSK2 * ~~ * STAT3 * PRIOR * TTINE * QCNT * 0020 1991 1 
1939 RRRRARRRARA AKIRA IRR RRR ERIK, RRRAKRKARAARRAK RARER ERE IRI, 04 0010 1992 T 
1940 *08 8 . * & J 0008 1993 1 
i941 * —CNPLQ.*® PUSH a CHAIN ROYQ 0004 1994 T 
1942 RRRRRARRARIRRARIRRAR RAR RRR EIR RR IRR IKI III III IIR III III III 05 0004 1995 T 
1943 *10 * * J 0002 1996 T 
1944 * ” XNTQ x RTUB ee cB CRB " 0001 1997 T 
1945 O02 FOO IOI TOR IIR TORII IIR RRRIERRERIR IAAI IIS III IIIA IIIS IIT. 06 
1946 *18 * i! x 0001 1999 T 
1947 * aXR1 * aXR2 BARR ia 
19GB RRRRRARARRAAARRARAR ARR IRIE IR ERR RARKARIARARIA RAE AIRI II III IPI III IIE 07 0080 2001 T 
1949 *20 ® x x ® * x x x x 0040 2002 T 
1950 * PMR * PSR * R is * @INL] * OINL2 * AINL3 * alML4 * 0020 2003 T 
[95] RRRRARERRIRR ARM RRREIIORE RIK RARRAKRRIERRIAIRR IIR IIR IR IIR IIR IE 03 0010 2004 T 
1952 *28 ® & . ® * is 0008 2005 T 
1953 * TSSN * BEGL * * MSSIZ * RGSIZ * SPOOL 7 0004 2006 T 
1954 RRARRARIRARRRRA RIK IR ERR I IIR REI IR IKI II IR IPI III IIIS III RIO ITO 09 0002 2007 T 
1955 *30 * 2008 * 
1956 * ; ne 
1957 RERRAAKKRKAAARRR AKA A KAKA RARER ERR KKK EK RIERA RARER KR IIR IR RIE IK 10] OOBE 2010 T 
1958 *38 * 
1959 * ATRS = 0002 2012 T 
1960 RAAAKRAKKKAARARKEKKRAKKKKKRRAK KKK RAK KK REKAERAK KER KKK KAKA KAKA HK REIKI RA ll 
1961 *40 x 0080 2014 T 
1962 * ; s 0040 2015 T 
1963 RRRAKAKRAKRARRA RARE RARER EKER KERR EER ERASE IIE IIR IR IERIE IERIE III RIT 12) 0020 2016 Ti 
1964 *48 hs 0010 2017 T 
1965 * x 0008 2018 T 
1966 RERKREKRERKRRAKRK AKER RRA KKK RER KEKE HK EAE EKER ARR EAIK IRRK IIR ERR, B 2019 x 
1967 *50 x * J R x 2020 * 
1968 * TTC . TWA * fs WSWA - LDREL = 2021 * 
1969 RARRKKHRAARKAAAKKAKK KER RAR KERR EER KEKKKKEAKAKAEKAKARAKK AR AARERE RRA AK 14 0004 2022 Tl 
1970 *58 i - * * 0002 2023 T 
197] * LOOSK * INVCT * * ASGQ si EXIT . 0001 2024 TI 
1972 RERRKKKRKERKAAKRKKEKK ARR ERRARAE KAKA KKK KAKA AKREK ARE IKI R IER EK IRIE IIR IR, 15 
1973 *60 x 0003 2026 T 
1974 * TOE i 
LOTS (RRO IO ROR IR OR IORI IORI IO FIR RI IR RII IR IR TORII IRE IR IIR IT IR 16 0080 2028 TI 
1976 *68 ® i . s i & r = 0040 2029 TI 
1977 * SQBCT * LCKMK * SSTID * TSKID * * PRIQ * STAT4 * STATS * 0020 2030 T 
197 RRRRRERRERRER ARERR RR IR RRR IK, RIIIIIIIR IIIS IIIS IRI IIIISISISSSS 17 0010 2031 Ti 
1979 *70CATH * 3 4 yj i“ bg * x = 0008 2032 Ti 
1980 * AWSCT * CAT * NRTMX * NSCNT * * CNCNT * IQCNT * ARQCT * STAT6 * 0004 2033 TI 
19G] RRRRAKRARRRRARA RAR RR ARK KER RRR IRIS III II II IIIS ISI IIS IIIS I III I. 18 0002 2034 TI 
1982 *78 * * ® x * * * 2035 * 
1983 * BAT * SUSPS * SMFPT i * TWAST * =X * ig 
19Q4 XARRRARARREM RR ARRR RRR RR RII HRIEKRERERER HIER EAR RII R IIR RII ISI IIR. 19 0004 2037 TI 
0080 2039 TI 
0G 
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ERR LOC OBJECT CODE ADDR STM 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 0023 318 CSBM3211 EQU§ X'23" IBM ATTACHMENT ERROR 
0024 319 CSBMB212 EQU x'24° [BM MODEM FAILURE 
0025 320 CSBM3213 EQU  x‘25° {BM EQUIPMENT TEST OK 

03 0026 321 CSBN321X EQU  X'26" 3210 MSG WITH 2 AND 3 OPTIONS 
0027 322 CSBMB299 EQU X'27' BSC TASK ABORT 0023 37: 
0028 323 CSBM3214 EQU  X'28° SET SWITCH FOR JAPANESE MODEM 0026 37: 
0029 324 CSBM321Y EQU x'29' 3210 MSG WITH NO OPTIONS 0027 375 


11/81 


9/11/81 12/08/81 21:31 
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00780000 


3671 *** END OF EXPANSION ** 
3672 NVC TCBTSSN-1(2, TCB1), ALSSS 
3673 DTERROR 


0C25 4C 01 29 ODAC 
OC2A CO 87 0034 


MOVE IN ALLCATED SS 
GO RETURN ERROR 


OC2E 06 
OC2F 5° 00 26 20 


3674 
3675 


AL 1 (SATERRO6) ERROR CODE 
TCBAINU3C1, TCB1), TCBRGSI2(, TCB1) RESET REGION SIZE 
3676 *1000280 TCBa R-TCB1 XR1-> TCB 

3677 DT000280 L 321, TCB1 GET TCB ADDRESS. 

3678 *** END OF EXPANSION ** 

3679 tWC -TCBTSSN-1¢2, TCB1), ALSSS 

3680 * 

3681 * FREE ALL OF STORAGE EXCEPT FIRST 7X o.OCK 
3682 * 

3683 01000290 ALC 
3684 Sic 


0C33 35 01 0141 


0C37 4C 01 29 ODAC MOVE IN ALLOCATED SS 


OC3C 4 00 2B OE7F 
0C41 4F 00 2A OEA7 
0C46 F2 81 03 


TCBBEGL (1, TCB1), 0TCO0001 
TCBTSSNC1, TCB1), OTCO0008 


ADD 1 TO BEGL VALUE 
DECREMENT N BY 8 


OCBO 1C 00 O00E 24 
OCB5 B8 40 27 


3720 DT0 
3721 


OCB8 F2 90 04 

OCBB AC 01 17 10 3723 
OCBF 2C OB OFOS 1D 3724 DTO 
oCc4 3C OF OEDO 3725 
OCC8 BS 04 IE 


OCCB F2 10 04 


OCCE 3C OF OEDO 

OCD2 6C 00 2D IF 3729 DIO 
OCD6 70 05 20 3730 
OCD9 F2 04 OC 3731 


ocDC 7D 00 14 3732 


#SVAU TCB CHANGE ORG OR DETACH TRAN 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT S 
1986 *VVVWWWYWWWWWV THE FOLLOWING FIELDS ARE ORDER DEPENDENT VWWWVYVVVWWWy 0040 2040 T 
0000 1987 TCBSTAT! EQU 0 TCB STATUS BYTE 1 0020 2041 T 
0010 2042 T 
03 0080 1989 TCBHAIT EQU X'80" . TASK IS NOT ON READY QUEUE 03) 0008 2043 T 
0040 1990 TCBSWAPD EQU X'40° . TASK [S SWAPPED TO DISK. 0004 2044 T 
0020 1991 TCBFORCD EQU  X‘20° ~ TASK FORCED TO SWAPC> DISPATCHABLE) 0002 2045 T 
04 0010 1992 TCBLONGW EQU X‘10° . TASK IS QUIESCED ~ TCBQCNT = 0 04 0001 2046 T 
0008 1993 TCBSOP QU xX'08' ._ TASK HAS SWAP OUT 1/0 IN PROGRESS 
0004 1994 TCBISTIN EQU  x‘04" . SET ON WHEN TASK SWAPPED IN. 0005 2048 TI 
05 0004 1995 TCBFSWAP EQU  X'04' . SET ON WHEN TASK FULLY SWAPPED OUT. 05 
0002 1996 TCBNOIO EQU  x‘02’ NO 1/0 REQ. FOR SWAP INDICATOR OOFF 2050 T 
0001 1997 TCBNSWAP EQU = X‘Ol' . TASK [5 NEVER SWAPPABLE OOFC 2051 TI 
06 06 OOFO 2052 T 
0001 1999 TCBSTAT2 EQU TCBSTATI+1 — TCB STATUS BYTE 2 OOFO 2053 T 
OOF 4 2054 Ti 
07 0080 2001 TCBWAITD EQU X'80" . TASK WAITING FOR EVENT COMPLETION 07 0OF3 2055 TL 
0040 2002 TCBXWAIT EQU  X'40' . TASK WAITING FOR TRANSIENT AREA OOFO 2056 TL 
0020 2003 TCBGWAIT EQU  X‘20' . TASK WAITING FOR GENERAL POST OOF 4 2057 TC 
08 0010 2004 TCBOWAIT EQU X‘10' . TASK WAITING FOR DEDICATED TTC 03} OOF8 2058 TC 
0008 2005 TCBIWAIT EQU  X'08" . TASK WAITING FOR INTERNAL DYLD SVC 0OF9 2059 TL 
0004 2006 TCBTWAIT EQU  X*04' . TASK WAITING FOR TIMER ELAPSE OOFO 2060 TL 
09) 0002 2007 TCBSUSP EQU X‘02' . TASK 1S SUSPENDED 09) OOFO 2061 TC 
2008 * ( SEE TCBSUSPS FOR REASON ) OOFO 2062 TL 
2009 * EQU) X‘O1* ~ RESERVED OOFO 2063 TC 
10 OOBE 2010 TCBNRDY EQU  TCBWAITD+TCBTWAIT+TCBGWAIT+TCBDWAIT+TCBSUSP+TCBIWAIT 10 OOFO 2064 TL 
OOFO 2065 TC 
0002 2012 TCBWMASK EQU TCBSTAT2+1 FIRST WAIT NASK OOFO 2066 TL 
1 ll OOFO 2067 TL 
0080 2014 TCBAWAIT EQU  X'80" . 5QS ASSIGN FAILURE OOFO 2068 TL 
0040 2015 TCBSWAIT EQU  X*40' . TWA ALLOCATE FAILURE OOFO 2069 TC 
1 0020 2016 TCBTAS EQU X‘20° . TEST AND SET FAILURE 1 OOFO 2070 TC 
0010 2017 TCBUMAIT EQU  X'10° . WSQS ASSIGN FAILURE OOFO 2071 TC 
0008 2018 TCBQWAIT EQU  xX‘03" ~ RESOURCE ENQUEUE POST CODE OOFO 2072 TC 
13 2019 * NOTE: THE ABOVE BIT IS NOT ON WHEN TASK IS IN GENERAL WAIT. HENCE 13 OOFB 2073 TC 
2020 * ANY GENERAL WAIT WITH BOTH MASK BYTES ALL ZERO IS OOF! 2074 TC 
2021 * A RESOURCE ENQUEUE FAILURE. 0000 2075 TC 
14 0004 2022 TCBRWAIT EQU  X‘04' . DISK RESOURCE FAILURE 14 OOEO 2076 TC 
0002 2023 TCBFWAIT FQU  X‘02' . DISK SECTOR ENQUEUE FAILURE 0001 2077 TC 
0001 2024 TCBKWAIT EQU  X‘OI‘ . WORKSTATION RELEASE WAIT 2078 * 
15 1 2079 * 
0003 2026 TCBHMSK2 EQU TCBUMASK+1 — SECOND WAIT MASK 0000 2080 TC 
00CO 2081 TC 
16 0080 2028 TCBPTRWT EQU X'd0' . PRINTER ALLOCATE FAILURE 16 2082 * 
0040 2029 TCBLINWT EQU  X'40" . COM. LINE ALLOCATE FAILURE 2083 * 
0020 2030 TCBDKTWT EQU X20" . DISKETTE ALLOCATE FATLURE 0080 2084 TC 
17 0010 2031 TCBDSKWT EQU xX'l0' . DISK SPACE ALLOCATION FAILURE 17 
0008 2032 TCBDEVWT EQU  X‘03" . OTHER DEVICES ALLOCATION FAILURE 0006 2086 TC 
0004 2033 TCBICKWT EQU  X‘04" . ICS TRANSIENT WAITOR 
18} 0002 2034 TCBASRWT EQU X'02' . ASSIGN RECOVERY FORCED WAITER 18 0007 2088 TC 
2035 * FQU X‘Ol" . RESERVED 0009 2089 TC 
2090 *A 
19 0004 2037 TCBSTAT3 EQU TCBWMSK2+1  TCB STATUS BYTE 3 19 
000B 2092 TC 
0080 2039 TCBTERN EQU  x‘s0° ~ TASK IS IN TERMINATION 000D 2093 TC 
0 0 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATENENT 


02 


03 


0023 373 CSBDCNFG EQU CSBDBMSI+1 | CNFG BYTE USED BY *8SCL 
0026 374 CSBDRSRV EQU CSBDCNFG*3 = **_—s« RESERVED ** 
0027 375 CSBOPRM] EQU CSBDRSRV+1 BSC MESSAGE PART 


*SVAU TCB CHANGE ORG OR DETACH TR 


ERR LOC OBJECT CODE ADDR STMT 


&siss 


45 09/11/81 


12/08/81 21:31 


OCBO 1C 00 O00E 24 
OCB5 B8 40 27 
OCBS F2 90 04 


OCBB AC 01 17 1D 
OCBF 2C 0B OFOS 10 


NVC 
3720 DT000350 NVC 
3721 TBN 
3722 JF 


3723 MVC 
3724 01000355 MVC 


OCC4 3C OE O£DO 
OCC8 BS 04 IE 
OCCB F2 10 04 


OCCE 3C OF OEDO 
ocd2 6C 00 20 IF 
0CD6 70 05 2D 
OCD9 F2 04 OC 


OcDc 7D 00 14 


3725 fi 
3726 TBN 
3727 JT 


3728 {VI 
3729 DT000360 MVC 


TCBAINL1¢1, TCB1), TCBAINL3(, TCBL) MAKE NEW MAX ACTIVE 
NUASCA+SCAMAXRG( 1), TCBOINL1C, TCBL) MAKE NEW MAX ACTIVE 
RBSLEN+SATFLAG1(,RB2), SATCOMON PROGRAM SUPPORT COON ? 
07000355 NO, BYPASS SCa@ UPDATE 


RBSLEN+SLDDL INK(2, RB2), RBSLEN*SATLOADC,RB2) SET LINK=LOD 
ATLDPRIT+ SATLOAD(SLODLEND, RBSLEN*+SATLOADC,RB2) FETCH PR 
ATPARSET+2,0P1+OP2+PRV+IARX SET TASK TO PRIVILEDGED 
RBSLEN+SATFLAG\, HB2), SATPRIV IS TASK TO BE PRIVILEDGED? 
01000360 YES, LEAVE PMR_AS IS 


ATPMRSET+2,0P1+OP2+NPRV+IARX SET TASK TO BE NON-PRIV. 
TCBRGSI2(1, TCB1), RBSLEN*+$ATNSS12(,RB2) SET REGION SIZE 


3730 CLI 


3731 JNH 07000365 


3732 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


0040 2040 TCBCHKPT EQU X‘40° 
0020 2041 TCBEXTRA EQU  X‘20' 
0010 2042 TCBCCALL EQU  X'10' 


0008 2043 TCBKCALL EQU X‘08' 
0004 2044 TCBSUSPD EQU  X‘04' 
0002 2045 TCBDEPD EQU X‘02' 
0001 2046 TCBINQPD EQU X‘O1" 


0005 2048 TCBPRIOR EQU TCBSTAT3+1 


OOFF 2050 TCBPRINV EQU  X'FF‘ 


OOFO 2052 TCBPRSP EQU X'‘FO" 
OOFO 2053 TCBPRMR EQU  X'FO' 


OOF3 2055 TCBPREN EQU X‘F3° 
OOFO 2056 TCBPREXT EQU§ X'FO" 
OOF4 2057 TCBPRITH EQU X‘F4" 
OOF8 2058 TCBPRSOP EQU  X‘F8' 
OOF9 2059 TCBPRSDS EQU  X'F9' 
OOFO 2060 TCBPRSNI EQU X‘FO' 
OOFO 2061 TCBPRSNR EQU X'‘FO' 
OOFO 2062 TCBPRBLD EQU  X‘FO' 
OOFO 2063 TCBPRSRJ EQU  X‘FO" 
OOFO 2064 TCBPRSNF EQU  X'‘FO" 
OOFO 2065 TCBPRPER EQU  X'FO' 
OOFO 2066 TCBPRCCP EQU X‘FO' 
OOFO 2067 TCBPRCIC EQU X'FO" 
OOFO 2068 TCBPRINS EQU  X'FO' 


OOFO 2069 TCBPRBEL EQU X'FO' 
OOFO 2070 TCBPRINT EQU  X'FO' 
OOFO 2071 TCBPRBTS EQU  X‘FO' 
OOFO 2072 TCBPRGCE EQU xX'FO' 
OOFB 2073 TCBPRSMF EQU  X'‘FB" 
OOF] 2074 TCBPRDOF EQU  X'F1‘ 


0000 2075 TCBPRSWT EQU X‘00' 
OOEO 2076 TCBPRUDH EQU  X'E0' 
0001 2077 TCBPRUDM EQU  X'DI" 


2078 * USE TCBPRUDN FOR THE SVCPRIQ (CHAP) SWC. 


TCBRGSI2¢, 1CB1),5 


CLI | TCBUCBa~1¢, TCB1), 0 


CORE SIZE > 10K? 30093 
NOT GREATER THAN 10K aa093 


ANY JCB ASSOC. ? aa093 
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. THIS TASK 1S BEING CHECKPOINTED 

~ EXTENDED TRACE ACTIVE 

. CLOSE HAS BEEN CALLED INDICATOR 

. KEYSORT HAS BEEN CALLED INDICATOR 
- SUSPEND FROM SYS OPERATOR PENDING 
. DATA MODE ESCAPE PENDING 

~ ENQUIRY PENDING 


QUEUEING PRIORITY 


INVALID PRIORITYCCAN NOT BE USED) 
COMMAND PROCESSOR PRIORITY 
SPOOL PRIORITY 

MRJE PRIORITY 

BCS PRIORITY 

3270 EMULATION PRIORITY 
EXTENDED TRACE PRIORITY 
BCS PRIORITY FOR 3270 I/H 
SDLC PRIORITY (PRIMARY) 
SDLC_ PRIORITY (SECONDARY) 
SNA 1 PRIORITY 

SNA 2 PRIORITY 

REBUILD PRIORITY 


#SVAU TCB CHANGE ORG OR DE] 


ERR LOC OBJECT CODE 


SRJE PRIORITY 
SNUF SUBSYSTEM PRIORITY 
SNA PEER SUBSYSTEM PRIORITY 


CCP SUBSYSTEM PRIORITY 
CICS SUBSYSTEM PRIORITY 
IMS SUBSYSTEM PRIORITY 


BSCEL SUBSYSTEM PRIORITY 
INTRA SUBSYSTEM PRIORITY 
BSC _3270 PRIORITY 


MLCA CONTROLLER CHECK ERROR ROUTINE 
SMF PRIORITY 
SOURCE ODFF PRIORITY *KEEP UNIQUE” 


SMF WAIT TASK PRIORITY 
USER DEFINED HIGH PRIORITY 
MEDIUM PRIORITY 


IN THE TCB, THE VALUE IN 


2079 * TCBPRIOR WILL BE TCBPRCNV AND BIT TCBUDMPR WILL BE SET IN TCBBAT. 


OODO 2080 TCBPRCNV EQU§ X‘DO' 


00CO 2081 TCBPRBCH EQU X‘CO' 


CONVERSATIONAL PRIORITY 


BATCH PRIORITY 


2082 * NORMAL (DEFAULT) USER TASK PRIORITY IS TCBPRCNV DYNAMICALLY 
2083 * CHANGED TO/FROM TCBPRBCH BE THE SYSTEM SUPERVISOR. 


9 WO9/11/81 


12/08/81 21:31 


OOBO 2084 TCBPRUDL EQU X'‘BO‘ LOW PRIORITY 


0006 2086 TCBITIME EQU  TCBPRIOR+1 TASK RESIDUAL TIME INTERVAL. 


0007 2088 TCBQCNT EQU TCBTTINE+1  QUIESCE COUNTER 
0009 2089 TCBCMPLQ EQU TCBQCNT+2 TASK EVENT CONTROL QUEUE HEADER 


2090 *AAAAAAAAAAAAA THE ABOVE FIELDS ARE ORDER DEPENDENT AAAAAAARAAAAAAAAAAA 


0008 2092 TCBPUSH EQU TCBCMPLQ+2 — PUSH ELEMENT Q-HEADER 


Q00D 2093 TCBCHAIN EQU  TCBPUSH+2 SYSTEM EXISTENCE QUEUE CHAINING FIELD 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 401 * ECM 00580000 
0000 402 ECMPARN EQ 0 PARM BYTE OFFSET 
0080 403 ECMNSKIP EQU  X'80' DO NOT SKIP ON MULT. WAIT INDICATOR 
03 0040 404 ECNREAL EQU  X‘40" DATA ADDRESS IN 10B IS REAL INDICATOR 
0020 405 ECMTTC EQ X'‘20' TASK-TASK COMMUNICATIONS INDICATOR 
0021 406 ECMIOERR EQU  X‘21' 1/0 ERROR INDICATOR 


an? COMIN tht 


yalwitny TRINTCATAN 


02 


03 


#SVAU CB CHANGE ORG OP 0 


ERR LOC OBJECT CODE 


f 


_ 


HOS 


711781 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 47 VO09/11/81 12/08/81 21:31 5 #SVAU TCB CHANGE ORG OR DETACH TR 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT 
QOOF 2094 TCBRDYQ EQU TCBCHAIN*2 SYSTEM READY QUEUE CHAINING FIELD 02 0002 2148 
OOOF 2095 TCBSWAPQ EQU  TCBRDYQ SYSTEM READY QUEUE SPECIAL EQUATE 2149 
0011 2096 TCBXNTQ EQU TCBROYQ+2 © SYSTEM TRANSIENT QUEUE CHAINING FIELD 
0013 2097 TCBRTUB EQU TCBXNTQ*2 — TUB ADDRESS OF REQUESTOR 03 006A 2151 
2099 *VWWWWWWWWWWWWV THE FOLLOWING FIELDS ARE ORDER DEPENDENT VWWWWVWWWVWVW 0068 2153 
0015 2100 TCBJCBA EQU TCBRTUB+2 ADDRESS OF TASK JOB CONTROL BLOCK 04 
0017 2101 TCBCRB EQU  TCBJCBa+2 CURRENT REQUEST BLOCK POINTER O0E4 2155 
0018 2102 TCBARSE EQU  TCBCRB+1 REGISTER SAVE ELEMENT (LEFT BYTE) OOES 2156 
0019 2103 TCBAXR1 EQU TCBCRB+2 . CURRENT XR1 05 00E6 2157 
0016 2104 TCBAXR2 EQU TCBAXR1+2 —_. CURRENT XR2 0OE7 2158 
001D 2105 TCBAARR EQU TCBAXR2+2 ~ CURRENT ARR OES 2159 
OO1F 2106 TCBAIAR EQU  TCBAARR+2 . CURRENT IAR 06 O0E9 2160 
0021 2107 TCBAPSMR EQU  TCBAIAR+2 . CURRENT PMR/PSR OOEA 2161 
0023 2108 TCBARQ EQU TCBAPSMR+2  . CURRENT R AND Q BYTES OOEB 2162 
0024 2109 TCBAINL] EQU  TCBARQ+1 ~ INLINE PARM 1 07 OOEC 2163 
0025 2110 TCBAINL2 EQU  TCBAINL1+] — . INLINE PARM 2 OOED 2164 
0026 2111 TCBAINL3 EQU TCBAINL2+1] . INLINE PARM 3 OOEE 2165 
0027 2112 TCBAINL4 EQU TCBAINL3+1 . INLINE PARM 4 08 OOEF 2166 
0027 2113 TCBRSE EQU TCBCRB+16 CURRENT REGISTER SAVE ELEMENT OOFO 2167 
2114 *AAAAAAAAAAAAA THE ABOVE FIELDS ARE ORDER DEPENDENT AAAAAAAAAAAAAAANARA 2168 
09 OOF2 2169 
2116 *WWWWWWWWWWWV THE FOLLOWING FIELDS ARE ORDER DEPENDENT VVVWVVVVYVVWWV O0F3 2170 
002A 2117 TCBTSSN EQU  TCBRSE+3 TASK DISK ADDR IN SWAP AREA. OOF4 2171 
002B 2118 TCBBEGL EQU TCBTSSN+l1 LOGICAL PROGRAM BEGIN ATR NUMBER. 10 OOF5 2172 
002B 2119 TCBECNGW EQU  TCBBEGL FOUR BYTE ECM FOR CP WSQS FAILURES O0F6 2173 
002C 2120 TCBMSSIZ EQU TCBBEGL+1 | CURRENT SIZE OF MAIN STORE ALLOCATED. OOFB 2174 
002D 2121 TCBRGSIZ EQU TCBMSSIZ+1 TASK REGION SIZE (MAX. TCBMSSIZ) il OOF? 2175 
2122 *AAAAAAAAAAAAA THE ABOVE FIELDS ARE ORDER DEPENDENT AAAAAAAAAAAAAAAAAAA OOF8 2176 
OOF9 2177 
O02F 2124 TCBSPOOL EQU TCBRGSIZ+2 SPOOL WORK AREA ADDR 12 OOFA 2178 
OO2F 2125 TCBECMER EQU — TCBSPOOL SPECIAL ECM FOR CP ERRORS. OOFD 2179 
002F 2126 TCBAQHDR EQU  TCBSPOOL USED AS SPECIAL SYSTEM Q HEADER. OOFC 2180 
004F 2127 TCBATRS EQU TCBSPOOL+32 ATR STACK SAVE AREA 1 OOFE 2181 
0051 2128 TCBTTC EQU TCBATRS+2 —_TASK-TASK COMMUNICATIONS AREA OOEO 2182 
0053 2129 TCBTWA EQU  TCBTTC+2 DISK ADDRESS OF TASK WORK AREA 
0055 2130 TCBUSWA EQU  TCBTWA+2 DISK ADDRESS OF SESSION WORK AREA 14 0060 2184 
0057 2131 TCBLDREL EQU  TCBWSWA+2 TASK RELOCATION FACTOR FOR LOADER 
0057 2132 TCBMIC QU  TCBLOREL ABTERM ERR MIC 006E 2136 
005A 2133 TCBLDISK EQU TCBLDREL+3 TASK ABSOLUTE DISK ADDR FOR LOADER 15 
0059 2134 TCBSIAR EQU  TCBLDISK-1 SAVE IAR ON ABTERM 0080 2188 
005B 2135 TCBINVCT EQU TCBLDISK+] TASK INVITE COUNT 0040 2189 
005D 2136 TCBASGNQ EQU TCBINVCT+2 ASSIGNED ELEMENTS QUEUE 16 0020 2190 
OO5F 2137 TCBEXIT EQU TCBASGNQ+2 ASYNCHRONOUS EXIT ADDRESS. 0010 2191 
OO5F 2138 TCBAFAIL EQU  TCBEXIT CP ASSIGN FAILURE INDICTOR BYTES 0008 2192 
0067 2139 TCBTQE EQU TCBEXIT+8 — TIMER QUEUE ELEMENT. 7 0004 2193 
0068 2140 TCBSQBCT EQU COUNT OF SECTOR QUEUE REQUESTS 0004 2194 
0069 2141 TCBLCKYK EQU COUNT OF LOCK REQUESTS 0002 2195 
0080 2142 TCBLCKDI EQU INTERLOCK FOR DEDICATION 18 0001 2196 
0040 2143 TCBLCKSI EQU INTERLOCK FOR SCHEDULER 
0020 2144 TCBLCKVI EQU INTERLOCK FOR VTOC O06F 2198 
0010 2145 TCBLCK5S! EQU INTERLOCK FOR FORMAT 5 19 
0008 2146 TCBLCKPI EQU INTERLOCK FOR PROC NAME 0080 2200 
0004 2147 TCBLCKHI EQU INTERLOCK FOR HISTORY FILE 0040 2201 
OF 
G08 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR ST 
428 * FLEQU 00600000 | 02 0002 4 
430 2RROIIOIIOIIOIIISUIOIOUIOOIOIUIO I IOIOIOIOIOUOIOIOIOIOIOIU IO IUGR IOI IIIS OUI IORI IOI 4 
43] * x 03 4 
432 * DISK FORMAT-1 * 
ra TW? =f 


Qryin 
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ERR LOC OBJECT CODE 


NING FIELD 
[AL EQUATE 
CHAINING FIELD 


-EFT BYTE) 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ADDR STMT SOURCE STATEMENT 


0002 2148 TCBLCKSP EQU 
2149 * EQu 


OO6A 2151 TCBSSTID EQU 
006B 2153 TCBTSKID EQU 


OOE4 2155 TCBIDACT EQU 
OOE5 2156 TCBIDITH EQU 
OOE6 2157 TCBIDBTS EQU 
OGE7 2158 TCBIDSNE EQU 
QOES 2159 TCBIDGCE EQU 
OOE9 2160 TCBIDSNF EQU 
OOEA 2161 TCBIDPER EQU 
OOEB 2162 TCBIDCCP EQU 
OOEC 2163 TCBIDCIC EQU 
OOED 2164 TCBIDIMS EQU 
OOEE 2165 TCBIDBEL EQU 
OOEF 2166 TCBIDINT EQU 
OOFO 2167 TCBIDCP EQU 

2168 * EQU 
OOF2 2169 TCBIDJQ £QU 
0OF3 2170 TCBIDSFS EQU 


RE ALLOCATED. 
CBMSS 12) 
AAAAAANARAAAAAAARA 


S. 
} HEADER. 


. AREA 


OOF4 2171 TCBIOMR QU 
OOF5 2172 TCBIDBSC EQU 
OOF6 2173 TCBIDSOP EQU 
OOFB 2174 TCBIDSDS EQU 
OOF? 2175 TCBIDSN1 EQU 
OOFS8 2176 TCBIDSNR EQU 
OOF9 2177 TCBIDBLD FQU 
OOFA 2178 TCBIDSRJ EQU 
OOFD 2179 TCBIDIBS EQU 
OOFC 2180 TCBIDS44 EQU 
OOFE 2181 TCBIDGA EQU 
QOEO 2182 TCBNAXID EQU 


K AREA 
WORK AREA 
OR LOADER 


006D 2184 TCBPRIQ QU 


X‘02' 
X‘O1" 


TCBLCKIK+1 


TCBSSTID+1 


X‘E4* 
X°ES' 
X'E6' 
X'E7" 
X‘E8' 
X'E9' 
X'EA' 


PAGE 48 VO9/11/81 12/08/81 21:31 


INTERLOCK FOR SPOOL FILE 
INTERLOCK FOR RESERVED 


SHARED STORAGE TASK IDSK BITS 
TASK ID 


AUTOCALL TASK ID 6 

BSC IH FOR 3270 EMULATION TASK ID 
BSC 3270 SUBSYSTEN TASK ID 

SNA 3270 SUBSYSTEM TASK ID 

MLCA CONTROLLER CHELK ERROR TASK [0 
SNUF SUBSYSTEM TASK ID 

SNA PEER SUBSYSTEM TASK ID 

CCP SUBSYSTEM TASK [0 

CICS SUBSYSTEM TASK ID 

IMS SUBSYSTEM TASK ID 


BSCEL SUBSYSTEM TASK ID 

INTRA SUBSYSTEM TASK ID 

COMMAND PROCESSOR TASK ID 
RESERVED 

JOB QUEUE TASK ID 

SNA FINANCE SUPPORT ID 


MRJE TASK [D 
BSC TASK ID 
SDLC TASK ID 


#SVAU CB CHA 


ERR LOC OBJECT 


SDLC TASK ID 
SNA TASK ID 
SNA TASK ID 


REBUILD TASK ID 
SRJE TASK [D 
INTERACTIVE BSC TASK ID 


SNA 44 TASK ID 
GAIGI TASK ID 
MAXIMUM USER ID 


TCBTSKID+2 


TCB PRIORITY QUEUE CHAINING FIELD 


FOR LOADER 


OO6E 2186 TCBSTAT4 EQU 


0080 2188 TCBSHDRC EQU 


5 


TCBPRIQ+1 


ADDITIONAL TCB STATUS 


SHUTDOWN RETURN CODE DELIVERED 


0040 2189 TCBATTCH EQU 
0020 2190 TCBSYSTM EQU 
0010 2191 TCBABTRN EQU 


OR BYTES 


QUESTS 


ATTACH YES 
SYSTEM TASK - NOT SUSPENDABLE 
TASK IS _IN ABNORMAL TERMINATION 


0008 2192 TCB22RCS EQU 
0004 2193 TCBCNLPD EQU 
0004 2194 TCBTWACL EQU 


0002 2195 TCBHDMPT EQU 
0001 2196 TCBDMPPD EQU 


RECURSIVE TERMINATION DUE TO SVC 22 
CANCEL PENDING 
C.P. CALLED FOR TWA RECOVERY 


ERROR ON DUMP - PARTIAL DUMP TAKEN 
DUMP PENDING ON CANCEL 


OO6F 2198 TCBSTATS EQU 


0080 2200 TCBTHBIT EQU 


TCBSTAT4+1 


X ‘80° 


STATUS BYTE 5 


TASK HAS BEEN IN TERMINATION 


PAGE 11 


YO9/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE 


0040 2201 TCBCN2PD EQU 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


x'40° 


ADDR STMT SOURCE STATEMENT 


2 OPTION CANCEL PENDING 


GO9 


PAGE 12 09/11/81 


12/08/81 21:31 


0002 482 FIANSPAZ EQU 


x‘02° 


SPINDLE AZ REQUESTED ORIGINALLY 


ROO IOI IOT IOI 
® 


® 


484 * 
435 * 


TF BOTH OF THE PREVIOUS TWO BITS ARE OFF, THEN NO ORIGINAL SPINDLE 
PREFERENCE WAS SPECIFIED 


#SVAU TCB CI 


ERR LOC OBJEl 


i OURL 3813 LiSVo3VE EQU  DTSVCHAN+2 START SS VALUE 05656000 | | 
ODAD 3814 DTSVABYT EQU  DTSVSSVL+1 NUMBER BYTES INDEX 

ODAC 3815 ATALLCOM EQU  DTSVSSVL START OF SWAP/THA POOL 

ODAC 3816 ALSSS  — EQU = DTSVSSVL RETURNED SS VALUE 15 


OEIC _1C 00 0000 FA 
O€21 70 00 01 
0£24 75 02 02 
0£27 DO 01 11 


16 

OE2A F4 00 06 

0E2D 0013 OF. 
17} OE2F 01 OE: 


0£30 36 01 ODAA 
0€34 F2 81 31 


0637 35 02 0141 


OE3B 6C OF OF 27 


H10 


48 VO9/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 49 WO9/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


0020 2202 TCBCN3PD EQU X‘20' 3 OPTION CANCEL PENDING 

0010 2203 TCBMAB™ EQU  X‘10' TASK _IS_IN ABNORMAL TERMINATION 
0008 2204 TCBMSAFL EQU X'08" 2 OPTION-FLUSH PROC 

0004 2205 TCBNSTAB EQU X'‘04' 2 OPTION-CONTINUE PROC 

0002 2206 TCBAEOEO EQU X'02' TAKE ASYNC EXIT ON ERROR ONLY 
0001 2207 TCBDKO EQU  X'0l' DISKETTE ORIENT HAS BEEN PROCESSED 


0070 2209 TCBAWSCT EQU  TCBSTATS+1 — ALLOCATED WORK STATION COUNT 
0070 2210 TCBCATN EQU TCBAWSCT CURRENT ACTIVE TERMINAL COUNT 
0071 2211 TCBCAT EQU TCBAWSCT+] © CURRENT ACTIVE TERMINAL VARIABLE 
0072 2212 TCBMRTMX EQU  TCBCAT+1 MRT MAXIMUM REQUESTORS ALLOVED 
0073 2213 TCBNSCNT EQU = TCBMRTMX+1 = NOT SWAPPABLE COUNTER 

0074 2214 TCBCNCNT EQU TCBNSCNT+1 = NOT CANCELABLE COUNT 


0075 2216 TCBIQCNT EQU TCBCNCNT+1 = NOT INQUIRABLE COUNT 


0076 2218 TCBARQCT EQU TCBIQCNT+1 ACTIVE REQUESTOR COUNT 
0077 2219 TCBSTAT6 EQU TCBARQCT+1 © STATUS BYTE 6 


0080 2221 TCBATNS EQU  X‘80' TASK ATTACHED NON-SWAPPABLE 

0040 2222 TCBOSKTR EQU  X'40' DISKETTE CANCEL RECURSION INDICATOR 
0020 2223 TCBDUMP EQU xX'20' DUMP SHOULD BE TAKEN INDICATOR 

0010 2224 TCBSFILK EQU  X'10' SECURITY-INITIATOR INTERLOCK. 

0008 2225 TCBNDUNP EQU X‘08" NO DUMP WAS TAKEN FOR ERROR CONDITION 
0004 2226 TCBWSILK EQU X'04' WORKSTATION QUEUE SPACE INTERLOCK 
0002 2227 TCBSNARQ EQU  X‘02° SNA REQUIRED 
0001 2228 TCBDEDO EQU X'‘Ol' DEDICATION OVERRIDE INDICATOR. 


0078 2230 TCBBAT EQU  TCBSTAT6+1 —_ BATCH ACTIVE TIMEOUT COUNT 

0080 2231 TCBUDMPR EQU X‘80° MEDIUM PRIORITY (SEE TCBPRIOR) 

0005 2232 BATCOUNT EQU 5 NUMBER OF TIMEQUTS ALLOWED. 
2233 * ONLY BITS 1-7 APPLY TO BATCOUNT. 


0079 2235 TCBSUSPS EQU TCBBAT+1 SUSPENSION STATUS INDICATOR 


0080 2237 TCBSPUNK EQU X'‘80' TASK SUSPENDED DUE TO UNLOCK 

0040 2238 TCBSDTSO EQU X‘40° TASK SUSPENDED DUE TO SYSTEM OPERATOR 
0020 2239 TCBINQSP EQU  X'20" TASK SUSPENDED DUE TO INQUIRY 

0010 2240 TCBSPLSP EQU X'l0' TASK SUSPENDED DUE TO SPOOL SUS/RES 
0002 2241 TCBSDTAC EQU X'‘02' TASK SUSPENDED DUE TO ADDRESS COMPARE 
0001 2242 TCBWIOSP EQU  X'0l' TASK SUSPENDED DUE TO WS I/O ERROR 


OO7A 2244 TCBWAFLG EQU TCBSUSPS+1 — WSWA INITIALIZATION STATUS. 


2246 * SEE TUB MACRO (BYTE TUBHAFLG) FOR BIT DEFINITIONS WITHIN TCBWAFLG. 


OO7C 2248 TCBSMFPT EQU TCBWAFLG+2 SMF POINTER 
2249 * THE FOLLOWING EQUATE IS USED TO SET ON THE X‘80° BIT IN THE HIGH 
2250 * BYTE OF THE SMF POINTER FIELD. CURRENTLY THIS FIELD 1S USED AS 
2251 * A SWAP-IN COUNTER INSTEAD OF AN ADDRESS FIELD. 

0080 2252 TCBSMFON EQU X‘80' SMF HAS PROCESSED THIS TCB 
2253 * 


007D 2255 TCBX EQU  TCBSMFPT+1 = AMOUNT OF TASK SWAPPED OUT 


G10 
#SVAU TCB CHANGE ORG OF 


12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 13 VO9/11/81 12/08/81 21:31 


E 12 09/11/81 


Ol 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


02 02 


SPINDLE 


03 OO1E 537 FIALIVTA EQU  FLADVTOC+] = LENGTH OF THE FIRST VTOC AREA 03 


YQ KARKAAARHKAAHAKRERHAKKAREREK RAE KKK AK EHAR HARARE RE RK AEK ERE ERE KEKE ERR 


49 VO9/11/81 12/08/81 21:31 


UELY WUE oF 


OE1C_1C 00 0000 FA 
0E21 7D 00 01 
0E24 75 02 02 
0E27 DO 01 11 


OE2A F4 00 06 
0E2D 0013 

OE2F 01 

0E30 36 01 ODAA 
0E34 F2 31 31 
0E37 35 02 0141 


OE3B 6C OF OF 27 


3049 BNL = ALLOOO2Z0C, BAS 1) 
#(#), ALSAVEC, BAS1) 
DTSVCHAN-1¢,BAS1),0 
DTSVCHANC, BAS1), F52 


ALL00010¢, BAS1> 


3850 ALLOOO75 NVC 


ASSGN LEN-DTSVLEN 
SVC___SVCASSGN,O ASSIGN REQUEST 
DC = AL2(DTSVLEN) ASSIGN LENGTH 
DC ALIC1+0) ATTRIBUTES 
3858_*** END OF EXPANSION ** 


NO, CHEC, NEXT BYTE 


RESTORE MASTER INDEX 
ANY MORE INDICES ? 
POINT TO NEXT 

YES, CHECK NEXT AREA 


ASSIGN AN AREA 


3859 A DTSVCHAN, XR1 
3860 JE ALLOOO80 


3861 * TCBa R-TCB2 
3862 L 321, 1CB2 
3863_*** END OF EXPANSION ** 


SUCCESSFUL ? 
NO, FAIL TWAL 


XR1-> TCB 


GET TCB ADDRESS. 


MVC DTSVREGCTCBRSE-TCBARSE+1,XR1), TCBRSEC,TCB2) SAVE REG. 


H11 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LUC OBJECT CODE 


ADDR STNT SOURCE STATEMENT 


OO7E 2257 TCBSTAT? EQU  TCBX+1 
2258 * 
0080 2259 TCBSPWIR EQU 


0040 2260 TCBSPLRS EQU 


x‘80° 

X*40" 

0080 2262 TCBLEN EQU TCBSTAT7+2 
2263 *** END OF EXPANSION ** 


PAGE 


TCB STATUS BYTE 7 


50 V09/11/82 


05952500 


SPOOL WRITER ID 
SPOOL TERMINATION 


12/08/81 21:31 


LENGTH OF TCB + EXPANSION. 


#SVAU TCB CHANGE ORG OR Dé 


ERR LOC OBJECT CODE 


al 


13 VO9/11/81 12/08/81 21:31 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


PAGE 


14 V09/11/81 


12/08/31 


21:31 


ERR LOC OBJECT CODE 


#SVAU TCB CHANGE ORG OR 


588 * 
589 * 


FREED BY ALLOCATE FOR NON-INDEXED FILES 


® 


* 


59D RXAARARARARARRRAREARRARRESRRAARER ERE ARAKI RR E KIER I IRIS IK IOI IR IIR 


0028 592 FIADKFYL FOU FIADEDEO4+7 


¥FY | PNGTH 


05951000 


05951500 


H12 
12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 51 VO9/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE 
2265 *® TUB 2308 *AARRKR 
2266 RRERARAAAARRARA RARER EIR IEA RRR RR IIR IR EI IIR IIR IR IERIE ITE IE 2309 * 
2310 * 
TERMINAL UNIT BLOCK FOR TERMINALS 2311 *® 
2312 RRRKRRK 
2210 RERRRAARARAARARRAAAKAK ARERR AK RRA A RII RAR TR RRR IR BIR 2313 * 00 
2271" 00 *01 *02 *03 *04 *05 = * 06 o7 * 2314 * ECM 
2272 * ECM * COMPL* FLAG * CMND * CMOD * UNITa * DATAa id 2315 RERRRAR 
2273 XRRRARARRERAARA REAR ARK KRA RARER RRA RARER ARIK IRR IRI RIT I 2316 * 08 
2274 * 08 09 * OA OF * 2317 * CC 
2275 * COUNT i SENSE BYTES * 2318. RATRER® 
2276 ®RRRRRRARAAERAAARARRE REAR AERA RRR AR RA RAKE RR ARERR RRR RAR 2319 * 10 
2277 * 10 1} aa V4 3*14 "15 *16 *17 * 2320 * : 
2278 * TCBa * CHAIN * DEVID * QHDR * ERPCT * ERBFG * 2321. SRERARRS 
~ 2279 RRRRRAKERARARARARK RAK ARR RRER EK REAR RARER IEEE IIIA IIE IER 2322 * 18 
2280* 18 *19 1A* 1B * 1C W*1E * IF 2323 * ERAID 
2281 * ERAIO * MIC SIOCT 2324 - AERRERAS 
2325 *% = 20 
2283 * 20 * 21 22 * 23 24" 25  *26 *27 2326 * ID 
2284 * 1D * USWA * CB * AID * CPAID * RESVD * 232]: SARRERAS 
22B5 RRRRARARARRAAARAARARAARARRAAAARAK AER ERRER RRR RAR RAK RRA RARER ARK 2328 * 28 
228 * 28 a* 2329 * 
2287 * USER 1D * 2330 ***0PTIC 
2298 RRRARKRRERAAAARERARRARRARRIRRAERARRARERARER AER AA ARAKER RRR RARE RAE 2331 * 30 
2289 * 30 * 31 32 * 33 34°35 *% *% BF 2332 * TUBPSL 
2290 * OPSTS * JCBa * _TUBTUB * ATTRI * ATTR2 * ATTR3 * 2333 ***0PTIO 
229] RXRRRRAARARRKRERRRERRARARAARARARRARAARA ARERR ATR ARR RARER ERR RRR 27334 *® 38 
2292 * 38 *39 *3A * 3B 3C * 30 BE ® 3h 2335 * RESERV 
2293 * ATTR4 * ATTRS * ATTRG * CTSAV bs APRNT * MSGCT * 2336 ***0PTIC 


2294 XRRARARERERRARAARAAHRRAK AREA RAR RARER AREA AERA RAK RE AAR ARERR 
2295 * 40 41 * 42 43844 * 45 * 46 47 * 
2296 * ASGNL a ASGNa * ATTR? * ATTRS * HELPr * 
2297 RRRRRRRRRARAARARAKKKERARAR ARERR RARER RRA AAR ARE EHR RRKARE RRR, 
2298 * 48 * 49 ara 840 AD OE apr 
2299 * ATTRO * RFSS * REN * RFCSS * RFDSP * TUBCMSK ... * 
230 RARAKAAAKARERARARARRARAAAKKARAR AAA ARR ARE RAR KERR AEE RRA 
2301 * 50 * 51 . 53* 54* 55 * 56 57 * 
2302 * CNSK * FASK * — DEXTa * ATTRA * MSGID * TUBDMATX : 
2303 RRRAARERARARAR RRR RARER AREA KARA ARERR AREA KARA RAK RAR RII RRA R. 
2304 * 58 * 59 SA* 5B O* of 
2305 * ATTRB * TUBDGTUB * ATTRC * RESERVED fe 


2306 RXRRAARRRAARAA AR AAKE KARA AK ARE RIAR RARER A RRR REE RIERR IRI IRIE IORT, 


G12 
#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 15 VO9/11/81 12/08/81 21:31 


1 12/08/81 21:31 


01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE 
02 OOlE 641 FIFLAG QU  FIADVTOC+1 1-BYTE FLAG INDICATING THAT RESTART OF 0. 652 * 
642 * SPACK IS REQUIRED FOR THIS FILE. 


OOFE 643 FIRESTRT FOUoy'er CUITCH VAllle THAT 1¢ Plaren Th DIG ac Zag RRRRED 


JI MU 


3931 RRR 

OECE 3932 EN106 

3933 *** E 

OECE F6 00 00 3934 ATPMR 
OED1 74 01 03 3935 
OED4 5F 01 01 5F 3936 
OED8 SC 00 02 57 3937 
OEDC 75 02 5F 3938 


OEDF F2 87 07 3939 


OEE2 BC FF FF 3940 ATOCDI 
OEES AC FE FE FF 3941 
OEE9 76 02 03 3942 ATOCDI 
OEEC 5F 00 00 02 3943 
OEFO 7C 01 02 3944 
OEF3 DO 84 39 3945 


OEF6 02 02 54 
OEF9 F4 01 52 3947 
OEFC OE OEFC 3948 

OEFD 3949 ATLOPF 
OFO8 3950 


81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 52 VO9/11/81 12/08/81 21:3) #SVAU TCB CHANGE ORG OR DETACH TRANSI! 
01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


00800000 2308 RERARAKRKRERRHKRERRRRARER RAE KRERRIERE EERIE RI IIIS IIR III III III ITO 
2309 * * 


2310 * TERMINAL UNIT BLOCK FOR PRINTERS * 
2311 * bi 
7) P Macatalotatatatatalotolotatelalolotetatatatatatelototoiaiotataistaiotainiaiaisisietetanisttatctatetetdstdsieetoeietctetend 
2313 * 00 =-* 01 02 *03 *04 *05 * 06 07 * 
2314 * ECM = * COMPL * FLAG * CMND * CMOD * UNITa * DATAd * 
QBS RARARARARRRAERRARAR RAR IIR IR RR IR TIT R I IIIT IIR IRIE 
2316 * 08 09 * OA OF * 
2317 * COUNT * SENSE BYTES * 
DEH: Mialalatalatatatatalatatalatetalatatatatalalatalatatotatololatatatatatetatetatatsisiainiatstaiinielatebetetetsteiotototcetetete 
2319 *® 10 11 * 12 3*%14 %15 *16 *17 * 
2320 * TCBa * CHAIN * DEVID * QHDR * ERPCT * ERBFG * 
D3Q] RRRRRRARRARARARARARER ARERR RAR ERREREEE RRA RAR IRIE RRR PIII IIE 
2322 % 18 = 19 A* 1B IC 

2323 * ERAID * mic * OPTS. * 

2324 RERRARRARKRAAAAARARRRREERRRIR ARERR IR IIIT REI III II IIR III III TRE 
2325 * 20% 21 22 * 23 24 * 2-8 27 * 
2326 * 1D * CFGa * C8 * PEXTa * RESVD * 
2327 RRRRRRARRKARAAERRERRIRRARERI RR ER ERE RIERIERIERERERII IPRA III III II. 
2328 * 28 2B*20 *2 *2E *2F 
2329 * FORNS NUMBER * FMLN * CRLN * MXPP * DPRST * 
2330 **0PTIONAL ADDITION BELOW*******OPTIONAL ADDITION BELOW****** 
2331 * 30 ® 32 338 34 35. cy Pas 
2332 * TUBPSUBC * TUBPGTUB * PATRI * PLPI * RESERVED ss 
2333 ***OPTIONAL ADDITION ABOVE********QPTIONAL ADDITION ABOVE*®**** 
2334. * 38 2% 39) * 3A OF 3B 3C * 30 a ee 
2335 * RESERVED RESERVED RESERVED e 
2336 ***OPTIONAL ADDITION ABOVE********OPTIONAL ADDITION ABCVE****** 


ERR LOC OBJECT CODE ADDR STMT SOUI 


2338 *** 
2339 * 
2340 *Rm 


0030 2352 TUBS 
0040 2353 TUBS 
0020 2354 TUBS 
2355 * 
2356 * 
2357 * 
2358 * 
2359 * 


0001 2361 TUBC 


0080 2363 TUBS 
0040 2364 TUBS 
2365 * 
2366 * 
2367 * 
0004 2368 TUBA 
2369 * 
0001 2370 TUBS 
0000 2371 TUBS! 


0002 2373 TUBFI 


0080 2375 TUBS 
0040 2376 TUBS! 
0020 2377 TUBAL 
0010 2378 TUBS 
0008 2379 TUBOM 
0004 2380 TUBRI 
0002 2381 TUBR! 
0001 2382 TUBS 


0003 2384 TUBCF 


O0CO 2386 TUBS 
OOEO 2387 TUBSF 
OOCO 2388 TUBSE 
00C1 2389 TUBSP 
00C2 2390 TUBS! 


1/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 16 09/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANS 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


ERR LOC OBJECT CODE ADDR STMT SO 


02! 652 * FSBEQ aa145 90620000 | 0; 0010 706 FS 


OEF6 D2 02 54 3946 LA ATLDPRMC, XR1), XR2 POINT TO LOAD PART 
OEF9 F4 01 52 3947 SVC SVCLOAD, QUAIT FETCH USER TASK 
OEFC OE OEFC 3948 DC ALC SLOMSFCH) 

OEFD 3949 ATLDPRN EQU * LOAD PARM LIST 
OEFD OFO8 3950 0S — CLCSLDDLEN) 


OEDI 74 01 03 ST — ATLGSTRTC, XR1), XRI STORE LOGICAL START ADDR. 
OED4 SF 01 01 5F SLC ATLGEND(2, XR1), ATLOPRMHSLDOLOADC, XR1) DECR. BY LOAD a@ 
OEDS 5C 00 02 57 MVC ATLGSTRT-101,XR1), ATLOPRM+SLDDTEXTC,XR1) SET SECTOR $2 
OEDC 75 02 5F L ATLOPRM+$LDDLOAD(, XR1),XR2  XR2-> START OF PART. 
OEDF F2 87 07 J ATOCDE2 GO ENTER LOOP 
16] OEE2 BC FF FF 3940 ATOCDE] MVI  255(,XR2),X‘FF* SET 256 FOXES 
OEES AC FE FE FF 3941 MVC 254(255, XR2), 255¢, XR2) * IN STOREAGE 
OEED 76 02 03 3942 ATOCDE2 A ATLGSTRTC, XR1), XRZ XR2-> SECTOR TO FOX OUT 
17] OEEC 5F 00 00 02 3943 SLC ATLGEND-1(1,XR1),ATLGSTRT-10,XR1) DECREMENT SIZE TO FOX 
OEFO 7C 01 02 3944 MVE ATLGSTRT-1¢,XR1), 1 SET SI2E TO 1 SECTOR 
OEF3 DO 84 39 3945 BH ATOCDE1¢, XR1) GO FOX NEXT SECTOR 


(2/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 53 VO9/11/81 12/08/81 21:31 01 #SVAU TCE CHANGE ORG OR DETACH TRANSIENT 
0 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE 
2338 ARRARARARAERAARARRRARAARRER RARER ERE EAR I RIERA ES II IIR II III IESE TOIT. 00C3 2391 TUBSCNC 
2339 * TERMINAL UNIT BLOCK (TUB) ig 0080 2392 TUBREXE 
234) RARRKRAKRRAIKARRAR RRR RRARARER ENR REIT RAEI AIR RIK RRR ARR IR TO 0081 2393 TUBRPOL 
03) 0083 2394 TUBRCNC 
0040 2395 TUBMLOC 
2342 XXRRARRARAAAARAR AAR RE RAR ARAA RE RARER RARER RIE RRA RRR IIR RRA RAR IR 00CO 2396 TUBMSUB 
2343 * COMMON SECTION OF THE TUB * 04 0003 2397 TUBDEVI 
2344 RARAAREKAAERARARRRERRRA RR RERRAR RARER REE IIR III I III IORI III ION 
0004 2399 TUBCITD 
TERMINAL [0B / PRINTER OCB OOA7 2401 TUBSPWI 
0027 2402 TUBSOUP 
06 0002 2403 TUBSSAV 
0000 2350 TUBECM EQU 0 EVENT CONTROL MASK ; 0006 2404 TUBSSAV' 
0062 2405 TUBSRDSI 
0080 2352 TUBSSKIP EQU  X'80' - NO SKIP BIT 0? 0042 2406 TUBSROI! 
0040 2353 TUBSREAL EQU X'40° -_ DATA ADORESS IS REAL 0007 2407 TUBSRSTI 
0020 2354 TUBSNIO EQU X'20° . NON 1/0 EVENT 0022 2408 TUBSROME 
2355 * EQU X‘10" - RESERVED (MUST BE ZERO) 
2356 * EQU X'08' «RESERVED (MUST BE ZERO) 0005 2410 TUBUNI Te 
2357 * EQU X04" . RESERVED (MUST BE ZERO) 0007 2811 TUBDATA: 
2358 * FQU  X'02" « RESERVED (MUST BE ZERO) 0009 2412 TUBCOUNT 
2359 * EQU X‘Ol' «RESERVED (MUST BE ZERO) 
000A 2414 TUBSENSC 
0001 2361 TUBCOMPL EQU  TUBECM+1 TOB COMPLETION CODE 
2416 * DATA S 
0080 2363 TUBSACTV EQU  X‘80' . TOB REQUEST ACTIVE 2417 * 
0040 2364 TUBSCTPL EQU  X'40' - TOB REQUEST COMPLETE 2418 * WS COA 
2365 * EQU X‘20' . RESERVED (MUST BE ZERO) 2419 * 
2366 * EQ X"10° . RESERVED (MUST BE ZERO) 2420 * RESOUR 
2367 * EU X‘08" . NOT USED 2421 * 
0004 2368 TUBASGND EQU  X'‘04" ._INPUT BUFFER ASSIGNED 2422 * 
2369 * EQU xX*02" . RESERVED FOR PRINTER 2423 * 
0001 2370 TUBSERR EQU X'‘O1' . ERROR FOUND INDICATOR | 2424 * 
0000 2371 TUBSRACT EQU  X'‘00' ~_ REMOTE ACTIVE 2425 * 
2426 * 
0002 2373 TUBFLAG EQU TUBCOMPL+1 FLAG BYTE 2427 * 
0080 2375 TUBSUERP EQU  X'SO' . INDICATES USER DEFINED ERP 0008 2429 TUBSENS! 
0040 2376 TUBSNOZ EQU X‘40' . NO RETURN ON PERMANENT ERROR 
0020 2377 TUBAUTOB EQU  X‘20' ~ AUTO INPUT BUFFER ASIGNMENT 2431_* SCREEN 
0010 2378 TUBSVH =EQU  X'l0° - TUB NOT ALLOWED OFF VERTICAL TUBCHAIN 2432 * 
0008 2379 TUBONL QU X‘08' . DEVICE ONLINE 2433 * 
0004 2380 TUBRIISU EQU  X‘04' . READ INPUT ISSUED TO TUB 2434 * 
0002 2381 TUBRINCN EQU X'02° . READ INPUT NOT COMPLETE 2435 * 
0001 2382 TUBSDTCS EQU  X'01' - DATA IN CONTROL STORE 2436 * 
2437 * 
0003 2384 TUBCMND EQU  TUBFLAG+] 1OB COMMAND BYTE 2438 * 
2439 * 
0OCO 2386 TUBSDA EQU  X'CO' - LOCAL WORKSTATION DEVICE ADDRESS 
OOEO 2387 TUBSPNAV EQU = X‘EO' . NATIVE PRINTER DEVICE ADDRESS O00C 2441 TUBSENS2 
OOCO 2388 TUBSEXEC EQU = X‘CO' - EXEC 1/0 OPERATION CODE 
0OC1 2389 TUBSPOLL EQU  X'Cl' ~ EXEC INVITE OPERATION 2443 * 


QOC2 2390 TUBSIDLE EQU = X'C2'’ « QUIESCE 2444 * 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE =17 ~VO9/11/81 12/08/81 21:31 #SWAU TCR CHANGE ORG OR DETACH TRANSIENT 


12/08/81 21:31 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE 


0010 706 FSBLLNTH EQU  FSBDATT3+1 LENGTH OF A TYPE ONE FSB 129 * 
0000 730 QHDNUL 
108 RXRRRRURRKRRAARARRARRAKARARAR ARR K RR RRK REAR RAR RK KERR RRR RIAA RRR ERE 0001 731 QHDHI 
709 * * 0 0020 732 DEQUEU 
0000 733 QUEUE 


710_* THE FOLLOWING FIELDS ARE ONLY SUPPORTED IN A TYPE TWO FSB e 


SATSSSN C 001 
SATSYSTK C 001 
SATTSKIO C 001 


SLDOTOT C 001 
SLDFETCH C 001 


v09/11/81 12/08/81 21:31 ®SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 54 VO9/11/81 12/08/61 21:31 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR 

x 00C3 2391 TUBSCNCL EQU X‘C3" . CANCEL INVITE OPERATION 
x 0080 2392 TUBREXEC EQU _X'80' ._ REMOTE EXEC 1/0 OPERATION CODE 
7 0081 2393 TUBRPOLL EQU  X‘81' . REMOTE INVITE OPERATION 

0083 2394 TUBRCNCL EQU  X'83" . REMOTE CANCEL INVITE OPERATION 

0040 2395 TUBMLOCL EQU _x‘40° . THIS TUB IS A LOCAL TUB 
3 00CO 2396 TUBMSUB QU X‘CO" . (OFF) IF OFF, THIS IS A SUB 


: 0003 2397 TUBDEVIC EQU TUBCMND DEVICE ADDRESS 
0004 2399 TUBCMO’ EQU  TUBCMND+1 TOB COMMAND MODIFIER CODE 


OOA7 2401 TUBSPWI EQU X'A7' . PUT WITH INVITE OPERATION 

0027 2402 TUBSOUPT EQU = X°‘27' . OUTPUT OPERATION 

0002 2403 TUBSSAVE EQU X'02' . SAVE TABLE OPERATION 

0006 2404 TUBSSAVS EQU X'06' - SAVE SCREEN OPERATION 
as 0062 2405 TUBSRDSN EQU Xx ‘62° . READ SCREEN INPUT OPERATION 

0042 2406 TUBSRDIN EQU X‘42° . READ INPUT FIFLDS OPERATION 

0007 2407 TUBSRSTR EQU X'07" ._ RESTORE OPERATION 

0022 2408 TUBSROMD EQU X'22° . READ MODIFIED INMEDIATE 


Ste Md RSPR Bk BOEAGE Bc REL Kk 


0005 2410 TUBUNITa EQU  TUBCMOD+1 UNIT ADDRESS 
0007 2411 TUBDATAa EQU TUBUNITa+2 DATA BUFFER ADDRESS 
0009 2412 TUBCOUNT EQU TUBDATAa+2 = DATA TRANSFER BYTE COUNT 


QOOA 2414 TUBSENSO EQU TUBCOUNT+1 = SENSE BYTE 0 


2416 * DATA STREAM REJECT * REFERENCE GROUP 1 IN TUBSENS4 
2417 * EQU  X‘80" . DATA STREAM REJECT 

2418 * US CONTROL FIELD ERROR * REFERENCE GROUP 2 IN TUBSENS4 
2419 * EQU X*40' - US CONTROL FIELD ERROR 

2420 * RESOURCES NOT AVAILABLE  * REFERENCE GROUP 3 IN TUBSENS4 

2421 * EQU X'20° - RESOURCES TEMPORARILY NOT AVAILABLE 
2422 * EQU ‘10° - WS CONTROLLER DBO/DBI PARITY CHECK 
2423 * * REFERENCE GROUP 4 IN TUBSENS4 
2424 * EQU X08" ~ OPERATION CHECK 

2425 * EQU X‘04" -_¥S CONTROLLER STORAGE PARITY CHECK 
2426 * EQU X‘02" . RESERVED 

2427 * EQU X‘Ol" . WS CONTROLLER LONG TIME OUT 


2429 TUBSENS] EQU TUBSENSO+] = SENSE BYTE 1 


2431 * SCREEN FORMAT ERROR * REFERENCE GROUP 5 IN TUBSENS4 
2432 * . SCREEN FORMAT ERROR 

2433 * i . NO RESPONSE TIME OUT 

2434 * ._ TRANSMIT ACTIVITY CHECK 

2435 * . ACTIVATE COMMAND FATLURE 

2436 * : « RECEIVE PARITY CHECK 

2437 * ‘04' ~ RECEIVE LENGTH CHECK 

2433 * “02° . NOT USED 

2439 * ‘Ol’ - EVEN/ODD TIME OUT 


OO0C 2441 TUBSENS2 EQU TUBSENSI+1 SENSE BYTE 2 


2443 * EQU. X'80" _ DEVICE HUNG BUSY 
2444 * EQU K*40" . LINE PARITY CHECK 


615 
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VO9/11/81 12/08/81 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR 


02 729 * HEADR 00640000 | 0 003¢ 
0000 730 QHDNULL EQU  xX‘00' NULL QUEUE HEADER VALUE 003£ 
RR 0001 731 QHDHI FQU. xX‘OI' HIGH VALUE FOR QUEUE HEADER ADDRESS 0041 


layi NAW? F779 Mefwiciw Orel OR as nea ny! ran 


SATSSSN C 001 0014 0126 0127 
SATSYSTK C 001 0008 0132 
T4{SATTSKID C 001 0016 0136 = 0137 
SATTUBA C 001 0010 0124 0125 0126 
SATTUBAS C 001 0020 0110 0119 
J5)S$LOAMID C 001 0010 3034 ALLOO010 A 004 
SLODLEN C 001 O00C 3022 3724 3950 ALL00015 A 004 
SLDDLINK C 001 0005 3016 ©3017 3200 3201 = 3723* 
16{$LDDLOAD C 001 000B 3021 3022 3936 3938 
SLODRLD C 001 0008 3018 3020 
SLODSS C001 0002 3014 3015 3171 3171* 3172 3189 3350 
T7}SLDDSTRT C 001 0007 3017 3018 
SLDOTEXT C 001 0003 3015 3016 3209 3937 
SLODTOT C 001 0009 3020 3021 
18} SLDFETCH C 001 0004 3032 3043 
SLDMECHA C 001 0006 3044 3045 
SLOMFTCH C 001 0004 3043 ©3044 
19) SLOMLOAD C 001 0002 3041 3042 
SLDMSFCH C 001 OO0E 3045 3948 
SLONSLD C001 000A 3042 


H16 


1/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


2445 * . UNIT NOT AVAILABLE (PRINTER ONLY) 
2446 * EQU X‘10" - OUTSTANDING STATUS 


2447 * EXCEPTION STATUS EQUATES START 

2448 * EQU X‘OE* . NO STATUS CALL BITS OFF) 

2449 * EQU X02" ~ NULL OR ATTRIBUTE ERROR 

2450 * EQU X'04" « INVALID ACTIVATE 

2451 * EQU xX‘06" . RESERVED 

2452 * EQU X'08" ~_INVALID COMMAND OR DEVICE ID 
2453 * EQU X‘OA' . INPUT QUEUE OR STORAGE OVERRUN 
2454 * EQU x'0C’ . INVALID REGISTER VALUE 

2455 * EQU. X‘OE" POWER ON TRANSITION 


EXCEPTION STATUS EQUATES END 
EQU. xX‘O1" . EVEN/ODD RESPONSE LEVEL 


0000 2459 TUBSENS3 EQU TUBSENS2+1 SENSE BYTE 3 


OOOE 2461 TUBSENS4 EQU  TUBSENS3+1 SENSE BYTE 4 ~- ERROR CODES 


2463 * GROUP 1 - DATA STREAM REJECT ERRORS 
2464 * ( REFERENCE TUBSENSO BITO > 


2466 * EQU X‘OL' . PREMATURE END OF DATA STREAM 
2467 * EQU X‘02' -_INVALID ROW/COLUMN ADDRESS 


2468 * EQ X‘03" - RA ADDRESS IS LESS THAN PRESENT VALUE 
2469 * OF THE ADDRESS COUNTER 
2470 * EQU. x'04" . ESCAPE CHARACTER MISSING OR INVALID 
247) * COMMAND CODE 
2472 * EQU  X"05° - INVALID START FIELD LENGTH 
2473 * EQU X'06' -_ INVALID START FIELD ADDRESS 0013 2527 
2474 * EQU XO?" - RESTORE ISSUED TO WRONG DISPLAY STATION 
2475 * EQU X‘08" . INPUT FIELD PAST END OF SCREEN 0014 2529 
2476 * EQU X'09" - FORMAT TABLE OVERFLOW 
2477 * EQU X‘OA‘ . DATA WRITTEN PAST END OF SCREEN OOEO 2531 
2478 * EQU  X‘0B* . START OF HEADER LENGTH 7= 3 O0E1 2532 
2479 * EQU X‘OC* « ROLL PARAMETER ERROR O0E2 2533 
2480 * EQU. X‘OD' - TOO MANY FORMAT CONTROL WORDS DEFINED OOE3 2534 
00CO 2535 
2482 * GROUP 2 - WS CONTROL FILED ERRORS 
2483 * ( REFERENCE TUBSENSO BIT1 > 0015 2537 
2485 * x01" -_INVALID COMMAND MODIFIER 0016 2539 
2486 * EQU X*02" - INVALID BYTE COUNT (0 OR 4096) 
2487 * EQU X03" . DEVICE ADDRESS NOT FOUND 2541 
2488 * EQU X04" . BYTE COUNT 7= ACTUALLY TRANSFERED 2542 
2543 
2490 * GROUP 3 - RESOURCES TEMPORARILY NOT AVAILABLE ERRORS 
2491 * C REFERENCE TUBSENSO BIT2 ) 0017 2545 
2493 * EU X"O1' . PRINTER BUSY DURING WRITE ATTEMPT 2547 
0002 2494 TUBSDEAD EQU  X'02° -_US_IN ERROR MODE 2548 
2495 * EQU ‘03° . DEVICE OFFLINE ERROR 2549 
24% * EQU K"04" . PRINTER NEEDS INITIALIZATION 
0005 2497 TUBSNRAD EQU  X'05* . NOT READY DUE TO OPERATOR ERROR MODE 9018 2551 
2498 * OR SYS REQ MODE OO1A 2552 


G16 


TITEL D708 21 BSVAU CB CHANGE ORG OR DETACH TRANSIENT 19 0971/8] 12/08/81 21:31 #SvAl) TCR CHANGE GRG OR DETACH 1 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STr 


OO3C 778 QHOTINER EQU  X'3C" INTERVAL TIMER TQE QUEUE (TQE) 
OO3E 779 QHDTINEA EQU  X'3E' INTERVAL TIMER ACE QUEUE (ACE) 
0041 780 QHDSPTCB EQU X*41° CURRENT TASK EXECUTING (TB) 


83 


ALCON3 A002 O€76 3888 3881 
J4ALLBIT C001 OOFF 3082 
ALLOC A001 ODAE 3818 3658 3668 
ALLOO005 A 004 O0B5 3822 3880 
15] ALLO0010 A 004 ODB9 3823 3853 
ALLOOO15 A 004 ODD] 3829 3826" 
ALLO0020 A 003 ODDF 3833 3825 3843 3848 3849 
16/ALLO0030 A 005 ODE2 3834 3846 
ALLOOO40 A 003 ODE? 3835 —3833* 3841 3845 3845" 
ALLOO045 A 005 ODF] 3838 — 3827* 3830* 
17}ALLOO050 A 004 ODFD 3841 3836 3748* 37 
ALLOOO6O A 003 O£01 3842 3841" 
ALLOOO70 A 004 OEOB 3845 3840 
18} ALLO0075 A 005 OEIC 3850 3828* 3831* 
ALLOOOSO A 006 OF68 3881 3860 
ALLOOO90 A 001 OE6E 3882 3844 
19}ALMONE A 002 OE78 3889 3795 3947 
ALSAVE A035 OEA2 3895 3829" 3838 3350 
ALSIZ A 001 OE72 3886 — 3832* 3830* 3343* 
, 
: H17 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT S 
0006 2499 TUBSRDUK EQU xX ‘06' . READ ISSUED TO UNLOCKED KEYBOARD ERROR 02 
0007 2500 TUBSPOFF EQU  X‘07' WS IS POWERED OFF 0018 2554 T 
2501 * EQU X'08" . RESERVED 
2502 * EQU X'09" . SAVE OR RESTORE ERROR 03 2556 * 
2557 * 
2504 *® GROUP 4 - OPERATION CHECK ERRORS 2558 * 
2505 * ( REFERENCE TUBSENSO BIT4 ) 04 
2560 * 
2507 * EQU. X‘O1" ~ SERDES TIME OUT 2561 * 
2508 * EQU X'02" . TIME OUT ON CYCLE STEAL DATA 05 2562 * 
2509 * EQU X'05' ~_ATOM NOT PROCESSING KEYSTROKES 
OO1D 2564 TI 
2511 * GROUP 5 - SCREEN FORMAT ERRORS 06 OO1E 2565 TL 
2512 * ( REFERENCE TUBSENS1 BITO ) 0020 2566 TL 
=r 0022 2567 TL 
2514 * EQU X‘O1' . INVALID FIELD LENGTH ERROR 07 0022 2568 TI 
2515 * EQU X‘02' . RESEQUENCE ERROR IN FORMAT TABLE ; 0024 2569 TI 
2516 * EQU  x‘03" . CHECK DIGIT ERROR 2570 * 
03} 0024 2571 Tl 
OOOF 2518 TUBSENSS EQU  TUBSENS4+1 SENSE BYTE 5 
219 * FQU X‘08" 
OOOF 2520 TUBSENSE EQU TUBCOUNT+6 SENSE BYTES 09 
0011 2521 TUBTCBA EQU TUBSENSE+2  TCB ADDRESS FOR DATA BUFFER ATRS 
2573 * 
2523 * 10 2574 * 
2524 * ERROR RECOVERY BLOCK (ERB) 2575 ** 
2525 * 
il 
0013 2527 TUBCHAIN EQU  TUBTCBa+2 TUB CHAIN FIELD 2577 * 
2578 * 
0014 2529 TUBDEVID EQU TUBCHAIN'] TUB DEVICE ID FOR ERP 12 2579 * 
OOEO 2531 TUBSTANZ EQU  X‘EO" ~ 5211 LINE PRINTER 0025 2581 TU 
OOE1 2532 TUBSPRMA EQU  X°EL" . 5256 WORKSTATION SERIAL PRINTER 13 0026 2582 TU 
OOE2 2533 TUBSNGLD EQU  X'E2' . 650 LPM LINE PRINTER 0027 2583 TU 
OOE3 2534 TUBSMITR EQU  X'E3* . METRE PRINTER 002F 2584 TU 
OOCO 2535 TUBSKBOP EQU X'CO' . KEYBOARD DISPLAY WORKSTATION 14 0030 2585 TU 
0032 2586 TU 
0015 2537 TUBQHDR EQU TUBDEVID+] QUEUE HEADER POINTER FOR PRINTER 0034 2587 TU 
15 
0016 2539 TUBERPCT EQU TUBQHDR+1 ERP CONTROL BYTE 0035 2589 TU 
2541 * 16 0080 2591 TU 
2542 * SEE THE ERBOCTL FIELD OF THE ERB MACRO FOR ASSOCIATED MASKS. 0040 2592 TU 
2543 * 0070 2593 TU 
7 0010 2594 TU 
0017 2545 TUBERBFG EQU  TUBERPCT+] ERB FLAG BYTE 0008 2595 TU 
0004 2596 Til 
2547 * 18 0002 2597 TU 
2548 * THE ERBDFLG FIELO OF THE ERB MACRO FOR ASSOCIATED rASKS. 0001 2598 TUI 
2549 * 
19 0036 2600 TU 
0018 2551 TUBERAID EQU  TUBERBFG+1 ERROR AID FLAG BYTE 
OOIA 2552 TUBRIC QU TUBERAID+2 ERP MESSAGE 1D CODE 2602 ** 
0 


11/81) 12/08/81 21:31 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT S 
832 * = ---- THRU ---- 836 * 
835.% EQU X'BE' RESERVED 
834 *** END OF EXPANSION ** 838 * 


13}CSBOSCa C 001 


3748* 3752 3757 3758 3761 


0190 
CSBDAT2 C 001 0016 0290 0300 
0200 0223 


CSBDBNSI C 001 
CSBDCNFG C 001 


0373 
0374 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


001B 2554 TUBOPTS EQU — TUBMIC+1 ERP MESSAGE OPTIONS 


ERR LOC OBJECT CODE ADDR STI 


2556 * 

2557 * SEE THE ERBOOPT FIELD OF THE ERB MACRO FOR ASSOCIATED NASKS. 
2558 * 

2560 * 

2561 * MISCELLANEOUS DATA 


2562 * 


001D 2564 TUBSIOCT EQU TUBOPTS+2 START [0 COUNT 

OO1E 2565 TUBERRCT EQU TUBSIOCT+1 — ERROR RETRY COUNT 

0020 2566 TUBWSID EQU  TUBERRCT+2 LOGICAL ID OF THE TERMINAL OR PRINTER 

0022 2567 TUBWSWA EQU  TUBWSID+2 SS OF WORK STATION WORK AREA 

0022 2568 TUBPCFGA EQU — TUBWSWA SS OF PRINTER CONFIGUARTION RECORD 

0024 2569 TUBTCB QU  TUBPCFG@+2 TUB OWNER TCB ADDRESS AND ... 
2570 * PRINTER QHOR 

0024 2571 TUBCOMON EQU  TUBTCB END OF COMMON PORTION OF TUB 


D513 RRRRKKRAARARRERERAR RARE IR RII RREIERRIIEIEIIIIRRIRITIIRIIIR IRRA 


2574 * DEVICE DEPENDENT SECTION OF THE TUB ‘g 


2575 RARRRRRRRRRERRRARARR AERA ERE REE RE RE RIERA RII IR IERIE IIR ISI III III 


2577 * 
2578 * DISPLAY DATA 


0001 2631 


2579 * 0038 2633 
0025 2581 TUBAID EQU TUBCOMON+] AID BYTE CENTER, REC ADV , ETC. (DISPLAYS) 0080 2635 
0026 2582 TUBCPAID EQU  TUBAID+1 AID BYTE CINQUIRY, SYS REQ) (DISPLAYS) 0040 2636 
0027 2583 TUBDRESV EQU  TUBCPAID+1 RESERVED BYTE 0020 2637 
002F 2584 TUBUSER EQU TUBDRESV+8 OPERATOR ID 0010 2638 
0030 2585 TUBOPSTS EQU TUBUSER+1 OPERATOR STATUS 0008 2639 
0032 2586 TUBJCBA EQU TUBOPSTS+2 ADDRESS OF JCB 0004 2640 
0034 2587 TUBTUB €QU TUBJCBa+2 TUBCHAIN FOR SYS REQ AND INQUIRY 0002 2641 
0001 2642 
0035 2589 TUBATTR1 EQU  TUBTUB+1 ATTRIBUTE BYTE 1 
0039 2644 
0080 2591 TUBNCN £QU xX'‘80' . MASTER CONSOLE 
0040 2592 TUBACN EQU X‘40' « ALTERNATE CONSOLE 0080 2646 
0070 2593 TUBCMDT EQU xX‘20° - COMMAND TERMINALCON)-DATA TERTCOFF) 0040 2647 
0010 2594 TUBSGN QU X'‘l0’ . TERMINAL SIGNED ON 0020 2648 
0008 2595 TUBTSRQ EQU X‘08' ~_ TEST REQUEST MODE 0010 2649 
0004 2596 TUBSTPJ EQU X‘04' . JOB INITIATION NOT ALLOWED 0008 2650 
0002 2597 TUBLIOFR EQU X°‘02' . HSA FORMATTED WITH LIO DISPLAY 0004 2651 
0001 2598 TUBFCNSL EQU  X'‘O1' - CONSOLE MODE FORCED BY I/0 ERROR 0002 2652 
0001 2653 
0036 2600 TUBATTR2 EQU TUBATTRI+1 TERMINAL NODE AND DISPLAY 
003A 2655 


2602 REARERRRAKRAKERAARRIARRRR ERA R EKER ER RRR IRR RIK IIR IIR IR IRR IADR, 


VO9/11/81 12/08/81 21:31 
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#SVAU TCB CHANGE ORG OR DETACH 1 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STM 


836 * JCBEQ 0004 89 


0030 89 


ARAN On 


Q2ZQ RHKREMARAAKARAAIR KEK KARI IKE KEKE KKK RR KRARRRRAEKAREEKREOKERERUREER 
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14CSBDSDLC C 001 
CSBDSIOB C 001 
CSBDSNAC C 001 

15] CSBDSTB1 C 001 
CSBDSTB2 C 001 
CSBDTCBA C 001 

16}CSBDTCB1 C 001 
CSBOTCB2 C 001 
CSBDTCB3 C 001 

17}CSBOTCB4 C 001 
CSBDTIDa C 001 
CSBOUTCB C 001 

18}CSBDWORK C 001 
CSBOWRKE C 001 
CSBOWRKS C 001 

19/CSBLDEF C 001 
CSBMALLC C 001 
CSBNATCL C 001 

0 


0271 
0277 
0253 
0255 
0265 
0224 
0210 
0211 
0212 
0213 
0302 
0225 
0390 
0280 
0279 
0385 
0185 
0395 


0272 


0254 
0265 
0271 
0225 
0211 
0212 
0213 
0215 
0304 
0226 
0397 
0281 


0280 
0386 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 
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14) CSBMNRJE C 001 


#SVAU TCB CHANGE ORG OR DETACH TI 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STN’ 
2603 * TERNINAL MODE INDICATORS ® 0080 265% 
2604 KARKRKRARRARK RR RAEI KIA III IPI ISR III III ISI IR IR IIIT I TOR III ISI III III 0040 2655 
2605 * 1XXX - STANDBY MODE = *® 0X00 - INITIAL MODE x 0020 265: 
2606 * OOXX - CONSOLE MODE * 0101 ~ DATA NODE x 0010 266( 
2607 * 0110 - COMMAND MODE * O111 - INTERRUPT MODE is 0008 2661 
2608 KRRRAKRKKRARAARAE RK RAR AAR K RARE RRR RRA KARA IRRITATION 0004 2662 
0080 2609 TUBMSTDY EQU X'80' ~ TERMINAL IN STANDBY MODE CON) 0002 266: 
0040 2610 TUBMCNSL EQU  X‘40' ~_ TERMINAL IN CONSOLE MODE (OFF) 0001 2664 
0040 2611 TUBMWSTN EQU X‘40° « TERMINAL IN WORKSTN MODE CON) 
0020 2612 TUBMCMD EQU X'20' . TERMINAL IN COMMAND MODE COND 003C 2666 
0010 2613 TUBMDATA EQU  X‘10' _TERMINAL_IN DATA MODE CON) 003E_2667 
0070 2614 TUBMOME EQU X'70' ~ TERMINAL IN DATA MODE ESCAPE CON) 003F 2668 
0030 2615 TUBMINIT EQU X‘30' ~ TERMINAL IN INITIAL MODE COFF> 0080 2668 
0040 2670 
0008 2617 TUBNENUA EQU X'08' . MENU DISPLAY ACTIVE 0041 2671 
0004 2618 TUBSTATA EQU X'04' . STATUS DISPLAY ACTIVE 0043 2672 
0002 2619 TUBINPA EQU  X‘02' « SYSIN/SYSLOG DISPLAY ACTIVE 
0001 2620 TUBMSGA EQU X'01' « MSG DISPLAY ACTIVE 0044 2674 
0037 2622 TUBATTR3 EQU  TUBATTR2+] _INVITE INDICATORS 0080 2676 
0040 2677 
0080 2624 TUBIIS EQU X‘80' . INVITE SCHEDULED TO TUB 0020 2678 
0040 2625 TUBINI X'40' - IMPLICIT INVITE TO TUB 0010 2679 
0020 2626 TUBIPS X‘20° . TUB INVITED VIA PRUF 0008 2680 
0010 2627 TUBIARF X‘10° ~ AUTO RUF INVITE 0004 2681 
0008 2628 TUBSIIS x ‘08 ' - SAVE FOR TUBIIS STATUS 0002 2682 
0004 2629 TUBSINI x04" . SAVE FOR TUBINI STATUS 0001 2683 
0002 2630 TUBSIPS X'02' . SAVE FOR TUBIPS STATUS 
0001 2631 TUBSIARF EQU  X'Ol1' ~ SAVE FOR TUBIARF STATUS 0045 2685 
0038 2633 TUBATTR4 EQU TUBATTR3+1 = [NQUIRY/SYS REQ AND MISC 0080 2687 
0040 2688 
0080 2635 TUBHZQ EQU X‘80' . TUB ON HORIZONTAL QUEUE 0020 2689 
0040 2636 TUBING] x*40" « INQUIRY] TUB 0010 2690 
0020 2637 TUBINQ2 K'20' - INQUIRY2 TUB 2691 
0010 2638 TUBIQP X'10° . INQUIRY MENU TS PENDING 2692 
0008 2639 TUBRST1 X‘08" . RESTORE SCREEN - INQ OR SYS REQ 2693 
0004 2640 TUBRST2 X'04' ~ RESTORE SCREEN - MSG OR SYSLOG 2694 
0002 2641 TUBLIOS x02" . SYSIN/SYSLOG DISPLAY HAS BEEN SAVED 
0001 2642 TUBIDEL x'01' . | DELETE FUNCTION IS ACTIVE 0047 2696 
0047 2697 
0039 2644 TUBATTR5 EQU TUBATTR4+1 = RELEASE INDICATORS 
0048 2699 
0080 2646 TUBORY  EQU « RESTORE-Y ON OCL STATEMENT 
0040 2647 TUBORN EQU . RESTORE-N ON OCL STATEMENT 0080 2701 
0020 2648 TUBLOP  EQU . LAST OP TO THE TUB WAS A PUT 0040 2702 
0010 2649 TUBRSW EQU ~ RELEASE STOP INV WORKED 0020 2703 
0008 2650 TUBRSF  £QU . RELEASE STOP INV FAILED 0010 2704 
0004 2651 TUBREL  EQU . TUB HAS BEEN RELEASED 0008 2705 
0002 2652 TUBSRQ EQU ~ SRT HAS RELEASED REQUESTOR 0004 2706 
0001 2653 TUBABTRM EQU . CALL TERMINATOR PRIOR TO RELEASE 0002 2707 
0001 2708 
003A 2655 TUBATTR6 EQU  TUBATTR5+1 
2710 
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#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ADDR STMT SOURCE STATEMENT 
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02 


a) ee F 


00660000 }02 0004 890 JCBDSCH3 EQU JCBDSCH2+1 © SCHEDULER BYTE THREE 
0080 891 JCBMSEOJ EQU  X'80' SYSLOG - SUPPRESS 2 OPTION HALT 
0040 892 JCBMSOFF EQU xX'40' SYSLIST OFF SELECTED BY HALT OPTION 
3 0020 893 JCBMSPRT EQU X'‘20' SYSLIST PRINTER SELECTED BY HALT OPTION 03 
0010 894 JCBMREST EQU  X‘10' RESERVE STATEMENT RECEIVED THIS JOB 
WNR 8O5 IfRMCrCOT cnil yng: CVCIICT COT CCI EPTON OV UAIT ADTINAD 


*SVAU TCB CHANGE ORG OR DETACH T 


ERR LOC OBJECT CODE 


ADDR STM 


T4/CSBMMRJE C 001 0082 0174 14/CSBN3285 C 001 
CSBMMRWR C001 0001 0264 
CSBMNSGT C001 0002 0230 
]5|/CSBMNDMP C 001 0010 0269 
CSBMNHLT C 001 0008 0270 
CSBMANSG C001 0040 0393 
16] CSBMNRNC C 001 0000 0228 
CSBMONTR C 001 0008 0186 
CSBMOPND C 001 0020 0184 
17|CSBNPEI C 001 0080 0376 
CSBYPINT C 001 0004 0262 
CSBMRID C001 0001 0291 
18} CSBNRGNO C 001 0040 0258 
CSBMRQYS C 001 0080 0256 
CSBNRTOM C001 0001 0229 
19/CSBMRTRY C 001 0040 0377 
CSBMSDLP C 001 0083 0175 
CSBNSL C001 0004 0207 
0 
“H20 
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1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR 
* 0080 2657 TUBUSUP EQU X'80' . USER DISPLAY IS UP 02 004A 
RRR 0040 2658 TUBUSSV EQU X'40' . USER DISPLAY SAVED 0048 
* 0020 2659 TUBSYLST EQU  x'20° ~ SYSLIST DISPLAY UP 004C 
® 0010 2660 TUBMBDCF EQU X'10' . BROADCAST FAILURE 03 004D 
® 0008 2661 TUBMRDTA EQU  X‘08' . MRT PROC WITH DATA ENTERED 
RE 0004 2662 TUBSRILK EQU  X'‘04" . SAVE/RESTORE INTERLOCK 004E 
0002 2663 TUBHPND EQU X'‘02' . HELP FUNCTION PENDING 04 0080 
0001 2664 TUBKBULK EQU  X‘O1' ._ KEYBOARD UNLOCKED 0040_ 
0020. 
003C 2666 TUBCTSAV EQU TUBATTR6+2  SAVEAREA FOR TUBCOUNT 05 0010 | 
003E 2667 TUBAPRNT EQU TUBCTSAV+2 ID OF ASSOCIATED PRINTER 0008 | 
003F 2668 TUBMSGCT EQU MESSAGE COUNT 0004 
0080 2669 TUBNSGRT EQU . LEVEL O INQ MSG HAS BEEN REROUTEDCREL4) 06 0002 | 
0040 2670 TUBMSGR2 EQU ~ LEVEL 1 INQ (SG HAS BEEN REROUTEDCREL4) 0001 | 
0041 2671 TUBASGNL EQU ASSIGNED BUFFER LENGTH 004F 
0043 2672 TUBASGN@ EQU TUBASGNL+2 ASSIGNED BUFFER ADDRESS 07 0080 ; 
0040 ; 
0044 2674 TUBATTR? EQU 0020 7 
08 0010 ; 
0080 2676 TUBSRQPD EQU . SYS REQ IS PENDING 0008 : 
0040 2677 TUBIOERR EQU : 0004 ; 
0020 2678 TUBMIQDS EQU . INQUIRY DISABLED ON THIS TUB 09 0002 7 
0010 2679 TUBCMORJ EQU ~ COMMAND REJECT ON THIS TUB 0001 ; 
0008 2680 TUBREADY EQU . TUB IN READY MODE 0050 7 
0004 2681 TUBLIOER EQU . LOGICAL I/O ERROR 10 0080 
0002 2682 TUBLIOIP EQU . LOGICAL 1/0 IN PROGRESS 0040 7 
0001 2683 TUBRDYIP EQU . READY FUNCTION IN PROGRESS 0620 7 
ll 0010 7 
0045 2685 TUBATTRS EQU TUBATTR7+1 ATTRIBUTE BYTE 8 0008 7 
0004 7 
0080 2687 TUBALRM EQU X'80' . SOUND ALARM AND TURN ON LIGHT 12 0002 2 
0040 2688 TUBLTOFF EQU  X'40' . TURN OFF MESSAGE LIGHT 0001 2 
0020 2689 TUBASENT EQU  X'20° . ALARM HAS BEEN SENT 0050 2 
0010 2690 TUBMDDTA EQU X"10" . MODIFIED DATA TAG 3 0051 2 
2691 * EQU X08" . RESERVED FOR WSIOCH 0080 2 
2692 * EQU X‘04" ~ RESERVED FOR WSIOCH 0040 2 
2693 * EQU  X‘02' . RESERVED FOR WSIOCH 14 0020 2 
2694 * FQU X'O1' . RESERVED FOR WSIOCH 0010 2 
0008 2 
0047 2696 TUBHELPM EOU TUBATTR8+2 HELP KEY MIC AREA 15) 0004 2 
0047 2697 TUBGCHAR EQU — TUBHELPM OR GAIJI CHARACTER ON AID REQUEST 2 
2 
0048 2699 TUBATTR EQU TUBHEL?M+1 ATTRIBUTE BYTE 8 16 0053 2 
2 
0080 2701 TUBBADGE EQU  X‘80° . THIS TUB HAS BADGE SECURITY 2 
0040 2702 TUB960 EQU X‘40' . THIS TUB [S FOR A 960 CHAR SCREEN V7 2 
0020 2703 TUBMENU2 EQU  X‘20' . DISPLAY PAGE 2 OF MENU ON 960 0054 2 
0010 2704 TUBNRTSC EQU X10" . MRT SECURITY SWITCH 0080 2 
0008 2705 TUBSVRD EQU X‘08' . REJECT IN READY FUNCTION 13 0040 2 
0004 2706 TUBSVER] EQU  X'04' . ERROR DURING SAVE - STATUS OR CNSL SYSLG 0020 2 
0002 2707 TUBSVER2 EQU  x‘02‘ . ERROR DURING SAVE - SYS REQ OR INQUIRY 0010 2 
0001 2708 TUBRDYPD EQU  X'‘01' . READY TASK IS PENDING 19 2 
2 
20 * REJECT FILE INDEX 0008 2 
20 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR 
02 0080 944 JCBMWPNT EQU  X'80' WAITING FOR PRINTER 02 005A 
0040 945 JCBMWLIN EQU  X'40° WAITING FOR COMMUNICATION LINE 005C 
0020 946 JCBMWOKT EQU  X‘20° WAITING FOR DISKETTE 
N 03 0010 947 JCBMMDSK EQU  X‘10' WAITING FOR DISK SPACE 03 0061 
0008 948 JCBYWINT EQU  X'08' INITIATOR WAITING FOR RESOURCES 
NN4 O40 IC RMLIMMY EN y'nat LWITIA COND A MOT NICO MDTMAY Pry rs 


a ee 


CSBN3282 C 001 
14/CSB3285 C 001 
CSBM3286 C 001 
CS8M3287 C 001 
15]CSBM3288 C 001 
CSBM3289 C 001 
CSBM3290 C 001 
16] CSBM3295 C 001 
CSBM3299 C 001 
CSBIB301 C 001 
17) CSBM3302 C 001 
CSBN3303 C 001 
CSBN3304 C 001 
18] CSBM4689 C 001 
CSBM469C C 001 
CSBN4691 C 001 
19] CSBN4692 C 901 
CSBM4693 C 001 
CSBM4694 C 001 
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ERR LOC OBJECT CODE 


0337 
0350 
0338 
0349 
0339 
0340 
0345 
0315 
0316 
0322 
0341 
0342 
0343 
0344 
0368 
0369 


0360 
0361 
0362 
0363 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 
1 


ADDR STMT SOURCE STATEMENT 


004A 2711 TUBRFSS EQU 

004B 2712 TUBRFN EQU  TUBRFSS+1 

004C 2713 TUBRFCSS EQU  TUBRFN+] 

004D 2714 TUBRFDSP EQU  TUBRFCSS+1 
2715 * 

OO4E 2716 TUBCNSK] EQU TUBRFDSP+1 

0080 2717 TUBCMDS EQU X'80' 

0040 2718 TUBCMD? EQU  X'‘40' 

0020 2719 TUBCIDS EQU X‘'20' 

0010 2720 TUBCMDS EQU X'10' 

0008 2721 TUBCMD4 EQU  X'‘08' 

0004 2722 TUBCND3 EQU X'‘04' 

0002 2723 TUBCMD2 EQU X‘02' 

0001 2724 TUBCMD] EQU X‘01' 

OO4F 2725 TUBCNSK2 EQU  TUBCNSK1+1 

0080 2726 TUBCMD12 EQU  X'‘80' 

0040 2727 TUBCMO11 EQU  X‘40' 

0020 2728 TUBCMD10 EQU 

0010 2729 TUBCMDS EQU 

0008 2730 TUBCMO24 EQU 

0004 2731 TUBCMD23 EQU 

0002 2732 TUBCM022 EQU 

0001 2733 TUBCMD21 EQU 

0050 2734 TUBCMSK3 EQU 

0080 2735 TUBCMD20 EQU 

0040 2736 TUBCMD19 EQU 

C320 2737 TUBCMDI8 EQU 

0010 2738 TUBCMD17 EQU 

0008 2739 TUBCMD16 EQU 

0004 2740 TUBCMD15 EQU 

0002 2741 TUBCMD14 EQU 

0001 2742 TUBCMO13 EQU 

0050 2743 TUBCMSK 

0051 2744 TUBFMSK 

0080 2745 TUBPRT 


TUBATTR9+2 


0040 2746 TUBRLUP 
0020 2747 TUBRLON 
0010 2748 TUBCLER 


PAGE 


REJECT FILE - SS 
REJECT FILE - NUMBER SECTORS 


REJECT FILE ~ CURRENT SECTOR 
REJECT FILE - RELATIVE DISPLACEMENT 


FIRST COMMAND KEY MASK BYTE 
ENABLE COMMAND KEY 8 
ENABLE COMMAND KEY 7 
ENABLE COMMAND KEY 6 
ENABLE COMMAND KEY 5 
ENABLE COMMAND KEY 4 
ENABLE COMMAND KEY 3 
ENABLE COMMAND KEY 2 

ENABLE COMMAND KEY 1 
SECOND COMMAND KEY MASK BYTE 
ENABLE COMMAND KEY 12 
ENABLE COMMAND KEY 11 


ENABLE COMMAND KEY 9 
ENABLE COMMAND KEY 24 


ENABLE COMMAND KEY 23 
ENABLE COMMAND KEY 22 
ENABLE COMMAND KEY 21 


THIRD COMMAND KEY MASK BYTE 
ENABLE COMMAND KEY 20 
ENABLE COMMAND KEY 19 


ENABLE COMMAND KEY 18 
ENABLE COMMAND KEY 17 
ENABLE COMMAND KEY 16 


ENABLE COMMAND KEY 15 
ENABLE COMMAND KEY 14 
ENABLE COMMAND KEY 13 


COMMAND KEY MASK 
FUNCTION KEY MASK 
ENABLE PRINT KEY 


ENABLE ROLL UP KEY 
ENABLE ROLL DOWN KEY 
ENABLE CLEAR KEY 


0008 2749 TUBHELP 
0004 2750 TUBRCBK 
2751 * 


2752 * 


0053 2753 TUBDEXTa EQU TUBFISK+2 


ENABLE HELP KEY 
ENABLE RECORD BACKSPACE KEY 
RESERVED 


RESERVED 
REMOTE WORKSTATIONS TUB CRUSTB) 


2754 * NOTE: THE ABOVE EQUATE 1S THE DISPLAY STATION TUB POINTER 


2755 * TO THE RWS TUB. 


SEE PRINTER EQUATES FOR THE PRINTER 


2756 * TUB'S POINTER TO THE RWS TUB. 


0054 2757 TUBATTRA EQU  TUBDEXTa+] 


ATTRIBUTE BYTE 10 


0080 2758 TUBCLRAD EQU X‘80' 
0040 2759 TUBS$LOCK EQU X‘10' 
0020 2760 TUBMOFF EQU  X'‘20' 


. CLEAR AIDS 
« LOCK CONTROL 
OFF OCL STATEMENT RECEIVED 


0010 2761 TUBMHOLD EQU = X‘I0' 
2762 * 
2763 * 


- HOLD PARAMETER FOR OFF COMPAND CON) 
NOTE THAT IF THIS BIT IS NOT ON 
IT INDICATES THE DROP PARAMETER 
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ERR LOC OBJECT CODE 


0008 2764 TUBSUBCN EQU Xx ‘08' 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ADDR STMT SOURCE STATEMENT 


- SUBCONSOLE WORKSTATION 


PAGE 


02 


03 


04 


05 


10 


11 


12 


13 


ERR LOC OBJECT CODE 


#SVAU TCB CHANGE ORG OR DETACI 
01 


ADDR | 


#SVAU TCB CHANGE ORG OR DETAC 


ERR LOC OBJECT CODE 


ADDR 


005A 998 JCBDIJQST EQU 
005C_ 999 JCBDSPID EQU 


JCBOJBRG+3 
JCBDJQST+2 


JOB QUEUE JOB START TIME (JOBQ JOBS) 
SESSION PRINTER ID (RELEASED L/S JOBS) 


03 


MW4A1 1001 IPRN INAN EN IP RDME NE +2 


ton NAME ¢TIMEC CTAMDS 


fai 


DT000355 A 005 


OTSVSIZ C001 0012 3150 3151 3865* 3871 
DTSVSSWL A 005 ODAC 3813 3814 3815 3016 
15]DT00A107 A 003 OAAS 3442 3431 15] 07000365 A 005 
DT00B107 A 003 OAB7 3448 3443 
DT000010 A 003 O82F 3185 3173 3179 
16]DT000011 A 003 0871 3208 3199 16|DT002000 A 003 
0T000012 A 005 O87F 3212 3214 
000013 A 004 0898 3219 3217 
17]DT000014 A 004 08B6 3241 3235 17}ECMACTV C 001 
DT000015 A 003 O08C1 3248 3191 3228 3242 
DT000030 A003 OSCB 3251 3300 
18]DT000031 A 004 O8DA 3256 3254 16}EcNCsB C001 
07000036 A 005 0911 3272 3257 ECNGW CC 001 
DT000040 A 003 0923 3277 3289 ECMING C001 0022 Oat 
19}DT000042 A 004 093A 3284 3282 IOJECMIOERR C 001 0021 04 
0T000055 A 003 0945 3287 3279-3285 ECMLOCK C001 0010 04 
DT000060 A 004 O94F 3290  3273* ECHMASK C 001 


H22 
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#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 
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ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 0004 2765 TUBMCOUT EQU § X'04' . ENTER HAS BEEN PRESSED AT THE SUBCNSL 
0002 2766 TUBNOSUB EQU xX '‘02' -_ASSIGN NOSUB ACTIVE ON THIS DEVICE 
0001 2767 TUBRDMOD EQU  X'01' « PERFORM READ MODIFIED 

0055 2768 TUBMSGID EQU TUBATTRA+] = NEXT REPLY [D TO USE AT SUBCONSOLE 


0057 2769 TUBDMATX EQU  TUBMSGID+2 ADDRESS OF SUBCONSOLE MATRIX 


ENT 03 


0058 2771 TUBATTRB EQU TUBDMATX+1 ATTRIBUTE BYTE 11 


0080 2773 TUBKDPLY EQU  X'80" - [GC CAPABLE DISPLAY 


05) 0040 2774 TUBKKBD EQU X'‘40' - 1GC CAPABLE KEYBOARD 
0020 2775 TUBMKANJ EQU  X'20' . THIS SESSION IN IGC_NODE 
0010 2776 TUBGAIJD EQU X‘10' - EXTD PROCESSING ON 
06 0008 2777 TUBRJFOV EQU X‘08' . FILE OVERFLOW OF THE REJECT FILE 
2778 * EQU_ xX '04" ._ RESERVED 
aos 2779 * EQU X'02' . RESERVED 
07 2780 * X01" . RESERVED 
OO5A_2781 TUBDGTUB EQU  TUBATTRB+2 DISPLAY STATION POINTER TO GAIJI TUB 
2782 * REFERENCE GEXTB MACRO FOR DESCRIPTION 


005B 2783 TUBATTRC EQU TUBOGTUB+] ATTRIBUTE BYTE 12 


0080 2785 TUBOILGJ EQU X‘80' . 0 OPTION TAKEN ON INVALID EXTN CHAR 
09 0040 2786 TUBOUNGJ EQU X'‘40' - 0 OPTION ON AN UNDEFINED EXTN CHAR 

0020 2787 TUBORMFL EQU  X'‘20' 0 OPTION ON A RAM FULL ERROR 

0010 2788 TUB2RF EQU X'10' - 2 OPTION TAKEN ON A RAM FULL ERROR 
10 0008 2789 TUB2IG EQU xX‘08' . 2 OPTION ON AN INVALID EXTN CHAR 

0018 2790 TUB2UG EQU  X'18' 2 OPTION ON AN UNDEFINED EXTN CHAR 

0004 2791 TUBMHELP EQU X‘04' . HIGH LEVEL HELP AID IN PROGRESS 


0002 2792 TUBIOPT EQU X‘02' . 1 OPTION TAKEN ON ABOVE ERROR 

0001 2793 TUBRANER EQU X'O1' SET OFF WSQS _INTLK ON LOAD RAM ERROR 
OO5SF 2794 TUBRSVD EQU TUBATTRC+4 — RESERVED 

0060 2795 TUBLEN EQU  TUBRSVD+1 LENGTH OF A DISPLAY TUB 


ll 


2 


13 


2797 * 


2798 RARRARRIRRIR II IR IIR II ICR OR IORI IRR RII TRIE IORI IDI TORI R TT TOI 


2799 * PRINTER UNIQUE PORTION OF THE TUB 


2BOO AAAI IIR IR RII IIIOIOR SIRI IRR TION I ICTR TOR TORII TO TOTO TOR TOTO TO TOR 


2801 * 


0026 2803 TUBPEXTa EQU TUBCOMON+2 — RENOTE WORKSTATION TUB ADDRESS PRINTERS) 
0027 2804 TUBPRESV EQU TUBPEXTa+l RESERVED BYTE 
002B 2805 TUBPFMNO EQU  TUBPRESV+4 FORMS NUMBER 
002C 2806 TUBPFMLN EQU = TUBPFMNO+] = FORMS LENGTH CLINES/PAGE) 

0020 2807 TUBPCRLN EQU TUBPFMLN+1 = CURRENT LINE 

0O2E. 2808 TUBPMXPP_EQU  TUBPCRLN+1] MAX PRINT POSITION (HORIZONTAL) 
002F 2809 TUBDPRST EQU TUBPMXPP+1] = PRINTER STATUS BYTE 


7 


13) 0080 2810 TUBSPUPM EQU  X'80' . POST USER ON ERROR MESSAGE 
0040 2811 TUBSDPST EQU X‘40' « PRINTER PAST READY 
CON) 0020 2812 TUBSEXTD EQU = X'20' « THIS PRINTER TUB HAS AN ADDITION 
19) 2813 * EQU X‘10° ~ RESERVED 
2814 * EQU X‘08' RESERVED 
2815 * EQU X'04' . RESERVED 


G22 
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#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


GE = 24 -VO9/11/81 12/08/81 21:31 


01 


ERR LOC OBJECT CODE ADDR STNT SOURCE STATEMENT ERR LOC OBJECT CODE 


1052 * NUCEQ 00680000 | 02 


1053 FOR FORO ROO OO III ICI SOCR IORI OOO TORO TR RIOR 


1054 * MAIN STORAGE NUCLEUS is 


1055 2 ROR OOOO IORI IER IOI TOT II TR ITI TI III. 


JOBS) 02 
JOBS) 


03 03 


LOG RRR RRR IIR RIOR RIOR FOR I TORTI RIOR RIOR TCT ROCIO IORI TOR IK IT TO TOT TOT TOR 


1057 * ADDR NAME SIZE CHEX) SIZE CDEC) LABEL = * 


TOS 78 OOOO OOOO IO TORO: 


3713 
3716 3718 
3722 


14{0T000350 A 005 
0T000355 A 005 


0T000360 A 004 
15] 07000365 A 005 
0T000370 A 004 


3727 
3731 3733 


07000380 A 003 
16/0T002000 A 003 
DT002010 A 004 


ECMASK C 001 


H23 


9/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2816 * EQU. X'02' 
2817 * EQU. X'01' ~_ RESERVED 

0030 2818 TUBPLEN EQU TUBDPRST+1 — LENGTH OF A BASIC PRINTER TUB 


2819 RERKKKRAAKKAAAAAAKRAKK ARK AK RA ARKERA RANK IK IKK IRA RIOR IR IIR IORI IORI ROR IOI I ROK 


2820 * PRINTER TUB ADDITION s 
2821 RERRERRERARARA RARER RARER RRR RAR RRR RARER IIR IRIE AIR TOR IR TORR IR RR 
0031 2822 TUBPSUBC EQU —TUBPLEN+] SUBCONSOLE LOGICAL ID 
0033 2823 TUBPGTUB EQU  TUBPSUBC+2 —_ POINTER TO GAIJI TUB (PRINTERS) 
2824 * REFERENCE GEXTB MACRO FOR DESCRIPTION 
0034 2825 TUBPATR1 EQU TUBPGTUB+1 = PRINTER ATTRIBUTE BYTE ONE 
0080 2826 TUBKPNTR EQU  X‘80' ~ 1GC CAPABLE PRINTER 
0040 2827 TUBGAIJP EQU X‘40' . EXTD PROCESSING ON FOR THIS PRINTER 
EQU X'20° . RESERVED 
EQU X‘10' «RESERVED 


. RESERVED 
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EQU X'‘08" . RESERVED 
EQU  X'04' . RESERVED 
EQU X‘02' ~_RESERVED 
EQU X‘O1' . RESERVED 
0035 2834 TUBPLPI EQU TUBPATRI+1 LINES PER INCH 
2835 * LEFT NIBBLE = LAST VALUE SENT 


12/08/81 21:31 


2836 * RIGHT NIBBLE = DEFAULT VALUE 
003F 2837 TUBPERES EQU RESERVED AREA 
0040 2838 TUBPELEN EQU LENGTH OF A PRINTER TUB WITH ADDITION 


TUBPLPI+10 
TUBPERES+1 


FSBMOPLB C 001 
FSBMOPLD C 001 
FSBMOPNW C_001 
FSBMOPSR C 001 
FSBMHKAS C 001 
FSBNIFIL C 001 
FSBMIFLY C 001 
16]FSBMIPT C 001 
FSBMII1SH C 001 
FSBMKEYS C 001 
17] FSBNKYST C 001 


FSBMSIZE C 001 


#SVAU TCB CHANGE ORG OR DETACH TE 


01 


ERR LOC OBJECT CODE ADOR STM 
02 2842 
2843 

2844 

03) 2845 
0001 2846 

0000 2847 

04 0002 2849 
0004 2849 

0000 2850 

05 0040 2851 
0000 2852 

2853 

06 2854 
2855 

0000 2856 

0? 0001 2857 
0002 2858 

0003 2859 


2839 * 
2840 *** END OF EXPANSION ** 


10 OOOA 2866 


1 O00C 2869 


0022 2871 
12 2872 
0020 2873 


002E 2874 
13 002F 2875 
0030 2876 


0031 2877 
14 2878 
0037 2879 


0038 2880 
15 0039 2881 
2882 


16 2884 


17 0001 2887 


13) 0008 2890 


19 OOOF 2893 


99/11/81 12/08/81 21: #SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


VO9/11/81 
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#SVAU TCB CHANGE ORG OR DETACH Tf 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STM 

00680000 | 02, 1106 * 0380 TERMINATION DUMP I0B 0020 32 NUADPIOB * 02 113] 
1107 * * 0000 113; 

1108 * 0300 ‘TERMINATION OUNP ACE 0010 16 NUA@DPACE * 113: 

03 1109 * ® 03 0000 113: 

1110 * 03EQ PERMANENT SWAP ACE 0010 16 NUASPACE * 0100 113¢ 


FODPUrLY © OUL QUO Oly 
FSBMOPLB C 001 0020 0684 
14] FSBMOPLD C 001 0010 0670 
FSBMOPNW C 001 0008 0671 
FSBMOPSR C 001 0004 0672 
15] FSBMHKAS C 001 0002 0677 
FSBMIFIL C 001 0020 0720 
FSBMIFLY C 001 0010 0721 
16]FSBMIPT C001 0008 0701 
FSBMI1SH C 001 OOFF 0663 
FSBMKEYS C 001 0008 0686 
17} FSBMKYST C 001 0040 0683 
FSBMLBST C 001 0002 0688 
FSBNLNBK C 001 0080 0667 
18] FSBMNFAL C 001 0080 0682 
FSBMOLMV C 001 0010 0700 
FSBMOPD C 001 0080 0697 
19}FSBMOPT C001 0004 0702 
FSBMRF1 C001 OOFE 0664 
FSBMSIZE C 001 0040 0668 
Oj 


11/81 12/08/81 21:31 #SVAU CB CHANGE ORG OR DETACH TRANSIENT 
01 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


H24 
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ERR LOC OBJECT CODE ADDR STMT SO 


2842 * TWAEQ 00820000 {02 0027 2896 Ti 
2843 * 0033 2897 Th 
2898 * 


2844 * GENERAL TASK WORK AREA ACCESS EQUATES 


2845 * 
0001 2846 TWAPUT EQU X'‘01' 
0000 2847 TWAGET EQU X'00' 
0002 2848 TWASYS EQU X'02' 
0004 2849 TWAWSWA EQU  X‘04' 
0000 2850 TWATWA =EQU = X'00' 
0040 2851 TWAREAL EQU X‘40' 
0000 2852 TWAXLATE EQU X‘00' 

2853 * 


003C 2899 Th 


PUT TO TASK WORK AREA 

GET FROM TASK WORK AREA 

SYSTEM REQUEST ¢ XR1 = TCB a ) 
USE WORKSTATION WORK AREA 

USE ALLOCATED TASK WORK AREA 
DATA AREA IN REAL STORAGE 

DATA AREA IN TRANSLATED STORAGE 


2854 * WORKSTATION WORK AREA - ONE PER COMMAND WORKSTATION 


2855 * 
0000 2856 TPP#EQV EQU 0 
0001 2857 TWA#PS12 EQU 1 
0002 2858 TWA#PS34 EQU 2 
0003 2859 TWAPS56 EQU 3 
0004 2860 TWA*PS783 EQU 
0005 2861 TWAYPS9A EQU 
0006 2862 TWASPSBC EQU 
0007 2863 TWAYPSDE EQU 
0008 2864 TWAAPSFO EQU 
0009 2865 TWAALCL EQU 
QOOA 2866 TWAPSINS EQU 
000B 2867 TWAYYDSA EQU 
O00C 2868 TWAASAVE EQU 
000C 2869 TWAMUSER EQU 
0017 2870 TWAYINQ EQU 
0022 2871 TWAALGIO EQU 

2872 * 
0020 2873 TWAMISSS EQU 
OO2ZE 2874 TWAYCOMM EQU 
002F 2875 TWAYLOGR EQU 
0030 2876 TWAMLOGC EQU 
0031 2877 TWASTKNQ EQU 

2878 * 
0037 2879 TWAMOCLC EQU 


0038 2880 TWASXLAT EQU 
0039 2881 TWAYRRNG EQU 
2882 * 


2883 * 
2884 * COMMAND PROCESSOR TAGS 
2885 * 


TAG 0 - SAVE AREA FOR RD EOV 
TAG 1 ~ PROCEDURE PARM SAVE AREA 
TAG 2 - PROCEDURE PARM SAVE AREA 
TAG 3 - PROCEDURE PARM SAVE AREA 
TAG 4 - PROCEDURE PARM SAVE AREA 
TAG 5 ~ PROCEDURE PARM SAVE AREA 
TAG 6 ~ PROCEDURE PARM SAVE AREA 
TAG 7 - PROCEDURE PARM SAVE AREA 
TAG 8 ~ PROCEDURE PARM SAVE AREA 
TAG 9 - LOCAL AREA 
TAG 10- SYSIN SAVE AREA 
TAG _11- MRT DATA SAVE AREA 
TAG 12~ SAVE/RESTORE AREA CLENGTH-33) 
USER SAVE AREA (12-22) 
INQUIRY SAVE AREA (23-33) 
: LOGICAL 1/0 RESERVED AREA ¢34-44) 
TAG 44- END OF SAVE/RESTORE AREAS 
TAG 45- WORK STATION CONFIGURATION 
TAG 46- COMMUNICATIONS CONFIGURATION 
TAG 47- SYSLOG RESPONSE DATA 
TAG 48- SYSLOG COMMINCATIONS TO CONSOLE 
TAG 49- TASK MESSAGE QUEUE AREA 
TAG 54- ENO OF MESSAGE QUEUE AREA 
TAG 55- OCL COMMAND SAVE AREA 
TAG 56- TRANSLATE TABLE AREA 
TAG 57- DUAL MESSAGE ROUTING AREA 
TAG 58- RESERVED THRU 59 


"000 2886 TWAMNUSE EQU 
0001 2887 TWASCO1 EQU 
2888 * 


TAG 00- NOT USED 
TAG O1- SYSTEM CONSOLE IMAGE 
TAG 07- END 


0014 2889 TWAYCEND EQU 
0008 2890 TWAQO] EQU 
2891 * 


NUMBER OF IMAGES 
TAG 08- MESSAGE QUEUE 
TAG 13- END OF MESSAGE QUEUE TAGS 


QOOE 2892 TWAACURI EQU 
OOOF 2893 TWAYSCSV EQU 
OOOF 2894 TWAACNSL EQU 


TAG 14- CURRENT SYSTEM PRINTER IMAGE 
TAG 15- SYSTEM CONSOLE SAVE/RESTORE AREAS 
CONSOLE SAVE AREA (15-26) 


711/81 12/08/81 21: 
ERR LOC OBJECT CODE 


001B 2895 TWAMISSA EQU 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ADDR STMT SOURCE STATEMENT 


WORKSTATION SAVE AREA (27-38) 


G24 
*SVAU TCB CHANGE ORG OR DETACH TRANS 


PAGE = 27 =VO9/11/81 12/08/81 21:31 
ERR LOC OBJECT CODE ADDR STMT SC 


1131 * * 02 0390 1185 NL 
0000 1132 NUFIXNUC EQU X'000' MAIN STORAGE NUCLEUS - FIXED AREA 0008 1186 NL 
1133 * 1187 * 
0000 1134 NU@SCA EQU = NUFIXNUC SYSTEM COMMUNICATION AREA 03 0398 1188 NL 


LOPPLAUAF OT © OUL OULD 0905 


3397% 3398 
3787* 3788 3 
3822* 3823 3 
3774" 

3725 3728 3 


0457 
0537 0546 0641 


H25 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE 


1 12/08/81 21:31 


00820000 0027 2896 TWAYSTAT EQU STATUS SAVE AREA (39-50) 02 aoi2 * 

0033 2897 TWAERPS EQU TAG 51- 1/0 ERP SAVE AREA FOR MSG BUILD 2913 RRRRKR 
2698 * TAG 52- RESERVED THRU 59 So 2914 FARRAR 

003C 2899 TWASCSHQ EQU TAG 60- CONSOLE SYSLOG MESSAGE QUEUE. 03 2915 ** 
2900 * TAG_119- END OF CONSOLE MESSAGE QUEUE. 2916 RRAHRK 
2901 ® 2917 RARKKK 
2902 * TWA EXTENSION ELEMENT EQUATES 04 
2903 * 

0002 2904 TWAKRAP EQU 02 TWA AVATLABLE TRACKS NAP D919 RRR 

0003 2905 TWAXMAPL EQU 03 LENGTH OF MAP FIELD 05 2920 * GENE! 

0004 2906 TWAXNEXT EQU _TWAXMAP+2 CHAIN FIELD 2921 RARAAR 


0006 2907 TWAXSS EQU —TWAXNEXT+2 
0007 2908 TWAXN = EQU = THAXSS+1 
0008 2909 TWAXLEN EQU — TWAXN+1 


DISK ADDRESS OF THIS ELEMENT 
CONTAINS LENGTH OF MAP FIELD 
LENGTH OF TWAE 


0080 2922 XEXANII 
0040 2923 XEAOFF 
0020 2924 XEBOFF 


2910 *** END OF EXPANSION ** 0010 2925 XFERCTI 
07 0020 2926 XNTPRI\ 
0008 2927 XNTARES 
OOF 2928 XNTARES 
08 0008 2929 XFERIA 
0004 2930 XFEREA 
0002 2931 XFEREBC 
09 0001 2932 XFERWPL 
2933 KRRARKI 
2934 ® “SYST 
10} 2935 RRERKKS 
0000 2936 RRSVDOC 
0001 2937 RFIND 
11 0002 2938 ROPEN 
0003 2939 RCLOSE 
0004 2940 REOJ 
12 0005 2941 RSLOG 
0006 2942 RSLIST 
0007 2943 RSIN 
13 0008 2944 RSGET 
0009 2945 RSISG 
OO0A 2946 RLIBRY 
14 000B 2947 RVTOCFD 
000C 2948 RALLOC 
000D 2949 RDALOC 
15 OOOE 2950 RSALOC 
OOOF 2951 RINFO 
0010 2952 RVTORD 
16 0011 2953 RSNAP 
0012 2954 RPGHLT 
0013 2955 RDMCALL 
V7 0014 2956 RPRALGN 
0015 2957 RCPRT 
0016 2958 RLOPEN 
13 0017 2959 RWSDM 
0018 2960 RSWSDH 
0019 2961 RFINOLT! 
19 001A 2962 RAFA 
0018 2963 RSPOOL 
O01C 2964 RSPALC 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


1 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 28 09/11/81 12/08/81 21:31 
1 


ERR LOC OBJECT CODE ADDR STMT SOURCE 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 0390 1185 NUADSTQE EQU NUBCSETC+NULACE DISPATCHER TQE 02 1228 * 
0008 1186 NULTQE EQU 8 * (LENGTH OF A TQE) 0001 1229 PUSHOC! 
1187 * 0003 1230 PIISHOS: 


| 


8/81 21:31 


08/81 21:31 


JCBDDTFA C 001 0054 0989 0991 


; H26 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 65 09/11/81 12/08/81 21:31 


Ne eae. we a 


JCBDRGSZ C 001 002A 0953 

13] FLAMXTND C 001 0080 0549 13] JCBORTCD C 001 002F 0959 
FIFLAG C001 OO1E 0641 0645 JCBDSCH] C 001 0002 0869 
JCBDSCH2 C001 0003 0879 

14/FISSEND C 001 0027 0647 14{ JCBDSCH3 C 001 0004 0890 
FISSTRT C001 0021 0645 JCBDSCH4 C 001 0063 1014 
FL C001 0001 3135 JCBOSCHS C001 0062 1003 
15] F12 C 001 0002 3136 — 3397* 3398 15] JCBDSLLC C 001 0040 0981 
F51 C 001 0001 3106 —_3787* 3788 3795* 3798* 3800 JCBDSLLR C001 0055 0991 
F52 C001 0002 3105 —3822* 3823 3629 3830 3831 3635 3042 3047* 3852" JCBDSLOB C 001 002) 0957 
16} TAR C001 0010 3054 © 3774% 16} JCBDSLST C 001 O00E 0924 
TARX C001 0008 3092 3725-3728 (3917 JCBDSPID C 001 005C 0999 
108 C 001 0001 3055 JCBDSSBa C001 0001 1039 
17] JCBDBFRA C 001 O06F 1028 1031 17] JCBDSTAT C 001 0029 0943 
JCBOCCBA C 001 0003 1040 1041 JCBDUPSI C 001 0006 0910 
JCBDCTBA C 001 0052 0987 0989 JCBDURIL C001 003F 0969 
18] JCBDCRLB C 001 0010 0928 0929 18} JCBDUR2L C 001 0041 0970 
JCBDCSBP C 001 0065 1024 1026 JCBDUSER C 001 0060 1026 
JCBDCTAG C 001 002B 0955 0957 JCBDUSR1 C 001 0037 0965 
19} JCBDDATE C 001 0009 0920 0922 19] JCBOUSR2 C 001 0039 0966 
JCBDDFRG C 001 0056 0993 0995 JCBDWSBP C001 0016 0933 
JCBDIPRC C 001 0020 0937 


20 


weet 
0955 
0961 
0879 
0890 
0900 
1024 
1004 


3236* 3241 


3415 3417* 


1029 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


01 01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STINT SOURCE STAT! 
2913 EERO OER IOC URIO OOOO TORO IIT TOTO TOTTI TOT OO1E 2966 RTTC EQ 
2914 RRRRRARRARARRARRRRARK ARK RAK RRA RARARR ARERR ARR AR RARER AAR AR RAR KARR RARER RR OO1F 2967 RCPTC EQ 
03 2915 ** MAIN STORAGE TRANSIENT AND TRANSFER CONTROL RIB EQUATES ar 03) 0020 2968 RSETX EQ 
PI 1 Malatatalatatetatatalatalatatoletatatatalatatatatatstelatatatatatatatiaiataateteisiateisiatesctaetatteieitaeatacettsae 0021 2969 RWODB —-EQ 
2917 RRRAREREARARERARAARARARARRA RARE RRRAR RARER RAAR RRA ARERR RRA RRRRRARR ARERR 0022 2970 RSVNR —s EQ 
0024 2972 RWDAF «EQ 
2919 RARAKRRAAAARAAARAKARARAARAR AR ARA RARE KAR AR RAR RARER RRA RII AIR ITI 0025 2973 RWODO EQ 
05) 2920 * GENERAL EQUATES FOR TRANSIENT/TRANSFER TABLE ENTRIES x 05 0026 2974 RUDDA EQ 
PIV) Matalotatelalalalotatatatatatotatetsatalatatataatataisiatatantaaicaaeatoen cobioteettcouiteaiitteeaas 0027 2975 ROFFLINE EQ. 
0080 2922 XEXAMID EQU X'80' EXAM ID TRANSFER ROUTINE 0028 2976 RWDDH EQ 
06 0040 2923 XEAOFF EQU xX‘40' SET EA CYCLE XLATE OFF INDICATOR 06) 0029 2977 RWODQ EQU 
0020 2924 XEBOFF EQU  X'20' SET EB CYCLE XLATE OFF INDICATOR 002A 2978 RWOCP EQ 
0010 2925 XFERCTL EQU X'l0' TRANSFER CONTROL ROUTINE 002B 2979 RPRAZ  EQU 
07 0020 2926 XNTPRIV EQU X'20' PRIVLEGED TRANSIENT 07 002C 2980 RCMD EQU 
0008 2927 XNTAREAS EQU  X‘08' FIRST SECTOR IN TRANSIENT AREACHIGH) 002D 2981 RIOERR EQ 
OOOF 2928 XNTAREAE EQU X'OF' LAST SECTOR IN TRANSIENT AREA CHIGH) OO2E 2982 REXTND QU 
08} 0008 2929 XFERIAON EQU X'08' TAR TRANSLATION ON 08 002F 2983 RUPDAT — EQL 
0004 2930 XFEREAON EQU X'04' SET EA ON TRANSFER CONTROL 0030 2984 RCHKPT — EQU 
0002 2931 XFEREBON EQU X'‘02' SET EB ON TRANSFER CONTROL 0031 2985 RSPMIC  EQU 
09 0001 2932 XFERWPON EQU  X'‘O1' SET ON WRITE PROTECTCNON-PRIVLEDGED) 09) 0032 2986 RICDA  EQU 
2933 DORE OORIIOR TO III IIT RI I RR ITRIII RII RI IAI PRIA II IPI I PIII IT 0033 2987 RICDB EQU 
2934 ® ‘SYSTEM’ TRANSIENT RIB EQUATES CI.E., IMPLICIT DISK ADDR, LENGTH) * 0034 2988 RICDC EQU 
10} 2935 RAKRKRRAKRKRAERKAAAKRAREAAARAKKA RK AR AARK RRR ARR I IIR IR IIR IIR II III INR, 10 0035 2989 RSVIX EU 
0000 2936 RRSVDOO EQU  X'00' RESERVED 0036 2990 RSORT — EQU 
0001 2937 RFIND EQU. X‘Ol' FIND 0037 2991 REXTRA  EQU 
11 0002 2938 ROPEN EQU X'02' OPEN il 0038 2992 RWDDL EQU 
0003 2939 RCLOSE EQU X'03' CLOSE 0039 2993 RGLFR — EQU 
0004 2940 REOJ EQU  X'04' END-OF - JOB 003A 2994 RGLFAC  £QU 
12 0005 2941 RSLOG EQU X‘05' SYSLOG 12 003B 2995 REXTNP  £QU 
0006 2942 RSLIST EQU  X'06' SYSLIST 003C 2996 RSMFC EQU 
0007 2943 RSIN EQU  X'07" SYSIN 003D 2997 RICDD EQU 
13 0008 2944 RSGET EQ = X*08" SOURCE GET 13 O03E 2998 RWDDU —-EQU 
0009 2945 RSMSG EWU X'09" MESSAGE RETREIVE 003F 2999 RWDDT EQU 
OOOA 2946 RLIBRY QU X'OA' LIBRARY OPEN/CLOSE 0040 3000 RWEGE EQU 
14 QOOB 2947 RVTOCFD EQU xX‘OB' VTOC READ/WRITE FD 14 0041 3001 RRDDN  EQU 
OOOC 2948 RALLOC E€QU xX‘OC' ALLOCATE 0042 3002 RWDHH EQu 
000D 2949 RDALOC EQU xX‘OD' DEALLOCATE 0043 3003 RSPQMG  EQU 
15 QOOE 2950 RSALOC EQU X'‘OE' SPECIAL ALLOCATE 15 0043 3004 RXTEND EQU 
OOOF 2951 RINFO EQU  X'OF‘ RETRIEVE SYSTEM INFORMATION 
0010 2952 RVTORD QU X‘10' VTOC READ/WRITE RD 0110 3006 XFLENBYT EQU 
16 0011 2953 RSNAP EQU. X'‘ll' SNAP DUMP 16 0088 3007 XFLENURD EQU 
0012 2954 RPGHLT EQU = X‘12' RPG HALT 3008 *** END OF £) 
0013 2955 RDMCALL £QU X‘13' Di TA MANAGEMENT CONTROLLER 
V7 0014 2956 RPRALGN EQU X‘14° PRINTER ALIGNMENT V7 
0015 2957 RCPRT EQU X'15" COMMAND PROCESSOR ROUTER 
0016 2958 RLOPEN EQU X‘l6' LIMITS OPEN 
13 0017 2959 RWSDM EQU X'17' USER — WSDM REQUEST 13) 
0018 2960 RSWSDM =EQU  X'18' SYSTEM WSDM REQUEST 
0019 2961 RFINDLIB EQU X'19" USER LIBRARY FIND REQUEST 
19 OO1A 2962 RAFA EQU. X'IA’ AFA ACCESS TRANSIENT 19 
001B 2963 RSPOOL £QU X'1B' SPOOL INTERCEPT REQUEST 
OOIC 2964 RSPALC EQU  X'‘IC' SPOOL ALLOCATE REQUEST 
20 20) 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


G26 
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01 
02 1228 * 


PUPEQ 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATE 


1243 * 


LZ] JCBUFRUG C O01 0028 0941 
JCBOPSBP C 001 0018 0935 
JCBDRGSZ C 001 002A 0953 

13] JCBDRTCD C 001 002F 0959 


JCBDSLOB C 001 002) 0957 
JCBDSLST C 001 OO0E 0924 
JCBDSPID C 001 O05C 0999 


18} JCBDUR2L C 001 0041 0970 
JCBDUSER C 001 006D 1026 
JCBDUSR1 C 001 0037 0965 

19 
JCBDWSBP C 001 0016 0933 


0943 
0937 
0955 3236* 3241 3243 
0961 


0928 


0972 
1028 
0966 


1029 


JCBDUSR2 C 001 0039 0966 0967 


0935 


JCBDIPRC C 001 0020 09370941 
20 


1/81 12/08/81 21:31 


ERR LOC OBJECT CODE 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ADDR STMT SOURCE STATEMENT 


O01D 2965 RCPERR 
OOLE 2966 RTTC 
OO1F 2967 RCPTC 
0020 2968 RSETX 
0021 2969 RWODB 
0022 2970 RSVNR 
0023 2971 RWODG 
0024 2972 RWDAF 
0025 2973 RWDD =EQU X'25' 
0026 2974 RWDA = EQU.X'26" 
0027 2975 ROFFLINE EQU  X‘27' 
0028 2976 RWDDH = =EQU X28 
0029 2977 RWDDQ EQ X'29' 
002A 2978 RWOCP = EQU =X‘2A' 
0028 2979 RPRAZ  EQU X‘2B' 
002C 2980 RCMD EQU K‘2C' 
002D 2981 RIOERR EQ X‘2D' 
002E 2982 REXTND EQU X‘2E' 
002F 2983 RUPDAT EQU X'2F* 
0030 2984 RCHKPT EQU X'30" 
0031 2985 RSPMIC EQU X'31° 
0032 2986 RICDA EQU X'32' 
0033 2987 RICDB EQ X‘'33' 
0034 2988 RICDC EQ X'34' 
0035 2989 RSVIX  EQU X'35' 
0036 2990 RSORT EQ X'36' 
0037 2991 REXTRA EQU X'37' 
0038 2992 RWODL  EQU X'38' 
0039 2993 RGLFR  EQU X'39' 
003A 2994 RGLFAC EQU X'3A' 
003B 2995 REXTNP EQU X'‘3B' 
003C_2996 RSMFC = EQU = X‘3C' 
0030 2997 RICDD §=EQU  X'3D' 
003E 2998 RWDDU EQU X'3E' 
003F 2999 RWOOT  EQU X'3F' 
0040 3000 RWEGE  EQU X‘40' 
0041 3001 RRDDM = EQU X‘41' 
0042 3002 RWOHH EQU X‘42' 
0043 3003 RSPQNG =EQU X'43' 
0043 3004 RXTEND EQU RSPQYG 


EQU  X"1D" 
EQU X'IE' 
EQU X‘IF* 
EQU X‘20° 
EU X‘21° 
EQU X'22' 
EQU X'23" 
EQU X'24" 


0110 3006 XFLENBYT EQU = RXTEND*4+4 
0088 3007 XFLEMARD EQU — RXTEND*2+2 
3008 *** END OF EXPANSION ** 


H27 
PAGE 66 VO9/11/81 12/08/81 21:31 “SVAU TCB CHANGE ORG OR DETACH TRANS: 
ERR LOC OBJECT CODE ADDR STMT SOL 
COMMAND PROCESSOR 1/0 ERROR 3010 * 
TASK-TASK COMMUNICATONS 3011 ** 
COMMAND PROCESSOR TASK-TASK 3012 * 
SET EXIT 3013 ** 
WSDM_ TRANSIENT 0002 3014 SLU 
0003 3015 $i 
0005 3016 $LL 
0007 3017 $LD 
0008 3018 SLO 
3019 * 
OFFLINE MV DATA MGMT. 0009 3020 $LD 
WSDM TRANSIENT 0008 3021 $L0 
000C 3022 $LD 
3024 RRR 
COMMAND OCL INTERFACE 3025 * R 
1/0 ERROR TRANSIENT 3026 *** 
EDF EXTEND TRANSIENT 3027 * 
EDF UPDATE TRANSIENT 3028 * R 
CHECKPOINT TRANSIENT 3029 * 
SPOOL TRANSIENT 0001 3030 SLD 
ICF (CVC) 0002 3031 $LO 
ICF (CVC) 0004 3032 $LD 
ICF (CVC) 0008 3033 $iB 
TWA EXTENSION 0010 3034 $LD 
SORT TRANSIENT 3035 * 
EXTENDED TRACE 3036 * R 
WSDM TRANSIENT 3037 * 
GLF TRANSIENT 3038 * N 
GLF TRANSIENT 3039 * 
EXTENDED PRINT 0001 3040 $LDV 
SMF COMM. DATA COLLECTION 0002 3041 SLO 
PEER MULTIPOINT 000A 3042 SLOY 
WSDM XIENT 0004 3043 SLOF 
* 0006 3044 SLO 
. OOOE 3045 SLDr 
RODM TTC XIENT CALL 3046 *** 


WSDM_XTENT 
SPOOL QUEUE MGMT XIENT 
LAST VALID ENTRY 


LENGTH OF XFER TABLE (BYTES) 
LENGTH OF XFER TABLE (WORDS) 


1/81 12/08/81 21:31 


ERR LOC OBJECT CODE 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ADDR STNT SOURCE STATEMENT 


G27 


PAGE *SVAU TCB CHANGE ORG OR DETACH TRANSI 


30 VO9/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE ADDR STMT SOU 


JCBMRSNP C 001 0002 0866 
JCBMRTWA C 001 0020 0872 
JCBMRUNG C 001 0040 0846 
JCBMSCRT C 001 0008 0895 
JCBMSELT C 001 0002 0907 
JCBMSEOJ C 001 0080 0891 
JCBMSLING C 001 0040 1006 
JCBMSLOG C 001 0080 0901 
JCBMSLOP C 001 0002 0950 


JCBMSOFF C 001 0040 0892 


7 


18 


1 


~ -H28 
711781 12/08/81 21:31] {*SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 67 VO9/11/81 12/08/81 21:31 - #SVAU TCB CHANGE ORG OR DETACH TRA 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT 
02) 3010 * $LOAD 00853000 | 02 3048 
3011 RKKRRKAAARAAAAERAAKAAK AK AKKAKARARAKRAARRER ARKH RRR IMR EIR IIR I IIIA IRIN 3049 
3012 * MAIN STORAGE RELOCATING LOADER PARAMETER LiST EQUATES x 0001 3050 | 
03 3013 KRRERKRAAKRAKAAAKAAARAARKARERRARKR AAR RERRARRRARK EHR IKK KRARR ARERR IIIA 03 0002 3051 
0002 3014 $LODSS EQU 2 SS ADDR OF MEMBER 0004 3052 | 
0003 3015 SLODTEXT EQU  SLODSS+1 NUMBER OF TEXT SECTORS 0008 3053 | 
04 0005 3016 SLODLINK EQU SLDDTEXT+2 LINK EDIT ADDRESS 04 0010 3054 
0007 3017 SLDDSTRT EQU SLDDLINK+2 START CONTROL ADOR CENTRY POINT) 0001 3055 
0008 3018 SLDDRLD QU SLODSTRT+1 — _RLD DISP IN THE FIRST SECTOR 0002 3056 | 
05 3019 * CONTAINING RLDS 05 3057 | 
0009 3020 SLODTOT EQU  S$LDORLD+1 TOTAL NUMBER OF SECTORS 0000 3058 : 
0008 3021 SLODLOAD EQU SLDDTOT+2 MODULE LOAD ADDRESS 0000 3059 | 
06} GO0C 3022 SLDDLEN EQU SLDDLOAD+] — LENGTH OF LOADER PARN LIST 06 0002 3060 ¢ 
1 
3024 RAARERKAKARAERKAAKRATRA RAR KAAAAKAKRARARRARKAK RAK KARARKRAARAKAARAARRK RARER 0040 me { 
07 3025 * RIB VALUES FOR THE RELOCATING LOADER ® 07 0000 3063 | 
3026 RARKRAKRARAARAARAAAKRRAKKAARAKRR AAA RKEKERARRK RARER AHIR ARIK IER IRIR IIIA IR, 0001 3064 ( 
3027 * 0002 3065 
08 3028 * RIB BIT EQUATES FOR VARIOUS LOADER FUNCS 08 0003 3066 | 
3029 * 0004 3067 f 
0001 3030 SLDRELAD EQU BIT FOR 0005 3068 F 
09 0002 3031 SLOTOADR EQU BIT FOR 09 0006 3069 
0004 3032 SLOFETCH EQU BIT FOR 0007 3070 5 
0008 3033 SLOSFICH EQU BIT FOR “SYSTEM REQUEST 0008 3071 £ 
10 0010 3034 SLDANID QU BIT FOR LOADING AN EXAM 10 0009 3072 | 
3035 * 3073 * 
3036 * RIB BYTE EQUATES FOR ALL LOADER FUNCS 0010 3074 1 
11 3037 * ll 0090 3075 F 
3038 * NOTE: ANY OTHER RIB VALUES WILL CAUSE UNPREDICTABLE ERRORS 0087 3076 L 
3039 * 3077 * 
12 0001 3040 SLDMSSLD EQU  $LDRELAD LOAD BY RELATIVE SS 12 0080 3078 N 
0002 3041 SLOMLOAD EQU — SLOTOADR LOAD TO-ADDRESS 0000 3079 A 
000A 3042 SLONSLD EQU  SLOMLOAD+SLOSFTCH SYSTEM LOAD OOOF 3080 f 
3 0004 3043 SLOMFTCH EQU  SLOFETCH FETCH 1 OOFO 3081 2 
0006 3044 SLOMECHA EQU — SLOMETCH+S$LDTOADR FETCH TO-ADDRESS OOFF 3082 A 
OOOE 3045 SLOMSFCH EQU  SLOMFCHA*SLOSFICH SYSTEM FETCH 0080 3033 8 
14 3046 *** END OF EXPANSION ** 14 0040 3084 B 
0020 3085 8 
0010 3086 B 
15 15 0008 3087 B 
0004 3088 B 
0002 3089 B 
16 16 0001 3090 B 
3091 * 
0008 3092 [ 
17 17 0004 3093 0 
0002 3094 0 
0000 3095 P 
18 1 0001 3096 N 
0080 3097 D 
3098 ®! 
19 19 
20} 0 
G28 
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#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


PAGE 31 =VO9/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


00720000 (02) 1262 * SCAEQ 00740000 | 0: 0001 1316 | 
1263 RAKKKRAKARARRAREKARAAKK AA KKAARAKRARERERERERRAAKARARRIR ERI IRIS IR III, 1317 : 
1264 * 7 1318 | 
1265 * SYSTEN x 0} 0081 1319 | 
1266 * ® 0001 1320 | 
1267 * CONNUNICATION AREA ® 0000 1321 | 
1268 * ® 1322 


NOBATOE C O01 O3A8 1192-1194 
18] NUABAD2K C 001 07CO 1213 
NUBCPTAH C001 0002 1146 


NUACPTCB C 001 0200 1145 1149 3250 3422 3436 3542 3557 


19] NUBCSETC C 001 0380 1183 = 1185 
NUGCXIOB C 001 O1EO 1143 1145 
NUMDLTQE C 001 O3A0 1190 1192 

Oi 


VO9/11/81 12/08/81 21:31 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 
1 
ERR LOC OBJECT CODE ADDR STINT SOURCE STATEMENT 


00853000 | 02 


30 


PRIORL C001 0090 0738 


H29 
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01 
ERR LOC OBJECT CODE ADOR S$! 


3048 * #EQU 00857000 | 02 3) 
3049 * 0001 31 


0001 3050 XRi fu 1 REGISTER ONE 0002 3 
xx 03 0002 3051 XR2 EQ 2 REGISTER TWO C 0001 31 
0004 3052 PSR 4 PROGRAM STATUS REGISTER 0002 31 

0008 3053 ARR EQ 8 ADDRESS RECALL REGISTER 0002 31 

0010 3054 IAR 16 INSTRUCTION ADDRESS REGISTER 04 0001 31 

_ 10B POINTER 0001 31 
DIF POINTER 0002 31 

05) 05 0002 31 

ALTERABLE CODE 0001 31 

0000 3059 ## FU OO ALTERABLE CODE 0001 31 

06 LENGTH OF ADDRESSES 06) 0002 31 

0001 31 

cm 0040 3062 BLAM = EQU CC’ BLANK CHARACTER 0002 31 
® 07 0000 3063 ZERO ae : 07 0001 31 
* 0001 3064 ONE 0002 31 
0002 3065 TWO a xR 0001 31 

0003 3066 THREE  EQU x 08 0002 31 

0004 3067 FOUR —_—EQU ; ® 0001 31 

0005 3068 FIVE a 5 = ® SELF DEFINING TERMS 0002 31 

0006 3069 SIX 6 ® 09 0001 31 

0007 3070 SEVEN ar 7 no 0002 31 

0008 3071 EIGHT  EQU 8 xe 0001 31 

1 0009 3072 NINE EQ 9 ms 10 0002 31 

3073 * 0001 31 

0010 3074 TRUE EQ X‘10' TRUE CONDITION LODE 0002 31. 

0090 3075 FALSE EQU. X'90' FALSE CONDITION CODE ll 0001 31 

0087 3076 UNCOND QU X‘87' UNCONDITIONAL CONDITION CODE 0002 31 

3077 * 0001 31 

12 0080 3078 NOOP = EQUSsCX'80° NEVER BRANCH 1 0002 31 

0000 3079 NOBIT _EQU x‘00' NO BITS MASK 0001 31 

OOOF 3080 NUNBITS EQU  X‘OF NUMERIC BITS ONLY MASK 0002 31. 

3 OOFO 3081 20NEBITS EQU X‘FO' 20NE BITS ONLY MASK 1 0001 31 

OOFF 3082 ALLBIT QU X‘FF' ALL BITS MASK 0002 31 

0080 3083 BITO  EQU x‘s0° MASK FOR BITO- X....... 0001 31. 

1 0040 3084 BIT]  EQU X‘40' MASK FOR BIT 1 ~ .X...... 14 0002 31 

0020 3085 BIT2 QU x‘20' (ASK FOR BIT 2 - 0002 31: 

0010 3086 BIT3 QU  xX‘10° MASK FOR BIT 3 ~ 0002 31: 

15 0008 3087 BITS  EQU X‘08" MASK FOR BIT 4 - 15] 0001 31 

0004 3088 BITS — EQU—-X"04" MASK FOR BIT 5 - 0002 31: 

0002 3089 BIT6 EQ x‘02° MASK FOR BIT 6 - 0001 314 

16 0001 3090 BIT? = EQ. sX‘01" MASK FOR BIT 7 - 16 0002 31: 

3091 * 0000 31: 

00083092 TARX  EQU xX ‘08" TAR TRANSLATED 0001 31. 

7 0004 3093 OP2 EQU X'04" OP2 TRANSLATED 17 0002 31: 

0002 3094 OP1 EQU X"02' OP1 TRANSLATED OOFF 31: 

0000 3095 PRV EQU x*‘00" TASK PRIVELEDGED 0005 31. 

18 0001 3096 NPRV = EQU.sX‘O1' TASK NOT PRIVELEDGED 18} O00F 31: 

0080 3097 DSABL EQU X'80" DISPATCHING DISABLED 0011 31 

3098 *** END OF EXPANSION ** 0012 31 

19 0013 315 


yO9/11/81 12/08/81 21:31 *SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
0001 1316 SCAMDSIZ EQU xX'‘01' 
1317 
1318 *% 
0081 1319 SCANZ7MG EQU  X'‘81' 
0001 1320 SCANI3MG EQU 1 
0000 1321 SCAMIONG EQU 0 


Ni cig gates oak, 
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PAGE 32 «09/11/81 12/08/81 21:31 *SVAU TCB CHANGE ORG OR DETACH 


ERR LOC OBJECT CODE ADDR ST 


X'O1' - DISK FILE SIZE 0. 0080 13 
0 - 8 MEGABYTE DISK 
1-12 MEGABYTE DISK 

27 “MEGABYTE DISK 03 

13 MEGABYTE DISK 


8 MEGABYTE DISK 


RULIDSS C001 1000 1222 
14/NULRDI0B C 001 0038 1161 1163 
NULSCA_ C001 0100 1135 1137 


NULTQE C001 0008 1186 1188 1190 1192 1194 


L5)NULTRBUF C001 0100 1207 = 1208 

NULTWAQ C001 0005 1158 1160 

NULTWAX C002 0023 1150 1151 1157 3895 
16}NULXIENT C 001 0800 1205 1219 

NUMBITS C001 O00F 3080 


NUVARNUC C001 1000 1219 = 1221 

17] ONE € 001 0001 3064 
OP1 C 001 0002 3094 3725 +3728 3760 
OP2 


C001 0004 3093 3725 «3728 

18}PAK2 C001 0002 3109 

PLIFO C001 0040 0425 
oe OREENPT C 001 0080 0424 3426 3440 3561 

“—* ORC 001 0080 0734 ©0738-0739 

‘RIORF C001 0080 0739 

ara PRIORL C001 0090 0738 
| 0 


H30 
/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
00857000 | 02 3100 * REGISTERS USED 


0001 3101 PRM] = EQU 1 
0002 3102 PRY2 EQ 2 
C3 0001 3103 RIBL = EMO 
0002 3104 RIB2 FQU 2 
0002 3105 F52 EQ 2 
04) 0001 3106 F51 EW 1 
0001 3107 CPi FU 
0002 3108 CP2 EQ 2 
05) 0002 3109 PAK2 = EQUs2 
0001 3110 JOB1 = EUs 
0001 3111 CD1 Eu 1 
06 0002 3112 cb2 EQU 2 
0001 3113 TCB1 = EUs 
0002 3114 TCB2 «EU 2 
07 0001 3115 CSB) EQ 
0002 3116 CSB2. QU 2 
0001 3117 ACEl = EQUI 
03) 0002 3118 ACEZ «= EQUsa2 
0001 3119 JCB1 = EQU. sa 


0001 3121 RBI 
0002 3122 RB2 
0001 3123 $121 
0002 3124 S122 
0001 3125 ATRI 
0002 3126 ATR2 
0001 3127 SYN1 
0002 3128 SYN2 
0001 3129 BAS 
0002 3130 BAS2 
0001 3131 TUBI 
0002 3132 TUB2 
0001 3133 BUF1 
0002 3134 BUF2 


~ 


0001 3135 Fil 
0002 3136 F12 
0001 3137 PSH1 
0002 3138 PSH2 
0001 3139 QUE1 
0002 3140 QUE2 


17{QHDINQEX C 001 


PAGE 69 VO9/11/81 12/08/81 21:31 ] |#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 
D1 


PARM LIST POINTER 

PARM LIST POINTER 

PARM LIST POINTER 

PARM LIST POINTER 

BIT MASK POINTER 

BIT MASK POINTER 

COMMAND PROCESSOR PARM 
COMMAND PROCESSOR PARM 
PACKED DATA PARM 

JOB NAME FIELD REGISTER 
CODE INDEX REGISTER 

CODE INDEX REGISTER 

TCB POINTER 

TCB POINTER 

CSB POINTER 99093 
CSB POINTER ag093 
ACE POINTER 

ACE POINTER 

JCB POINTER 


REGISTER TO SAVE ALLOC. SIZ 
REGISTER TO SAVE ALLOC. SIZ 
REG. TO POINT INTO ATRS 
REG. TO POINT INTO ATRS 
SYSIN BUFFER 

SYSIN BUFFER 

BASE REGISTER 1 

BASE REGISTER 2 

TUB INDEX REGISTER 1 

TUB INDEX REGISTER 2 

INDEX BUFFER POINTER 

[VEX BUFFER REGISTER 

INDEX BUFFER POINTER 

INDEX BUFFER REGISTER 

INDEX BUFFER REGISTER 

INDEX BUFFER REGISTER 


0001 3141 TABI 
0002 3142 TAB2 
0000 3143 DEAHIGH 
a ae 0001 3144 DEASIZE 
0002 3145 DEANEXT 
OOFF 3146 DETACH 
0005 3147 SNASIZ 
OOOF 3148 DTSVREG 
0011 3149 DTSVARR 


ONIN RS Ne NM HIN en 


DEAHIGH+1 
DEASIZE+1 
X'FF* 

5 
TCBRSE-TCBARSE 
DTSVREG+2 


DETACH REQUEST 

SNA SIZE OF 10K aa093 
OFFSET OF SAVE AREA 

OFFSET OF SAVE ARR 


0012 3150 DTSVSIZ 
0013 3151 DTSVLEN 


DTSVARR+1 
DTSVSIZ+1 


OFFSET OF SAVED LENGTH 
LENGTH OF SAVE ELEMENT 


ERR LOC OBJECT CODE 


0800 F2 87 06 


0803 7BE2E5C1E4 
0808 08 


ADDR STMT SOURCE STATE! 


3153 * TO 
3154 LEV 
3155 ai 
3156 RLD 
3157 MRT 
3158 J 
0807 3159 oc 
0808 3160 oc 


3162_*** END OF &) 


/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 

02) 0080 1370 SCANBSCA EQU X'80" 
0020 1371 SCANSRJE EQU  X'20° 
0040 1372 SCARJE EQU  X"40° 

03 0010 1373 SCAMSNA EQU  X‘10' 
0008 1374 SCAMRUS FOUL y‘ng: 


G30 
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3163 * PAR 
0809 F4 00 OD 3164 SVC 
080C_0002 0800 3165 oc 
3166 *** END OF E} 
3167 * TCBa 
O80E 35 02 0141 3168 L 
3169 *** END OF EX 
0812 B5 02 17 3170 L 
0815 9C 00 12 00 3171 (WC 
0819 BD FF 12 3172 CLI 
O81C F2 81 10 3173 JE 
O81F 9C 18 2A 18 3174 twC 
3175 * 
3176 * FREE ATTAC 
3177 ® 
0823 BS 01 1E 3178 TBN 
0826 F2 90 06 3179 JF 
3180 * FREE 
0829 F4 00 07 3181 svc 
082C 0010 082D 3182 oc 
O82E 81 082E 3183 oc 
3184 *** END OF EX 
082F F6 00 80 3185 0T000010 LPrR 
3186 * TCBa 
0832 35 01 0141 3187 L 
3188 *** END OF EX! 
0836 6C 00 1C 12 3189 Nive 
083A 7D FF IC 3190 CuI 
0830 F2 81 81 3191 JE 
3192 * 
3193 * CALCULATE © 
3194 * 
0840 BB 07 10 3195 SBF 
0843 6C 01 19 10 3196 NVC 
0847 5F 01 1B 1B 3197 SLC 
0848 BS 40 27 3198 TBN 
O84E F2 10 20 3199 JT 
0851 68 01 1B 16 3200 zn 
0855 68 02 1A 16 3202 MNZ 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATE 


O02F 1424 SCACONFG EQU 
1425 * 
0031 1426 SCASHIST EQU 


0033 1427 SCAHFSIZ EQU 
MW25 1498 Craucrio co 


ERR LOC OBJECT CODE 


ADDR STMT 


3153 
3154 


SOURCE STATEMENT 


7 TDMAC NANE-#SVAU, ATTR-COO800, JUMP-Y, RLD-D 
LEVEL 08 RELEASE LEVEL 


ATTR C00800 LIBRARY ATTRIBUTES 
RLD oD RLD OPTION 
MRT 00 MRT OPTION 


R49 JUMP AROUND MAIN STORE CONSTANTS 


OC CL5“#SVAU" 
OC XL 08" 


MObe: E NAME 
RELEASE LEVEL 


3162 *** END OF EXPANSION ** 


3163 * PAR = OPI-N TURN OFF OP1 TRANSLATION 
3164 SVC SVCPMR, QO CHANGE PMR SVC. 
0800 3165 DC AL2C2+0+0+0) INLINE PARAMETERS. 


3166 *** END OF EXPANSION ** 


3167 *® TCBa R-TCB2 XR2-> CURRENT TCB 

3168 L 321, TCB2 GET TCB ADDRESS. 

3169 *®** END OF EXPANSION ** 

3170 L TCBCRBC, TCB2), RB2 XR2-> CURRENT RB 

3171 MVC RBSLEN*$LDDSS-2(1, RBZ), SLODSS-2¢, PRN) MOVE IN 1 BYTE 
3172 CLI RBSLEN*$LDDSS-2¢,RB2), DETACH DETACH REQUEST ? 

3173 JE _DT000010 YES, BYPASS ENTIRE MOVE 
3174 MVC RBSLEN*+SATLENG~1(SATLENG, RBZ), SATLENG-1(,PRITL) MOVE PRM 
3175 * 


3176 * FREE ATTACH PARAMETER LIST IF REQUIRED 
3177 ® 


3178 
3179 


RBSLEN+SATFLAGC,RB2),SATFRPRM FREE PARM LIST ? 
07000010 NO, DO NOT FREE 


3180 
3181 


* QUEUE-YES, LEN-SATLENG YES, FREE PARM LIST 
SVCFREE,QO ISSUE FREE REQUEST 


082D 3182 
082E 3183 
3184 
3185 
3186 
3187 


AL2($ATLENG+4) LENGTH + 4 OF AREA TO FREE 
DC = ALICX"80"+1) FREE FUNCTION BYTE 
***® END OF EXPANSION ** 


01320000 


01330000 


01 


02 


03) 


O04 


01340000 | 07 


01350000 | 08 


01360000 
01370000 


01380000 | 09 


01390000 
01400000 
01410000 


DTO00010 LPMR PRV+DSABL 
* TCBa R-TCB1 
L 321, TCB1 


PICK UP TCB ADDRESS 
GET TCB ADDRESS. 


3188 
3189 
3190 
3191 


3192 


*** END OF EXPANSION ** 
MVC TCB@ARR-1(1,1CB1), RBSLEN*SLDDSS-2(,RB2) SET FLAG 
CLI TCB@ARR-1¢, TCB1), DETACH DETACH REQUEST ? 


JE 07000015 YES, BYPASS CALC. 


3193 
3194 
3195 


* CALCULATE THE PROGRAM SIZE IN #2K BLOCKS 


x 


RBSLEN*SATLOAD(,RB2),X‘O7" ENSURE ON 8 BYTE BOUNDARY 


3196 
3197 
3198 


TCBaXR1(2, TCB1), RBSLEN*$ATLOADC, RB2) LOAD ADDR. 
TCBAKR2(2, TCB1), TCBAXR2¢,TCB1) ZERO OUT LINK a 
RBSLEN+SATFLAG1(C, RBZ), SATCOMON PROG. SUPPORT COMMON ? 


00870000 
00880000 
00890000 )3 
00900000 
00910000 
00920000 4 
ARN 00930000 
ARK 00940000 
00950000 
STER 00960000 
00970000 
00980000 96} 0809 F4 00 OD 
00990000 080C 0002 
01000000 
aa093 01003000 7 
9093 01006000 O80E 35 02 0141 
01010000 
01020000 98} 0812 B5 02 17 
01030000 0815 9C 00 12 00 
01040000 0819 BD FF 12 
01050000 99) O81C F2 31 10 
01060000 
LOC. SIZ 01070000 O81F 9C 18 2A 18 
LOC. SIZ 01080000 }0 
ATRS 01090000 
ATRS 
0823 B8 01 1E 
0826 F2 90 06 
1 0829 F4 00 07 
2 
R 
ER 
R 082F F6 00 80 
ER 
ER 0832 35 01 0141 
ER 
0836 6C 00 IC 12 
083A 7D FF IC 
083D F2 81 81 
0840 BB 07 1D 
aa093 0843 6C 01 19 1D 
0847 5F 01 1B 1B 
0848 BS 40 27 
3TH 084E F2 10 20 
-NT 


0851 63 01 1B 16 


3199 


3200 


0T000011 YES, ASSUME LINK OF 0 


TCBAXR2¢, TCB1), RBSLEN+S$LODLINK-1(,RB2) MOVE IN a 


0855 68 02 1A 16 


33 VO9/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE 


320° 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 


TCBAXR2-1¢, TCB1), RBSLEN+$LODLINK-1(,RB2) MOVE IN a 


G31 


ADDR STMT SOURCE STATEMENT 


OO2F 1424 SCACONFG EQU 


01470100 
01470200 


34 09/11/81 12/08/81 21:31 


10 


ERR LOC OBJECT CODE 


0859 5E 01 1B 1B 
085D 5C 00 1B 1A 
0861 5E 00 1A 1A 
0865 5E 00 1A 1A 
0869 5E 00 1A 1A 
0860 5F 00 18 1A 
0871 7C FF 27 
0874 6E 00 27 15 
0878 5E 00 18 27 
O87C 7C 00 26 
O87F 4 00 26 OE7F 
0884 4F 01 19 OEAS 
0889 CO 02 087F 


0880 6D 00 26 IF 
0891 F2 04 04 

0894 9C 00 IF 26 
0898 6C 00 26 IF 


089C 5C 00 18 18 
O8A0 7C 00 18 


08A3 70 00 14 
O8A6 F2 81 18 


O8A9 78 80 04 
OBAC 75 02 15 
OSAF F2 90 04 


08B2 AC 00 2A 57 


08B6 6D 00 26 2A 
O8BA F2 02 04 


08BD 6C 00 26 2A 


#SVAU TCB CHANGE ORG OR DI 


A 


08C1 7 00 24 
08C4 7C 00 1D 
08C7 35 02 0200 


ERR LOC OBJECT CODE 


*SVAU TCB CHANGE ORG OR DE 


SCADSSIO+#2 2 SS OF CONFIGURATION RECORD 


1425 * 


0031 1426 SCASHIST EQU SCACONFG+2 2 


START SS OF HISTORY FILE 


RIiRQ 


‘0 09/11/81 


4 VO9/11/81 12/08/81 21:31 


12/08/81 21:31 


01320000 


01330000 


01340000 


01350000 
01360000 
01370000 
01380000 


01390000 
01400000 
01410000 
01420000 
01430000 
01440000 


01450000 


01460000 
01470000 


01470100 
01470200 
01470300 


01470400 
01470500 
01470600 
01470700 
01470800 
01470900 
01471000 
01471100 


01471200 
01471300 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 
1 


07 


08) 


Pe ENO 
0788 
0784 


C 001 0008 1917 
C 001 0018 1926 
C 001 0010 1920 
C 001 0019 1925 
C001 0002 1912 


ERR LOC OBJECT CODE 


0878 5E 00 18 27 
O87C 7C 00 26 
OS7F 4€ 00 26 OE7F 
0884 4F 01 19 OEAS 
0889 CO 02 087F 


088D 6D 00 26 IF 
0891 F2 04 04 

0894 9C 00 1F 26 
0898 6C 00 26 IF 


O89C 5C 00 18 1B 
O8A0 7C 00 1B 


08A3 70 00 14 
O8A6 F2 81 18 


1911 


3425 3439 3560 


1925 1926 1927 


1925 1926 


H32 
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01 


ADDR STMT SOURCE STATEMENT 


ALC = TCBAXR2-1¢1, TCB1, TCBAXR2-1¢,TCB1) DOUBLE ITS VALUE 
ALC = TCBAXR2~1¢1, TCB1), TCBAXR2-1¢,1CB1) DOUBLE ITS VALUE 03) 
ALC TCBAXR2-1¢1, TCB1), TCBAXR2-1¢, TCB1) DOUBLE ITS VALUE 
SLC TCBAXR1-1¢1, 1CB1), TCBAXR2-1¢,TCB1)  SUBT. LINK a 
3208 DT000011 MVI — TCBAINL 4, TCB1, X ‘FF ' MAKE -1 04 
3209 ALC TCBAINL4(1, TCB1>, RBSLEN+$LODTEXT(, RBZ) ADD IN SECT. SIZE 
3210 ALC = TCBAXR1-1€1, TCB1), TCBAINL4(, TCB1) ADD TO SIZE 
3211 MV TCBAINL3¢, TCB1),0 SET SIZE TO OK 05 
3212 DT000012 ALC TCB@INL3(1,1CB1),DTCO0001 __ INCREMENT BY 2K 
SLC TCBAXR1¢2, TCB1), DTCOO800 DECREMENT BY 8 SECTORS 
CONVERT TO #2K 06) 


3215 CLC TCBal: 
3216 * LESS THAN SIZE Ti .OAD ? 07 
3217 NO, SIZE IS OK 


01473000 | 03} 
01473100 


MVC RBSLEN+S$ATMSSI2(1,RB2), TCBAINL3(, TCB1) MAKE NEW SIZE 
3219 DTO00013 MVC TCBAINL3(1,TCB1), RBSLEN*SATMSSIZ(,RB2) MOVE IN SIZE 
TCBaXR1~1¢1, TCB1), TCBAXR2(, TCB1) MOVE IN BEGL VALUE 
NVI TCBAXR2¢, TCB1),0 NOW TCBAXR2 IS LOG. START a 09 
TCBAINL3=#2K PAGES REQUIRED TO LOAD PROGRAM 
TCBaXR1-1=NEW TCBBEGL VALUE 10 
TCBaXR2-1 AND TCBAXR2=LOGICAL START PARTITION ADDRESS 


CLI TCBJCBa-1¢, TCB1),0 11 
JE DTO00015 


01474100 | 1 


IF TASK IS IN TERMINATION MAKE ITS STEP REGION SIZE=ITS JOB 01474200 


O8A9 78 80 04 


REGION SIZE 


TBN _TCBSTAT3¢, TCB1), TCBTERN TASK IN TERMINATION ? 


O8AC 75 02 15 
OSAF F2 90 04 


POINT TO JCB 
NO, NOT IN TERMINATION 14 


L TCBJCBaC, TCB1), JCB2 
JF 07000014 


O8B2 AC 00 2A 57 


MVC JCBDRGS2(1, JCB2), JCBDJBRG(, JCB2) RESET JOB REG. SIZE 


SET TCB@INL3= LARGER OF PROG. SIZE REQUIRED TO EXECUTE, OR 


0886 6D 00 26 2A 


THE STEP REGION 


3241 DT000014 CLC 


TCBAINL3C1, TCB1>, JCBDRGSZ(, JCB2) STEP REG. > 


O8BA F2 02 04 


08BD 6C 00 25 2A 


3242 JNL — 0T000015 NO, STEP REG. NOT > 


3243 MVC TCBAINL3(1, TCB1), JCBDRGSZ¢, JCB2) MOVE IN LARGER SIZE 


3244 * 
3245 * CALUCLATE THE MAXIMUM SWAPPABLE ACTIVE REGION SIZE NOT INCLUDING 13 
3246 * THIS TASK. STORE VALUE IN TCB@INL] 


O8C1 7C 00 24 
08C4 7C 00 1D 


3247 * 
3248 DTO00015 MVI 
3249 MI 


ZERO QUT MAX. REGION AREA 19 
ZERO OUT NO. TASK'S ACTIVE 


TCBAINL1(¢, TCB1),0 
TCB@ARRC, TCB1),0 


08C7 35 02 0200 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


3250 L NUSCPTCB+TCBCHAIN, TCB2 XR2-> FIRST USER TCB 


G32 
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PAGE 


SYSTEM CONFIGURATION BYTE 6 0 
X80‘ - COMM TASK BEING ASSIGNED 


OO5C 1478 SCASYS2 EQU SCASYS1+1 1 
0080 1479 SCAMATBS EQU X‘80" 


O8CB 7C 00 27 
O8CE B38 02 77 
0801 B9 80 77 
0804 F2 90 03 


0807 7C 05 27 
O8DA 9D 01 0D OD 
OBDE F2 01 30 


O8E1 75 02 17 
O8E4 B9 02 1E 
OBE7 D2 02 00 
OBEA B9 80 04 
OSED B38 02 77 
O8FO 7D FF IC 
O8F3 F2 91 76 


O8F6 6E 00 27 26 


O8FA 4D 00 27 0000 


OSFF CO 84 OBBA 


0903 5D 00 27 24 
0907 F2 04 62 


O90A 5C 00 24 27 
O90E F2 87 5B 


0911 4E 00 1D OE7F 


0916 34 02 0952 
O91A BD 00 0A 
O91D F2 81 33 


0920 B5 02 OB 
0923 B9 80 04 
0926 B9 80 07 
0929 F2 90 19 


092C 6C 00 25 04 


#SVAU TCB CHANGE ORG OR DETA 


ERR LOC OBJECT CODE ADDR 


0930 BD 00 00 
0933 F2 01 04 


0936 5E 00 25 27 
093A 5D 00 25 24 
093E F2 04 04 


0941 5C 00 24 25 
0945 BD 00 00 
0948 B5 02 01 
0948 CO 01 0923 


O94F C2 02 0000 
0953 B8 80 77 
0956 F2 10 13 


Scle e ehe 


*SVAU TCB CHANGE ORG OR DETAC 


ERR LOC OBJECT CODE 


ADDR 


0040 
0020 


3170* 3171 3172 3174 3178 3189 3195 3196 3198 3200 3201 3209 
3215 3218 3219 3258* 3259 3349" 3350 3569" 3570 2571 3572 3572" 
3618* 3619 3695" 3699 3712 3721 3723 3723 3724 3726 3729-3775" 


3776 3778 
C 001 
C 001 
C 001 
C 001 
C 001 
C 001 
C 001 
C 001 
C 001 
C 001 
C 001 
C 001 
C 001 
C 001 
C 001 3103 3777* 3778 
H33 : 
PAGE 71 09/11/81 12/08/81 21:31 01 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 72 VO9/11/81 12/08/81 21:31 01 *SVAU TCB CHANGE | 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODt 
BEGL 01471400 |02}  O8CB 7C 00 27 3251 DT000030 MVI = TCBAINL4(, TCB1),0 SET ADD FACTOR OF 0 01541000 | 0. 0959 9E 00 20 2) 
L VALUE 01471500 O8CE BS 02 77 3252 TBN _TCBSTAT6¢, TCB2), TCBSNARQ SNA USER ? a093 01542000 0950 9D 00 20 2 
ITS VALUE 01471600 0801 B9 80 77 3253 TBF © TCBSTAT6¢, TCB2), TCBATNS AND NOT ATTACHED NS? aa093 01543000 0961 F2 04 04 
ITS VALUE 01471700 |03} 0804 F2 90 03 3254 JF 07000031 NO, IT IS NOT 01544000 | 0. 
ITS VALUE 01471800 0964 6C 00 24 af 
T. LINK a 01471900 0807 7C 05 27 3255 MVI = TCB@INL4(, TCB1), SNASIZ SET SNA SIZE 01545000 0968 9F 00 2D 27 
01472000 | 04 O8DA 9D 01 OD OD 3256 DT000031 CLC  TCBCHAINC2, TCB2), TCBCHAINC, TCB1) THIS ACTIVE TCB 2 01550000 | 04 096C BD 00 OC 
) IN SECT. SIZE 01472100 O8DE F2 01 30 3257 JNE 07000036 NO, IT IS NOT aa093 01560000 O96F B5 02 0D 
51ZE 01472200 0972 CO 01 O8CB 
IK 01472300 |0 O8E1 75 02 17 3258 L TCBCRBC, TCB1), RB2 XR2-> CURRENT RB aa093 01560600 | 0 
2K 01472400 O8E4 B9 02 1E 3259 TBF _RBSLEN+SATFLAG(,RB2), SATNSWAP ATTACHED NON-SWAP 2? aa093 01561200 
8 SECTORS 01472500 08E7 D2 02 00 3260 LA = 0¢, TCB1), TCB2 XR2-> TCB aa093 01561800 
K 01472600 |06|  O8EA B9 80 04 3261 TBF —TCBSTAT3¢, TCB2), TCBTERN OR IN TERMINATION ? 01562400 | 06 
O8ED B8 02 77 3262 TBN _TCBSTAT6¢, TCB2), TCBSNARQ OR NOT SNA USER ? 0976 70 00 0A 
E REQ'D 01472700 O8FO 7D FF 1C 3263 CLI TCB@ARR-1(, TCB1), DETACH OR DETACH REQUEST ? 01563600 0979 F2 81 38 
01472800 |07| 08F3 F2 91 76 3964 JC  — 07000085,x "91° YES, BYPASS CHECKS 01564200 | 07 
K 01472900 097C 75 02 OB 
O8F6 6E 00 27 26 3265 ALC = TCBAINL4(1, TCB1), TCBAINL3(, TCB2) ADD IN REG. SIZE 01564800 O97F B8 80 04 
cE NEW SIZE 01473000 |08}  O8FA 4D 00 27 0000 3266 CLC = TCBAINL4(1, TCB1), NU@SCA+SCANS#2K TASK TOO LARGE ? 01565400 | OS; 0982 F2 10 00 
jE IN SIZE 01473100 O8FF CO 34 OBBA 3267 BH 01000245 YES, ERROR 01566000 
SEGL VALUE 01473200 0985 6C 00 2D 04 
'S LOG. START a 01473300 |09} 0903 5D 00 27 24 CLC = TCBAINL4¢1, TCB1), TCBAINL1(, TCB1) NEW MAX ? 09 0989 B8 80 07 
01473400 0907 F2 04 62 JNH —_DT000085 NO, IT IS NOT 098C F2 90 03 
03473500 
01473600 | 10} 090A 5C 00 24 27 MVC = - TCBAINL1(1, TCB1), TCBAINL4(, TCB1> MOVE IN MAX ACTIVE 10 O98F 7A 01 00 
01473700 O90E F2 37 5B J 07000085 CHECK NEXT TCB 0992 2C 01 ODA? | 
01473800 0997 3C 01 ODAS 
B? 01473900 | 11 0911 4£ 00 1D OE7F 3272 DT000036 ALC TCB@ARR(1,1CB1),DTC00001 ADD 1 TO ACTIVE COUNT 01570000 | 11] 0998 6C 01 OB 01 
01474000 0916 34 02 0952 3273 ST 0T000060+3, TCB2 STORE TCB ADDRESS aa093 01575000 O99F £2 01 00 
091A BD 00 0A 3274 CLE © TCBPUSH-1¢, TCB2),0 ANY ON PUSH QUEUE ? 01580000 
01474100 |12] 091D F2 81 33 3275 JE DT000070 NO, THEN USE TCBRGSIZ 01590000 | 12} O9A2 F4 00 07 
‘S$ JOB 01474200 09A5 0008 
01474300 0920 BS 02 0B 3276 L TCBPUSH(, TCB2), PSH2 XR2-> PUSH ELEMENT 01610000 O9A7 01 
01474400 | 13] 0923 B9 80 04 3277 DTO00040 TBF = PUSHIND(, PSH2), PUSHPART TVALID OR PARTIAL PUSH? 01620000 | 13 
NATION ? 01474500 0926 B9 80 07 3278 TBF PUSHCORE(, PSH2), PUSHNONS OR NON-SWAP TASK PUSHED ? 01630000 O9A8 CO 87 OD5D 
01474600 0929 F2 90 19 3279 JF DT000055 YES, NO VALID REGION Saa093 01640000 
RMINAT ION 01474700 | 14 14 
092C 6C 00 25 04 3280 (WC TCBOINL2¢1,TCB1), PUSHIND(, PSH2) MOVE IN SIZE 01642000 O9AC 35 01 0141 
REG. SI2E 01474800 0930 BD 00 00 3281 CLI PUSHOCH-1¢, PSH2),0 LAST ON QUEUE ? 01644000 
01474900 | 15] 0933 F2 01 04 3282 JNE DT000042 NO, IT IS NOT 01646000 | 1 09B0 CO 87 0976 
. OR 01475000 
01475100 0936 5E 00 25 27 3283 ALC = TCBAINL2¢1, TCBL), TCBAINL4(, TCB1) ADD IN FACTOR 01648000 
01475200 | 16 093A 5D 00 25 24 3284 DT000042 CLC TCBAINL2(1,1CB1), TCBAINL1(,TCB1> MAX. ACTIVE 2 01650000 | 16 
> 01475300 093E F2 04 04 3285 JNH —_DT000055 NO, NOT GREATER 01660000 
NOT > 01475400 09B4 7C 00 25 
17 0941 5C 00 24 25 3286 MVC) TCBAINL1C1, TCB1), TCBAINL2(, TCB1) MAKE NEW MAX ACTIVE 01670000 | 17] 0987 5C 00 19 2D 
ARGER SIZE 01475500 0945 BD 00 00 3287 DTO00055 CLI PUSHOCH~1¢, PSH2),0 ANY MORE ON QUEUE ? aa093 01680000 O9BB 5C 00 1C 18 
01480000 0948 B5 02 01 3288 L PUSHOCH(, PSH2), PSH2 POINT TO NEXT 01690000 O9BF 7C 00 18 
INCLUDING 01490000 | 18} 0948 CO 01 0923 5289 BNE  DT000040 YES, CHECK NEXT 01700000 j 18 09C2 5E 01 19 19 
01500000 09C6 5E 01 19 19 
01510000 094F C2 02 0000 3290 DT000060 LA = #, TCB2 RELOAD TCB POINTER 01710000 O9CA 5E 01 19 19 
REGION AREA 01520000 | 19] 0953 BS 80 77 3291 DT000070 TBN TCBSTAT6<, TCB2), TCBATNS TASK NON-SWAPPABLE ? 01720000 | 19 OSCE 4E 00 25 OF; 
TASK 'S ACTIVE 01530000 0956 F2 10 13 3292 JT 07000085 YES, TASK NON~SWAP.  aa093 01730000 0903 4F 01 19 00f 
SER TCB 01540000 0908 CO 84 OSCE 
0} 0} 
G33 
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ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0040 1532 SCAMCOUT EQU x'40' . CONSOLE READY TO OUTPUT MESSAGE 02 
0020 1533 SCAYHELP EQU  X‘20' . HELP FEATURE ACTIVE 1R3| 


Min 1624 Creapoar coi yrine rm oO tne aceteal CAT tor Tn) 


3869 
3821* 3866 3872" 3881" ; 
3786" 
H34 
AGE 72 VO9/11/81 12/08/81 21:31 PAGE 73 09/11/81 12/08/81 21:31 
01 
ERR LOC OBJECT CODE 
FO 01541000 | 02| 0959 9E 00 2D 27 3293 ALC TCBRGSI2(1,1CB2), TCBAINL4(,TCB1) ADD IN FACTOR aa093 01735000 
99093 01542000 095D 9D 00 2D 24 TCBRGS12(1, TCB2), TCBAINL1(, TCB1) GREATER THAN MAX. ? 01740000 
NS? aa0o3 01543000 0961 F2 04 04 3295 JN 07000080 NO. NOT GREATER 01750000 
01544000 | 03 
0964 6C 00 24 20 3296 MVC TCBAINL1¢1,TCB1), TCBRGSIZ(, TCB2) MOVE IN NEW MAXIMUM 01760000 
01545000 0968 9F 00 20 27 3297 DT000080 SLC —TCBRGSI2(1, TCB2), TCBAINL4(, TCB1) DECR. Size 8093 01765000 
TCB ? 01550000 | 04]  096C BD 00 OC 3298 DT000085 CLI TCBCHAIN-1(, TCB2),0 ANY MORE TCB‘S ? 9093 01770000 
9a093 01560000 096F B5 02 0D 3299 L___TCBCHAINC, TCB2), TCB2 POINT TO NEXT IN CHAIN 01780000 
0972 CO 01 O8CB 3300 BNE 01000030 YES, CHECK NEXT TCB 91790000 
3093 01560600 | 05) O9E8 1€ 00 0000 20 
AP ? 9a093 01561200 3301 * 01800000 O9ED 75 02 17 
093 01561800 3302 * DEALLOCATE ALL PUSH ELEMENTS FOR CURRENT TCB 01810000 O9FO BD FF 12 
N? 01562400 | 06 3303 * 01820000 09F3 CO 01 OBSA 
2 01563000 0976 7D 00 OA 3304 DT000086 CLI TCBPUSH-1(, TCB1),0 ANY PUSH ELEMENTS 2  aa093 01830000 
T? 01563600 0979 F2 81 38 3305 JE 0T000088 NO, NONE TO DEQUE ~~ aa093 01840000 
KS 01564200 | 07 
097C 75 02 0B 3306 L___TCBPUSH(, TCB1), PSH2 XR2-> PUSH ELEMENT 01850000 
SIZE 01564800 O97F BS 80 04 3307 TBN — PUSHINDC, PSH2), PUSHPART INVALID OR PARTIAL PUS@A093 01860000 
GE 2 01565400 | OS} 0982 F2 10 OD 3308 JT pT000087 YES, INVALID 93093 01870000 
01566000 
0985 6C 00 2D 04 3309 MVC TCBRGS12C1, TCB1), PUSHINOC, PSH2) MOVE IN REGION SIZE 01880000 
01566600 | 09} 0989 B8 80 07 3310 TBN PUSHCOREC, PSH2),PUSHNONS NON-SWAP TASK PUSHED ? 01890000 
01567200 098C F2 90 03 3311 JF _0T000087 NO, DON'T MARK NON-SWAAR093 01900000 
ACTIVE 01567800 | 10} 098F 7A 01 00 3312 SBN TCBSTAT1¢,1CB1),TCBNSWAP PARK TASK NON-SWAP 01910000 
01568400 0992 2C 01 ODA7 03 3313 DT000087 MVC DTDCSS(2),PUSHOSS(,PSH2) MOVE IN SS VALUE 93093 01920000 
0997 3C 01 ODAS 3314 MVI DTDCSIZE,1 SET TO DEALLOCATE 1 TRACK 01930000 
COUNT 01570000 | 11] 0998 6C 01 08 01 3315 MVC TCBPUSH(2, TCB1), PUSHOCH(. PSH2) 01940000 
5 aa093 01575000 099F £2 01 00 3316 LA __0¢,PSH2), PSH1 XR1-> PUSH ELEMENT 01950000 
r 01580000 3317 * FREE LEN-PUSHLEN FREE PUSH ELEMENT 01960000 
RGSIZ 01590000 | 12] 09A2 F4 00 07 3318 SV" SVCFREE,QO «ISSUE FREE REQUEST 
09A5 0008 09A6 3319 OC _AL2(PUSHLEN) LENGTH OF AREA TO FREE 
iT 01610000 O9A7 01 O9A7 3320 DC ALICO+1) FREE FUNCTION BYTE 
| PUSH? 01620000 | 13 3321 *** END OF EXPANSION ** 
PUSHED ? 01630000 O9A8 CO 87 OD5D 3322 8 _DTDEALLO NO, DEALLOCATE WSWA TRACK 01970000 
SION Saa093 01640000 
14 3323 * TCBa R-TCB1 XR1-> CURRENT TCB 01930000 
01642000 O9AC 35 01 0141 3324 L321, TCBI GET TCB ADDRESS. 
01644000 3325 *** END OF EXPANSION ** 
01646000 | 15] 0980 Co 87 0976 3326 B —-DTO00086 GO CHECK NEXT ELEMENT aq093 01990000 
q 01648000 3327 * 912000000 
; 01650000 | 16 3328 * CALCULATE OLD SWAP SIZE IN TRACKS 02010000 
01660000 3329 * 02020000 
0984 7C 00 25 3330 DT0000SS MVI  TCBalM.2(, TCB1),0 SET TO 0 SIZE SWAP aa093 02030000 
ACTIVE 01670000 | 17] 0987 5C 00 19 20 3331 MVC TCBAXR1¢1, TCB1), TCBRGSIZ(, TCB1) SET = REGION SIZE @a041 02031000 
2 qa093 01680000 O9BB 5C 00 IC 18 3332 MVC TCBAARR-1¢1, TCB1), TCBAXRI-1(, TcB1) SAVE BEGL VALUE aa093 02032000 
01690000 O9BF 7C 00 18 3333 NVI TCBAXR1-1C, TCB1),0 2ERO OUT HIGH BYTE  aa041 02033000 
01700000 | 18} 09C2 5E 01 19 19 3334 ALC TCBAXR1(2, TCB1), TCBAXRI(, TCB1) DOUBLE VALUE 8041 02034000 
09C6 5E 01 19 19 3335 ALC TCBAXR1(2, TCB1), TCBAXRI(, TCB1) TIMES 4 aa041 02035000 
R 01710000 O9CA 5E 01 19 19 3336 ALC TCBAXR1(2, TCB1), TCBAXRIC, TCB1) TIMES 8 aa041 02036000 
£2 01720000 | 19} O9CE 4E 00 25 OE7F 3337 DTOOOO90 ALC TCBAINL2(1,TCB1),DTCO0001 © ADD IN 1 TRACK aa041 02040000 
P.  aa093 01730000 0903 4F 01 19 00AA 3338 SLC__TCBAXR1(2, TCB1), NUASCA+SCADTKSZ DECRENENT BY S/TRK aa04) 02050000 
0908 CO 84 OSCE 3339 BH  DT000090 MOPE TRACKS aa041 02060000 
0 
G34 
AGE 36 VO9/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 37 =VO9/11/81 12/08/81 21:31 #SVAU TCR CHANGE ORG 


ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


Arc lay) Wane 1004 Cramarer coi oveng: Teidibcaks: dead diBuslie: -sasiaai iach esate ie alas no 


3 VO9/11/81 12/08/81 oe 


01 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE 


O9DC 78 80 77 
O9DF 7B 80 77 
O9E2 7B 01 00 
O9E5 F2 90 05 


O9E8 1E 00 0000 2D 
O9ED 75 02 17 
O9FO BD FF 12 
O9F3 CO 01 OBSA 


3550 3551 


1512 3386" 3549 


ADDR STMT SOURCE STATEMENT 


3340 * 


3341_*_ AT THIS POINT TCB@INLI=MAX SWAPPABLE ACTIVE REGION EXCLUDING MY TASK 


PAGE 


74 WO9/11/81 


12/08/81 21: 


3342 * AND TCB@INL2=SHAP AREA SIZE IN TRACKS 


3343 * 

3344 TBN _TCBSTAT6¢, TCB1), TCBATNS WAS TASK NON-SWAPPABLE 2? 
3345 SBF  TCBSTAT6(, TCBL>, TCBATNS SET OFF ATTACHED NON-SUAP 
3346 SBF  TCBSTAT1¢, TCB1, TCBNSWAP SET OFF NON-SUAPPABLILITY 
334? JF____07000100 NO, BYPASS RESETTING 
3348 ALC NUaSCA+SCAMS#2KC1), TCBRGSI2(, TCB1) RESET SC/MS#2K 

3349 _DTO000100 L TCBCRB(, TCB1), RB2 XR2-> RB 

3350 CLI RBSLEN*$LDDSS-2¢,RB2), DETACH DETACH TCB REQUEST ? 

3351 BNE —0T000200 NO, GO CHANGE ORG POINT 


093 


O9F7 7D 00 5C 
O9FA F2 81 27 


O9FD 75 02 5D 


OAO0 2C 01 OAIA 03 


OAS E2 02 04 
OADS 34 02 OF7D 


OAOC OF 01 OE7D OAIA 


OAI2 35 01 OE7D 


OAI16 F4 00 07 
0A19 0004 
OAIB 81 


OAIA 


CALA 
OAIB 


OAIC 35 01 0141 


OA20 CO 87 O9F7 


0A24 75 08 25 
OA27 70 F6 6B 
OAZA F2 81 21 


OA2D 7D FS 68 
OA30 F2 81 1B 


0A33 70 F7 68 
OA36 F2 81 15 


0A39 7D FB 6B 
OA3C F2 81 OF 


GABF OF 00 0060 0E7F 


OAS5 FZ 01 06 


VO9/11/81 12/08/81 21:31 


GASE 35 02 O04F 
OA52 BF 00 12 DEVE 
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ADDR STMT SOURCE STATEMENT 


G35 


PAGE 


38 YO9/11/81 


12/08/81 21:31 


*S¥AU TCR CHANGE ORG UR DETAC 


ERR LOC OBJECT CODE 


ADDR 


fay) 


AAO ILZAN CANOGA) cett OCC AN Talwi es 


die pad epean Vee ete 


LAPOLAUONAL LL WN 1092 1090 
1710 3338 3607 3792 3834 
1654 
1796 1797-1798 1799 1815 
SCADWDBR C 001 
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H36 


75 WO9/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


3353 * 
3354 * FREE UP ALL ASSIGN FREE QUEED AREAS FOR TASK BEING DETACHED aes 02220000 
3355 * 02230000 
O9F? 7D 00 5C 3356 DTO00095 CLI TCBASGNQ-1¢, TCB1), 0 ANY ON QUEUE ? 02240000 
O9FA F2 81 27 3357 JE pT000105 NO, DONE FREEING =< 3 02250000 


O9FD 75 02 5D 3358 TCBASGNQC, TCB1), QUE2 XR2-> ELEMENT 02260000 
0A00 2C 01 OAIA 03 3359 MVC DTCLENG(2), 3¢, QUE2) MOVE_IN LENGTH OF AREA 7 02270000 
OAOS E2 02 04 3360 [A 4C QUE), QUEZ BUNP PAST AREA 02280000 
0808 34 02 0€7D 3361 ST DTCMORK, QUE2 ST POINTER 02290000 
OAOC OF 01 OE7D OAIA 3362 SLC__DTCWORK(2), DTCLENG DECREMENT BY LENGTH = 02300000 
OAIZ 35 O1 OE7D 3363 C DTCWORK, QUE] XR1-> AREA TO FREE ; 02310000 
OMIA 3364 DTCLENG EQU *+4 02320000 

3365 * FREE QUEUE-YES FREE AREA a 02330000 


OA16 F4 00 07 3366 SVC SVCFREE,QO = ISSUE FREE REQUEST 
OA19 0004 OALA 3367 OC = AL2¢0+4) LENGTH + 4 OF AREA TO FREE 
OAIB 81 OA1B 3368 DC ALICX'8O'+1) FREE FUNCTION BYTE 
3369 *** END OF EXPANSION ** 
3370 * TCBa R-TCB1 XR1-> CURREN| TCB 02340000 
OAIC 35 01 0141 3371 L 321, TCB1 GET TCB ADDRESS. 
3372 *** END OF EXPANSION ** 
OA2G CO 87 09F7 3373 B 0T000095 GO CHECK IF MORE 02350000 


0A24 75 08 25 3374 DTOO0105 L TCB@INL2(, TCB1), ARR SAVE VALUES IN ARR  aa023. 02351000 
0A2? 70 F6 6B 3375 CLI TCBTSKID(,TCB1), TCBIDSDP RWS SDLC TASK? 9023 02352000 
OAZA F2 81 21 3376 JE _DT000107 YES, DON'T DECR. CNT @a023 = 02353000 


OA2D 7D F8 68 3377 TCBTSKIDC,TCB1), TCBIDSNR RUS. SNA TASK? 48023 02354000 
0A30_F2 81 1B 3378 JE___pT000107 YES, DON'T DECR. CNT a90230 02355000 


0A33 70 F7 6B 3379 TCBTSKIDC, TCB1), TCBIOSN1 SNA TASK? aa052 02356000 
0A36 F2 81 15 3380 JE DT000107 YES, DON'T DECR. CNT aa052 02357000 


0A39 7D FB 6B 3381 TCBTSKID¢, TCB1), TCBIDSDS SECONDARY SDLC TASK? aad52 02358000 
OA3C_F2 81 OF 3382 JE__DT000107 YES, DON'T DECR. CNT aa052 x 02359000 


3383 * 02360000 
3384 * TURN OFF SYSTEM IN USE LIGHT IF NO TASKS RUNNING 7 02370000 
3385 * =. 02380000 
OA3F OF 00 0060 OE7F 3386 SLC NUASCA+SCADCTUT(1),DTCOO001 DECREMENT TASK COUNT 02390000 
OA4S F2 01 06 3387 JNE 07000107 YES, THEN LEAVE ON ; 02410000 


3388 * LITES CS-OFF TURN OFF LIGHT 02420000 


OA48 F4 00 50 3389 SVC SVCCX*? 20 
OA4B 09 OA4B 3390 oC XL1‘09° TRANSIENT ID _ 
OAAC 51 OAAC 3391 DC ALI(O#X'01'+X‘50") INDICATOR BYTE 
OA4D 00 OAaD 3392 oC XLI'0" NOT USED 
3393 *** END OF EXPANSTON ** = 
3394 * 02430000 
3395 * SUBTRACT 1 FROM “LIBRARY USE COUNT 02440000 
3396 * 7 02450000 
OA4E 35 02 004F 3397 DTOOO107 L = NUASCA*SCADLBF1,F12 XR2-> #LIBRARY F1 02460000 
0A52 BF 00 12 OE7F 3398 SLC FIADLBUSC1,F12),0TCO0001 DECRENENT USE COUNT BY 1 — 02470000 
3399 * 


G36 


9/11/81 12/08/81 21:31 #SVAU TCB CHANGE OkG UR DETACH TRANSIENT PAGE 39 =VO9/11/31 12/08/81 21:3) 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


1694 * EQU X‘O1" . RESERVED IR81 
1695 * 
OOAS 1696 SCADCFG9 EQU SCADCFG3+1 1 RENOTE CONFIGURATION BYTE [R3) 


02 


03 


05} 


07 


1 


12 


14 


i) 


16 


ScAaS C001 
15|SCARKEYS C 001 
SCARKKKF C001 


SCALOTX C 001 
SCAMLITR C 001 


‘#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 76 VO9/11/81 12/08/81 21.31 : 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
3400 * FREE USER MAIN STORAGE AND ASSOCIATED SWAP AREA ON DISK 02490000 
3401 * 7 02500000 
3402 * FREEP FREE ALL OF USER STORAGE 02510000 
0A57 F4 00 13 3403 SVC SVCFREEP,QO FREE MAIN STORAGE 
3404 *** END OF EXPANSION ** 
OABA 74 08 25 3405 ST TCBAINL2C, TCB1), ARR STORE VALUES BACK IN TCB 02520000 
OASD 1C 00 OO0E 24 3406 HVC NUASCA+SCAMAXRGC1), TCBAINL1(,TCB1) NA: ACTIVE SLIAPP 02530000 
062 1C 01 ODA? 29 3407 MVC DTDCSS(2), TCBTSSN-1¢, TCB1) MOVE Tie SS OF SWAP 02540000 
0A6? 1C 00 ODAS 25 3408 IVC DTDCSIZECI), TCBAINL2C, CBI) MOVE IN SWAP TRACK SIZE 02550000 
OAC CO 87 ODSD 3409 B _-OTDEALLO GO DEALLOCATE SWAP STORAGE 02560000 
3410 * TeBa R-TCB2 XR2-> CURRENT TCB 02570000 
0A70 35 02 0141 3411 L321, TCB2 GET TCB ADDRESS. 
3412 *** END OF EXPANSION ** 
oA74 BD 00 14 3413 CLI TCBJCBa-1¢, 1CB2),0 ANY ASSOC. JCB > 02580000 
0A77 B5 01 15 3414 L-TeBUCBAC, TCB2), JCB POINT TO JCB 02590000 
OATA 78 80 63 3415 TBN JCBDSCH4¢, JCB1), JCBNTMLK POST CP THAT JCB FREE? : 02600000 
OATD F2 91 OC 3416 Je 1000108, x91" NO. BYPASS POST alas 02610000 
0A80 7B 80 63 3417 SBF  JCBDSCH4C, JCB1), SCBMTMLK FREE JCB FOR RELEASE 02620000 
3419 * 02630000 
3419 * POST CP THAT THE JCB IS NOW NOT BEING USED, SO THAT RELEASE 02640000 
3420 * CAN BE CONTINUED. 02650000 
Bazi * 02660000 
0A83 C2 01 0250 3422 LA NUACPTCB+TCBTTC-1,XR2 POINT TO CP°S TIC 02670000 | 1 
3423 * POST DEV-QHDTTC, PREMPT-NO POST THE COMPAND PROC. 02680000 
OAST F4 CO 03 3424 Sve SVCPOST, GO 
OASA 43 OASA 3425 DC} ALICQHDTTC) HW 
ASB 80 OASB 3426 DC ALICPREEPPT+0+0) 
3427 *** END OF EXPANSION ** 
OASC BD F9 6B 3428 DTOO0108 CLI TCBTSKID(,TCB2), TCBIDBLD «FILE REBUILD ? aal45 02630900 | 1 
OASF F2 81 06 3429 JE 07000109 YES, POST COMTWND PROCAAI45 07681800 
OA9Z BD F2 68 3430 CLI TCBTS"'3¢,TCB2),TCBIOJQ BATCH JOB Q ? aaias 07682700 | 1 
0A95 F2 01 0D 3431 JNE  DTOOAL07 NO, IT 15 NOT aa 45 02683600 
3432 * al 45 02684500 | 1 
3433 * POST THE CONTAND PROCESSOR TO RESTART BATCH JOB Q aa a5 02685400 
3434 * aa a5 02686300 
OA9S 3A 02 0012 3435 DTOO0109 SBN NUASCA+SCADCFG1,SCATJQFM © INDICATE BATCH RESTARAATA5 02687200 | 1 
OASC C2 01 0250 3436 LA —_NUACPTCB+TCBTTC-1,XR1 POINT TO ECM FOR JOBQ a@al45 02688100 
3437 * POST DEW-QHDTTC, PRETT-NO BOST COPMAND PROCESSORAAT45 02639000 
OAAD F4 00 03 3438 S¥C SVCPOST, QO 1 
OAA3 43 OAA3 3439 DC ALICQHDTTC) 
ORAS 80 AAS 3440 DC ALICPREEMPT#0+0) 
3441 *** END OF EXPANSION ** v7 
OAA5 BD 00 12 3442 DTOOAIO7 CLI TCBRTUB-1¢,1CB2).0 ANY REQUESTING TUB? 02690000 
OAAS F2 81 OC 3443 JE DTOOBI07 NO, THEN CHECK OTHER aa023 02700000 
} 
OAAB BD 00 14 3444 CL! TCBJCBa-1¢, TCB2).0 ANY JCB ASSOC. ? a023 
OAAE B5 01 15 5445 ( TCBICBAC, TCB2), JCB! WRI JCB aa 
OAB! 78 08 00 3446 TBN JCBDINIT(, JCBI), JCBrART ©» THIS ART PROC.2 © aa023 
OAB4 F2 91 6E 3447 JO DTG00120,x"91" NO. BYPASS FREES 3a023 
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4 


1748 * 

O0C1 1749 SCADXMI1 EQU — SCADXMID-1 Ea’ 10S 1-7 186 
1750 * FQU x'80° PESERVED 

0040 1751 SCAMSPRK EQU ‘40° 61 - DISK DM (SPARK) 

0020 1752 SCANLSMF EQU  x'20" 02 - MLCA StF 
1753 * FOU xX'10" 03 - RESERVEL . 
1754 * FQU X08" 04 - RESERVED 


#SVAU TCR CHANGE ORG OR DETACH TR 


#5 Vai 


ERP LOC OBJECT CODE 


TCR CHANGE JRG OF DE" AC 


ERR LOC OBJECT CODE ADDR STrtT 
OAB7 BO 00 14 3448 
OABA F2 81 5B 3449 

3450 

3491 

“ "3452 

3453 

OABD 85 01 15 aie 
OACO 70 00 11 3455 
OAC3 F2 81 3A 3456 
OAC 75 01 12 3458 
OAC9 75 01 OF 3459 
OACE 4F 00 12 OF7F 3460 
OAD] F2 94 10 3461 
OAD £2 02 “059 3463 
3464 

OADS F400 OF 3465 
ADB 00 OADB 3466 
OADC 1E OAD 3467 
ADD 20 OADD 3468 
3469 

3470 

OADE F400 07 a7) 
OAE1 0020 OE? 3472 
OAE3 01 OAE3 3473 
Bale 

3475 

ur 

OES 35 02 0141 3478 
3479 

OAES 85 02 15 348C 
OAEB BS 01 12 3481 
OEE 9C 01 12 OC 3.482 
3483 

348 

OAF2 Fa 00 07 3485 
OAFS 9010 ORF 245 
On? o1 het 348 
3.088 

a 

OMFS 7 02 O14 3.89% 
3091 

OAFC CO 87 OABD 4492 
3493 

3a 

4498 

3a 

woe $5 


ADDR 


SCAMIPL C 001 


19}SCANLOTX C 001 
SCAMLITR C 001 
SCMILITX C 001 


SCANS32K C 001 3 
20 


J02 
#SVAU TCR CHANGE OR 


77 -WO9/11/81 12/08/81 21:31 


#SVAU  TCB CHANGE ORG OR DETACH TRANSIENT 


76 V09/11/81 


12/08/81 21:31 


Ol 


01 


ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02490000 | 02} OAB7 BD 00 14 3448 DTOOB107 CLI  TCBJCBa-1¢, TCB2),0 ANY JCB ASSOC. ? aa023 02710000 | 02} 0803 F2 81 OC 
02500000 OABA F2 81 5B 3449 JE 07000115 YES, BYPASS JCB FREE aal45 02720000 Se, 
R STORAGE 02510000 0806 75 01 31 
03 3450 * aa 45 02720200 | 03 
3451 * ARE THERE ANY FSB‘S OR AN Fl ASSOCIATED WITH THE TASK? IF SO, aal45 02720400 
CK IN TCB 3452 * FREE THEM. OTHER WISE, CHECK NEXT FOR THE JCB EXTENSION. aa 45 02720600 0809 F4 00 07 
E SWAPP 04) 3453 * aa 4s 02720800 OB0C 0010 
WAP OABD B5 01 15 3454 07002000 L TCBJCBAC, TCB2), JCB1 HAVE XRI->JCB AGAIN  aa145 OBOE_01 
ACK Size OACO 70 00 11 3455 CLI JCBDFSBL-1(, JCB1), ZERO 1S THERE AN FSB? aal45 02721200 
WAP STORAGE 05! + OAC3 F2 81 3A 3456 JE pT002020 IF NOT,GO CHECK FOR JCB EXTEN. aal45 02721400 
CB 02570000 
06} + OAC6 75 01 12 3458 L JCBDFSBL(, JCB1), JCB1 XR1~>FSB TO GET F1 ADDRESS  a@145 02721800 | O6|  OBOF B5 01 15 
OACS 75 01 OF 3459 L FSBDF IPTC, JCB1), JCB1_ POINT XR1 TO THE Fl a1 45 02722900 
02580000 OACC 4F 00 12 OE7F 3460 SLC FIADLBUS(1, JCB1), DTCOGO01 SUBTRACT FROM USER COUNT a@l45 02722200 
02590000 | 07} OADI F2 84 10 3461 JP pT002010 USE COUNT=0, DON'T FREE+DEQUE Fl a@145 02722400 | O7| 0812 F4 00 07 
B FREE? 02600000 B15 9070 
aai45 02610000 
08} —0AD4 C2 02 0950 3463 LA SCADFIST-1,XR2 -XR2->QUEUE HEADER aai45 02722800 
LEASE 02620000 3464 * DEQUE DSPL-F 1ADFCHN-1 DEQUE THE Fl aal45 02723000 
02630000 OADS F4 00 OE 3465 SVC SVCQUEUE,Q0 SVC FOR USER DEQUEUE FUNCTION 
EASE 02640000 | 09}  OADB 00 OADB 3466 DC XL1'0" QUEUE HEADER DISPLACEMENT IS ZERO 
02650000 OADC 1E OADC 3467 DC _ALICFIADFCHN-1) DISPLACEMENT TO QUEUEING FIELD 0818 2C 01 ODA7 5’ 
02660000 OADD 20 OADD 3468 DC ALICDEQUEUE) USER DEQUEUE FUNCTION OB1D 3C 01 CDAS 
TC 02670000 | 10} 3469 *** END OF EXPANSION ** 1 0B21 CO 87 0050 
D PROC. 02680000 3470 * FREE LEN-FIALLELB FREE THE Fl aal45 02723200 
OADE F4 00 07 3471 SVC SVCFREE.QO «ISSUE FREE REQUEST 
11] OAE1 0020 OAE2 3472 DC AL2CFIALLGLB) LENGTH OF AREA TO FREE 
OAE3 01 OAE3 3473 OC AL1CO+#1) FREE FUNCTION BYTE 
3474 *°* END OF EXPANSION ** 
aa145 02680900 | 12 3475 * aal45 02723400 | 1 B25 35 01 074) 
ND PROCAA145 02681800 
3477 *7002010 TCBa R-TCBZ GET THE CURRENT TCB ADDRESS  aal45 02723800 
aa 45 02682700 | 13} OAE4 35 02 0141 3478 DT002010 L 321, TCB2 GET TCB ADDRESS. 1 0829 F4 00 OF 
aa 45 02683600 3479 *** END OF EXPANSION ** OB2C 46 
OAES B5 02 15 3480 U TCBUCBaC, TCB2), JCB2 HAVE XR2 POINT TO THE JCB aa] 45 02724000 
aa 45 02634500 | 14] OAEB B5 01 12 3481 L JCBDFSBL(, JCB2>, JCB1 HAVE XR1 POINT TO FSB aa} 45 02724200 | 1 
aai45 02685400 OAEE 9C 01 12 OC 3482 MVC JCBDFSBL(2, JCB2), FSBDFCHNC, JCB1) aa} 45 02724400 
aa 45 02686300 3483 * SET UP TO CHECK THE NEXT FSB BEFORE THE FREE. 0145 02724600 OB2F 7C £0 05 
RESTARAA1 45 02687200 | 15} 3484 * FREE LEN-FSBLLNTH aal45 02724800 | 1 0632 1C £0 05 
R JOBQ aai45 02688100 OAF2 F4 00 07 3485 SVC SVCFREE.QO ISSUE FREE REQUEST 
OCESSORAA 45 02689000 OAFS 0010 OAF6 3436 DC AL2¢FSBLLNTH) LENGTH OF AREA TO FREE 0835 F4 GO OF 
16] OAF? 01 GAF? 3437 oc ALI1CO#1) FREE FUNCTION BYTE 1 B38 44 
3438 *** END OF EXPANSION ** 0B39 6C 
3439 * TeBa R-TCB2 XR2->CURRENT TCB LOOP BACK a@145 02725000 083A 60 
7] OAFS 25 02 0241 3490 L 321, TCB2 GET TCB ADDRESS. 17 
TUB? 02690000 3491 *** END OF EXPANSION ** 0838 C2 02 020C 
OTHER aad23 02700000 OAFC CO 87 OABD 3492 8 DT002000 CONTINUE LOOKING FOR FSB‘S aa] 4= 02725200 
19 18} O83F £4 00 OF 
2 aa023 02702000 i 3493 * aa] 45 02725400 0842 00 
aaoe3 02704000 3494 * 1S THERE AN EXTENSION TO THE JCB? [Ff SO, FREE IT. OTHERWISE,  aal45 02725600 0843 OC 
2 023 02706000 | 19) 3495 * FALL THROUGH TO FREE THE JCB. aa}45 02725800 | 1 B44 20 
S aa023 02708000 3496 * aa 45 02726000 
0B00 7D 00 30 3497 1T002020 CL! JCBDEXTa-1¢, JCB1), ZERO TS THEPE AN EXTENSION? aal45 02726200 0B45 30 OC 0060 
20 
HO2 
~ PAGE 40 VO9/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 4] VO9/11/81 12/08/81 21:3) #SVAU TCR CHANGE 


01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBIECT CO 


£\| Ton Srvruptal Teer TAB rise ewiGat ommeirrcinatice 


1301 


3206 3343" 3609 3711" 


SCANS32K C 001 


09/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 78 VO9/11/81 12/08/81 21:31 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
02710000 | 02} 0803 F2 81 OC 3498 JE pT000110 IF NOT, JUST FREE JCB aal45 02726400 C849 32 40 0070 
02720000 p40 39 800070, 3 
B06 75 01 31 3499 U JCBDEXTAC, JCB1), JCB ELSE, XR1->JCB EXTENS 1ONa@1 45 02726606 OB51 F2 9% 00 Ee 
02720200 | 03 3500 * NOW FREE THE JCB EXTENSION aai45 02726800 
02720400 3501 * FREE LEN-JCBDELNG FREE THE JCB EXTENSTONAA145 02727000) ies nc ee ord 35 
02720600 B09 F4 00 07 3502 SVC SVCFREE,QO = «ISSUE FREE REQUEST EF 
02720800 | 04  OBOC 0010 OBOD 3503 DC — AL2CJCBDELNG) LENGTH OF AREA TO FREE 3 
02721000 OBOE 01 OBOE 3504 DC ALICO+1) FREE FUNCTION BYTE Re ese soe ET 
02721200 3505 *** END OF EXPANSION ** 0854 C2 01 0256 i 
02721400 | 05 3506 * 02730000 38 
3507 * FREE JCB AND TCBWSWA IF NO ASSOCIATED TUB AND JCB ADDRESS NON-ZERO 02740000 0858 F400 03 3 
3508 * 02750000 OR5B 48 oBse 35 
02721800 | 06]  OBOF B5 01 15 3509 L TCBJCBAC, TCB2), JCB1 XR1-> JCB 02760000 OB5C 80 ORSC 35 
02722900 3510 *TO00110 FREE LEN-JCBLLNTH FREE JCB aa).45 02770000 2» 
0B12 3511 DTO00110 EQU * 36 
07} 0812 F4 00 07 3512 SVC SVCFREE,QO «ISSUE FREE REQUEST B50 35 01 0142 35 
0B15 0070 0B16 3513 DC —AL2CJCBLLNTH) LENGTH OF AREA TO FREE 3 
0817 O1 OB17 3514 DC ALICO+1) FREE FUNCTION BYTE % 
02722800 | 08 3515 *** END OF EXPANSION ** 3 
02723000 3516 * 02860000 by 
3517 * FREE UP THE WSWA ASSIGNED TO THE TASK 02870060 0861 75 02 17 % 
09 3518 * 02880000 | 0B64 £2 01 00 x 
0818 2C 01 ODA? 55 3519 DTO00115 MVC DTDCSS(2), TCBUSWAC,TCB2) MOVE IN WSlA POINTER aa145 02890000 B67 BD 00 00 35 
OB1D 3C 01 ODAS 3520 MVIDTDCSIZE, 1 SET TO DEALLOCATE 1 TRACK 02900000 OB6A BS 02 01 % 
10} 0821 CO 87 ODSD 3521 B —OTDEALLO GO DEALLOCATE THE USWA 02910000 | 1 % 
02723200 OB6D F4 00 07 35 
3522 * 02920000 0870 0030 0871 35 
ll 3523 * DEQUEUE THE TCB FROM ALL SYSTEM QUEUES IN SYSTEM 02930000 | 1]; 6872 01 0872 35 
3524 * 02940000 % 
3525 *7000120 TCBA R-TCB1 GET TCB ADDRESS IN XRI 02950000 0B73 CO 01 OB6s 36 
02723400 | 12} 0825 35 01 0141 3526 DT000120 L 321, TCB1 GET TCB ADDRESS. 1 
3527 *** END OF EXPANSION ** 6 
02723800 3528 * DEQUE DEV-QHDTCBQ, DSPL-TCBSWAPQ-1 02960000 35 
131 0B29 F4 00 OF 3529 Svc SVCQUEUE,QO © SVC_FOR SYSTEM DEQUEUE FUNCTION 1 5 
OB2C 46 0B2C 3530 DC ALICQHDTCBQ) DISPLACEMENT TO DESIRED QUEUE HEADER 35 
02724000 0B2D OF 0B2D 3531 DC ALICTCBSWAPQ-1) DISPLACENENT TO QUEUEING FIELD 0877 35 0) 014) % 
02724200 | 14] 0B2E 60 OB2E 3532 DC —-ALICSYS+DEQUEUE) SYSTEM DEQUEUE FUNCTION Ht % 
02724400 3533 *** END OF EXPANSION ** 35 
02724600 OB2F 7C EO 05 3534 MVE TCBPRIORC,TCB1), TCBPRUDH © CHANGE TO USER HIGH PRIOR 02970000 OB7B £4 G0 OF % 
02724800 | 15} 0632 7C EO 05 3535 MVI TCBPRIOR(,TCB1), TCBPRUDH © CHANGE TO USER HIGH PRIOR 02980000 | 1 OB7E 0030 OBTF 39 
3536 * DEQUE DSPL-TCBPRIQ-1, DEV-QHDPRIQ 02990000 0880 01 B80 25 
0B35 F4 00 OF 3537 SVC SVCQUEUE,Q0 SVC FOR SYSTEM DEQUEUE FUNCTION % 
16] —0B38 44 0B38 3538 DC — ALICQHDPRIQ) DISPLACEMENT TO DESIRED QUEUE HEADER ] OB81 F401 00 kis 
0839 6C 0839 3539 DC _ALICTCBPRIQ-1) DISPLACEMENT TO QUEUEING FIELD 0B34 0080 0885 35 
02725000 OB3A 60 OB3A 3540 DC ALICSYS+DEQUEUE) SYSTEM DEQUEUE FUNCTION 0B86 CO 87 0000 
WW 3541 *** END OF EXPANSION ** 
0B3B C2 02 020C 3542 LA NUACPTCB+TCBCHAIN-1, XR2 POINT TO CP TCB 03000000 
02725200 3543 * DEQUE DSPL-TCBCHAIN-1 93010000 
18] OB3F F4 00 OF 3544 SVC SVCQUEUE,Q0 SWC FOR USER DEQUEUE FUNCTION 
02725400 0842 00 0842 3545 oc XL1'0" QUEUE HEADER DISPLACEMENT 1S ZERO 
02725600 0843 OC 0B43 3546 DC ALICTCBCHAIN-1) DISPLACEMENT TO QUEUEING FIELD 
02725800 | 19} 0844 20 0B44 3547 DC ALICDEQUEUE) USER DFQUEUE FUNCTION 
02726000 3548 *** END Cf EXPANSION ** 
02726200 0845 3D 00 0060 3549 CLT NUaSCA*SCADCTUT, 0 ANY TASK'S ACTIVE 03020000 


1 VO9/11/81 12/08/81 21: #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 42 VO9/11/81 12/08/81 21:31 #SVAU TCR CHANGE ORG OR DETA 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADR 
02 1837 * SVEQU oo7seano | 0 
1838 * 0040 
1839 ® SVC R-BTYE EQUATES 1 
-3 03 1840 * 6 0042 


78 VO9/11/81 12/08/81 21:31 


02726400 


02726600 


02726800 
02727000 


02950000 


02960000 


42 09/11/81 12/08/81 21:31 


SCASTOPS C 001 


02 


03 


09 


10 


ll 


12 


3 


14 


15 


16 


Vv 


00760000 | 02 


Jo4 
#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE =79 «VO9/11/81 12/08/81 21:31 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
CB49 38 40 0070 3550 TBN NUa@SCA+SCADCPS1, SCAMALL AND NOT STOP SYSTEM ? 03030000 
0B4) 39 80 0070 3551 TBF  NU@SCA+SCADCPS1, SCANCPL AND MSG NOT ALREADY SENT? 03040000 
0B51 F2 96 OD 3552 JC DT000130.X'96" YES TO ONE OF ABOVE 03050000 
3553 * 03060000 
3584 * POST THE COMMAND PROCESSOR FOR STOP SYSTEM REQUESTED BUT STOP 03070000 
3555 * MESSAGE HAS NOT BEEN SENT 03080000 
3556 * 03090000 
0B54 C2 01 0250 3557 LA NUACPTCB+TCBTTC-1,XR1 XR1-> CP'S TTC 03100000 
3558 * POST DEV-QHDTTC, PRENPT-NO POST THE COMMAND PROC. 03110000 
0B58 F4 00 03 3559 SVC SVCPOST,.Q0 
OB5B 48 0B5B 3560 oC ALICQHDTTC> 
OBSC 80 OB5C 3561 oc ALLCPREENPT+0+0) 
3562 *** END OF EXPANSION ** 
3563 * TCBa R-TCB1 XR1-> CURRENT TCB 03120000 
OB5D 35 01 0141 3564 L 321, TCB1 GET TCB ADDRESS. 
3565 *** END OF EXPANSION ** 
3566 * 03130000 
3567 * FREE UP ALL RB‘S ASSOCIATED WITH TASK 03140000 
3568 * 03150000 
0B61 75 02 17 3569 DT000130 L TCBCRBC, TCB1>, RBZ RR2-> RB 03160000 
0B64 £2 01 00 3570 DT000140 LA 0¢, RB2), RBI XR1-> RB TO FREE 03170000 
0B67 BD 00 00 3571 CLI RBSCHAIN-1¢,RB2),0 ANY MORE IN CHAIN ? 03180000 
OB6A B5 02 01 3572 i RBSCHAINC, RB2), RBZ RR2-> NEXT RB 03190000 
3573 * FREE LEN-RBS$TLEN FREE THE RB 03200000 
OB6D F4 00 07 3574 SVC SVCFREE, QO ISSUE FREE REQUEST 
0B70 0030 0871 3575 0c AL2(RBSTLEND LENGTH OF AREA TO FREE 
0B72 01 0872 3576 oc AL1(0+1) FREE FUNCTION BYTE 
3577 *** END OF EXPANSION ** 
0B73 CO 01 0864 3578 BNE DT000140 YES, FREE NEXT 03210000 
3579 * 03220000 
3580 * FREE UP THE TASK'S TCB 03230000 
3581 * 03240000 
3582 *T000150 TCBA R-TCB1 XR1-> CURRENT TCB 03250000 
0B77 35 01 0141 3583 DTOO0150 L 321, TCB1 GET TCB ADDRESS. 
3584 *** END OF EXPANSION ** 
3585 * FREE LEN-TCBLEN 03260000 
OB7B F4 00 07 3586 SVC SVCFREE, QO ISSUE FREE REQUEST 
OB7E 0080 OB?F 3587 OC AL2CTCBLEN) LENGTH OF AREA TO FREE 
0B80 01 0B80 3588 oc AL1(0+1) FREE FUNCTION BYTE 
3589 *** END OF EXPANSION ** 
OB81 F4 01 OD 3590 svc SVCPNR, QWAIT ENABLE DISPATCHING AND EXIT 03270000 
0B34 00380 OB85 3591 oc AL2(DSABL) MASK FOR ENABLE 63280000 
0B86 CO 87 0000 3592 B 0 PROC CHECK IF EVER GET HERE 03290000 


ERR LOC OBJECT CODE 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


HO04 


PAGE 43 09/11/81 


ADDR STMT SOURCE STATENENT 


12/08/81 21:31 


SVCPREP C001 0026 1880 _ 
SuCPRIG C O01 0024” 1878 
SVCPT C001 00421895 
SweQs__C 0000201873 
SVCQSCAN COT 0018 1868 
SVCQUEUE C 001 000 
SVCQUAIT C 001 002C 
SvERDEG COO 002i 


OBBA 7C OO 27 
OBSD 5C 00 IF 26 
0891 7C 00 if 
0894 SE O1 If IF 
OB98 SE O1 IF If 
OBIC SE O1 1F IF 
OBAD 4€ 00 27 OFF 
OBAS 4F 01 If OOAA 
OBAR CO 84 OBAD 


07 
OBAE 4C_ 00 19 0000 
OBB3 5D 00 26 19 
OBB? F2 04 05 


OBBA CO 87 0034 


OBBE 01 OB 
OBBF 75 02 17 
OBC2 B8 02 IE 
OBCS F2 90 27 


i] 


OBC8 SF 00 19 26 
OBCC 5D 00 19 24 
1 
0BD0 F2 02 05 
1 
1 
0BD3 CO 87 0034 
i OBO? 03 OB 
OBD8 7D 00 1D 
OBDB F2 01 06 
V7 
OBDE 70 05 19 
OBE] F2 02 08 
1 
OBES 7D OF 19 
OBE? F2 02 05 


ray 


OBEA CO 87 0034 


1892 * DELAYED SVC R-BYTE EQUATES 
0040 1893 SVCFD EQU  X'40' DISK [0S 
0041 1894 SVCIO. = EQU.X‘41° DISKETTE [OCS 


PAGE 79 VO9/11/81 12/08/81 21:31 

STEM? 03030000 

EADY SENT? 03040000 

BOVE 03050000 
03060000 

STOP 03070000 
03080000 
03090000 
03100000 

D PROC. 03110000 

CB 03120000 

E 

IN? 

CB 

ING AND EXIT 


VER GET HERE 


PAGE 43 09/11/81 


12/08/81 21:31 


SVCKBTR_C 001 


3590 


3438 3559 


ERR LOC OBJECT CODE 


3465 3529 3537 


3544 


ADDR STMT SOURCE STATEMENT 


CONTINUE SETTING UP FOR CHANGED ORG POINT AND FETCH 


03 


4 


OBSA 7C 00 27 
OB8D 5C 00 IF 26 
0B91 7C 00 1E 
0B94 5E 01 IF IF 
0B98 5E Ol IF IF 
OB9C 5E Ol 1F IF 
OBAO 4E 00 27 OE7F 
OBAS 4F 01 1F OOAA 
OBAA CO 84 OBAD 


OBAE 4C 00 19 0000 
OBB3 5D 00 26 19 
OBB? F2 04 05 


3598 * CALCULATE THE SIZE OF SWAP AREA ON DISK REQUIRED 


3594 * 
3595 * 
35% * 
3597 * 
3599 * 
3600 DT000200 MVI 
3601 MVC 
3602 NVI 
3603 ALC 
3604 ALC 
3605 ALC 
3606 07000240 ALC 
3607 SLC 
3608 BH 
3609 Mc 


cLe 


TCBAINL4(, TCB1),0 SET TO 0 SIZE SWAP = aad 41 
TCBAIARC], TCB1), TCBAINL3¢, TCB1) SET = REGION SIZE aa041 
TCBAIAR-1¢, TCB1),0 ZERO OUT HIGH BYTE  aa041 
TCBAIARC2, TCB1), TCBAIARC, TCB1> DOUBLE VALUE aa041 
TCBAIARC2, TCB1), TCBAIARC, TCB1) TIMES 4 aa041 
TCBAIARC2, TCB1), TCBAIARC, TCB1) TIMES 8 aa04) 
TCBAINL4(1,TCB1>,0TCO0001 = ADD IN 1 TRACK aa041 
TCBBIARC2, TCB1),NUASCA+SCALTKS2 DECRENENT BY S/TRK aa041 
01000240 MORE TRACKS aa041 


TCBAXR1(1, TCB1), NUASCA+SCANS#2K MOVE IN STORAGE SIZE 
TCBAINL3¢1, TCB1), TCBAXR1¢, TCB1) MAIN STORAGE AVAIL.? 
YES, IT IS AVAIL. 


3613 * 
3614 * 


SWAPPABLE PAGES ARE NOT AVAILABLE TO LOAD TASK, THEREFORE 
RETURN ERROR CODE TO CALLER 


OBBA CO 87 0D34 


3615 * 
3616 0T000245 B 


OTERROR GO TO ERROR ROUTINE 


OBBE 01 
OBBF 75 02 17 
OBC2 BS 02 1E 


OBBE 3617 oc 


3618 DT000250 L 
3619 TBN 


ALICSATERROL) ERROR VALUE 
TCBCRBC, TCB1), RBZ XR2-> RB 
RBSLEN+SATFLAG(,RB2), SATNSWAP PROG. TO BE NON-SUAP? 


OBC5 F2 90 27 


OBC8 5F 00 19 26 


3620 JF 


3621 SLC 


01000260 NO, BRANCH 


TCBAXR1C1, TCB1), TCBAINL3¢, TCB1) DECR. SIZE 


OBCC 5D 00 19 24 


OBD0 F2 02 05 


3622 
3623 * 
3624 


cLe 


JNL 


TCBaXR1C1, TCB1), TCBRINL 1x, TCBL) WILL IT PUT TO SLEEP? 


AN ALREADY ACTIVE TASK ? 


07000255 NO, IT WILL NOT 


3625 * 
3626 * 


TASK [S NON-SWAPPABLE, AND [TS INITIATION WILL PUT AN 


0BD3 CO 87 0034 


3627 * 
3628 * 
3629 B 


ACTIVE TASK 


TO SLEEP, THEREFORE RETURN ERROR CODE TO CALLER 


DTERROR ERROR, 


B07 03 
0BD8 7D 00 1D 


0BD7 3630 oc 


3631 DT000255 CLI 


IF WILL PUT TASK TO SLEEP 
THIS ONLY ACTIVE TASK 


AL 1CSATERRO3) 
TCBAARR(, TCB1),0 


OBDB F2 01 06 


OBDE 7D 05 19 


3632 JNE 


3633 


07000257 NO, ENSURE 14K THEN 


TCBaXR1¢, TCB1), 2 JOK SWAPPABLE LEFT ? 


OBE] F2 02 OB 


OBE4 70 07 19 


3634 JNL 


3635 07000257 CLI 


DT000260 YES, 10K LEFT 


TCBAXRIC, TCBI), 7 14K SUAPPABLE LEFT ? 


OBE? F2 02 05 


OBEA CO 87 0034 


3636 JNL 


3637 B 


01000260 YES, 14K LEFT 


DTERROR GO TO ERBOR ROUTINE 
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ADDR STMT SOURCE STATEMENT 
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01 


(5} 


02 


1933 * TCB 


1934 RRRARAAARARRRA REAR RRARE ERE RERA PIR IEE RII II III IRIS IIIT II IIE IIE 


00780000 


1935 * 


TCBAINL3 C 001 


TCBAINL4 C O01 


TCBARSE C 001 


TCBABTRM C 001 


TCBAFAIL C 001 
TCBARQCT € 001 


TCBAINL2 C 001 0025 


C 001 


#SVAU TCB CHANGE OR 


ERR LOC OBJECT CODE. 


OBEE 02 


OBF6 1C 00 ODA 2 
OBFB IC 01 ODA7 2 
0000 CO 87 OD5D 
0CO4 35 01 0141 


0CO8 1C 00 ODAS 2 
OCOD CO 87 ODAE 


OC1l F2 87 IF 


0014 35 O1 0141 
OC18 1C 60 ODAS 2 
OCiD CO 87 ODAE 
0C21 35 01 0141 


0025 4C 01 29 ODA 
OC2A CO 87 0034 


OC2E 06 
oc “90 26 20 


0C33 35 01 0141 


0037 4C 01 29 ODA 


OC3C 4E 00 2B OE? 
OC41 4F 00 2A OEA 
0C46 F2 81 03 


#SVAU  TCB CHANGE 


ERR LOC OBJECT COl 
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aa04) 
86041 
aa041 
aa041 
4a041 
40041 
80041 
Y S/TRK 80041 
30041 


RAGE SIZE 


E AVAIL.? 
IL. 03960000 


RE 03980000 


UTINE 


ON-SWAP? 


TO SLEEP? 


T 04090000 


LLER 


SK TO SLEEP 
VE_TASK 
THEN 


LEFT ? 


LEFT ? 


JT ENE 


44 VO9/11/81 


12/08/81 21:31 


PAGE 


IUDOINL 2 & UE 


TCBASGNQ C 001 


01 


02| 


03) 


09 


10 


ll 


12 


13 


7 


18 


19 


FOI TOR IOI IOI 


* 


ROI IOI IO RO 


* * 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE 


OBEE 02 


OBEF 5D 00 27 25 
OBF3 F2 81 46 


OBF6 1C 00 ODAS 25 
OBFB 1C 01 ODA? 29 
0Co0 CO 87 O05D 


0C04 35 01 0141 


0C08 1C 00 ODAS 27 
ocoD CO 87 ODAE 


OBEE 3638 oc 


ALLL 2L0UT 902" 2£04% = 9£00 DINU DIT DIES DAUD DG 904) 
3667 3694* 3743 

2112 3211* 3212* 3215 3218 3219* 3241 3243* 3265 3601 
3675* 3717 3719 3755 

3208* 3209* 3210 3251* 3255* 3265* 3266 3268 3270 3283 
3600* 3606* 3645 3657 


3610 3621 


3293 3297 


3148 3864 3873 

2104 3196* 3207% 2210* 3213* 3220% 3331% 3332 3333% 3334 
3335% 3336 3336% 3338" 3609* 3610 3621* 3622 3633 3635 
2105 3197 3197% 3200* 3201* 3202 3202* 3203 3203" 3204 
3205* 3206 3206* 3207 3220 3221* 3748 


3334% 3335 
3711 
3204* 3205 


2219 
2137 3356 3358 


J06 


PAGE 81 09/11/81 12/08/81 21:31 


ADDR STMT SOURCE STATEMENT 


AL1C$ATERRG2) TASK WELL NOT LEAVE 14K 02 
3639 * 
3640 * IF A LARGER SWAP AREA 1S NEEDED THAN THE ONE ALLOCATED, DEALLOCATE 
3641 * OLD SWAP AREA AND ALLOCATE NEW, ELSE IF IN TERMINATION AND THE 03 
3642 * OLD SWAP AREA IS LARGER THAN THE ONE REQUIRED TO RUN, DEALLOCATE 
3643 * OLD AND ALLOCATE NEW OF SMALLER SIZE 
3644 * 04 
3645 0000260 CLC _TCBAINL4(1, TCB1), TCB@INL2(, TCB1) COMPARE SWAP SIZES 

JE 01000290 SIZES ARE EQUAL 


3648 * DEALLOCATE OLD SWAP AREA OF SIZE TCBaINL2, AND ALLOCATE NEW 
3649 * OF SIZE TCBAINL4 06) 
3650 * 
DTDCSIZEC1), TCBAINL2¢, TCB1) MOVE IN OLD SWAP SIZE 
MVC DTDCSS(2), TCBTSSN-1¢,TCB1) MOVE IN OLD SHAP SS 07 
B _DTDEALLO GO DEALLOCATE OLD SWAP 


XR1~> CURRENT TCB 08 
GET TCB ADDRESS. 


3654 * TCBa R-TCB1 
3655 L 321, TCB1 
3656 *** END OF EXPANSION ** 
3657 MVC = DTDCSIZEC1), TCBAINL4¢,TCB1) MOVE IN NEW SIZE 09 
3658 B ALLOC GO ALLOCATE NEW 


0C11 F2 87 IF 


3659 J 07000280 JUMP SUCCESSFUL 10 


3660 * 
3661 * ALLOCATION OF SWAP AREA WAS UNSUCCESSFUL, THEREFORE ALLOCATE 11 
3662 * OLD SWAP AREA BACK, AND RETURN ERROR CODE TO CALLER 


0014 35 01 0141 


3663 * 
3664 * TCBA R-TCB1 
3665 L 321, TCB1 


XR1-> TCB 12 
GET TCB ADDRESS. 


0C18 1C 00 ODAS 25 
0C1N CO 87 ODAE 


3666 *** END OF EXPANSION ** 
3667 MVC -OTDCSIZEC1), TCBAINL2(¢, 1CB1) XRi-> TCB 13 
B ALLOC GO ALLOCATE OLD BACK 


0C21 35 01 0141 


XR1-> TCB 14 
GET TCB ADDRESS. 


TCBa R-TCB1 
L 321, TCB1 


0€25 4C 01 29 ODAC 
OC2A CO 87 0034 


3671 *** END OF EXPANSION ** 
3672 MVC TCBTSSN-1¢2, TCB1), ALSSS 
3673 B OTERROR 


MOVE IN ALLCATED SS 15 
GO RETURN ERROR 


TUDPURLU & UU 
14] TCBFSWAP C 001 


#SVAU TCB CHANGE Of 


ERR LOC OBJECT CODE 


0049 F4 00 13 


OC4C 1C 00 0C57 2 
0C51 D2 02 2F 
0C54 6C 00 25 00 
0C58 75 02 17 
OC5B 5C 00 28 iC 
OC5F 7C FF 4F 
0C62 5C 1E 4E 4F 
0C66 B8 40 IE 
0C69 7D 00 28 
OC6C F2 91 22 


OC6F 1C 00 0C90 2 
0C74 OF 00 0C90 0 
OC7A OC 00 OC8E 0 
0C80 OC 00 OC8D O 
0C86 OE 02 0C90 O 
OcsC 4C 00 00 020 
0C91 1C 00 000D 1 
0096 BS 02 1E 

0099 F2 90 09 


OC9C 7A 01 00 
OC9F 7A 80 77 
OCA2 F2 87 OB 


OCAS 5D 00 26 24 
OCA9 F2 04 04 


OCAC 5C 00 24 26 
OCBO 1C 00 O00E 2. 
OCB5 B8 40 27 
OCBS F2 90 04 


OC2E 06 
OC2F "90 26 20 


OC2E 3674 oc 


AL1(SATERROS) ERROR CODE 16 


3675 MVC TCBAINL3¢1, TCBI), TCBRGSIZ(, TCB1) RESET REGION SIZE 


0C33 35 01 0141 


3676 *1000280 TCBA R-TCB1 XR1-> TCB 
3677 DT000280 | 321, 1CB1 GET TCB ADDRESS. V7 
3678 *** END OF EXPANSION ** 


0037 4C 01 29 ODAC 


3679 MVC TCBTSSN-1(2, TCB1), ALSSS MOVE IN ALLOCATED SS 
3680 * 13) 
3631 * FREE ALL OF STORAGE EXCEPT FIRST 2k BLOCK 


OC3C 4E 00 2B OE7F 
0C41 4F 00 2A OEA7 


3682 * 
3683 DT000290 ALC 
3684 SLC 


ADD 1 TO BEGL VALUE 19 
DECREMENT N BY 8 


TCBBEGL (1, TCB1), DTCO0001 
TCBTSSNC1, TCB1), DTCO0003 


0C46 F2 81 03 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE 


3685 JE 


01000300 


ONLY 2K ASSIGNED 


HO6 


PAGE 45 09/11/81 12/08/81 21:31 


ADDR STMT SOURCE STATEMENT 


OCBB AC 01 17 1D 
OCBF 2C OB OFOS 1 
OCC4 3C OE OEDO 
OCC8 BS 04 IE 
OCCB F2 10 04 


OCCE 3C OF OEDO 
oCd2 6C 00 2D IF 
0CD6 7) 05 2D 
OCD9 F2 04 OC 


ococ 7D 00 14 


#SVAU  TCB CHANGE | 


ERR LOC OBJECT COD 


1986 *VWWWWVWVWWWV THE FOLLOWING FIELDS ARE ORDER DEPENDENT VVVVVVYWVVVVWY 
0000 1987 TCBSTAT! EQU 0 TCB STATUS BYTE 1 


0080 1989 TCBWAIT QU 


x'80" 


0040 1990 TCRSWAPD EQU x'40' — TASK IS SWAPPED TO DISK. 


. TASK IS NOT ON READY QUEUE 03 


VO9/11/81 


LAP IVVULALT 
TCBEXTRA C 001 
TCBFORCD C 001 
14] TCBFSWAP C 001 
TCBFWAIT C 001 
TCBGWAIT C 001 
15] TCBHDMPT C 001 
TCBICKWT C 001 
TCBIDACT C O01 
16] TCBIDBEL C 001 
TCBIDBLD C 001 
TCBIDBSC C 001 
17] TCBIDBTS C 001 
TCBIUCCP C 001 
TCBIDCIC C 001 
18] TCBIOCP C 001 
TCBIDGA ¢ 001 
TCBIDGCE C 001 
19] TCBIDIBS C 001 
TCBIDINS C 001 
TCBIDINT C 001 


20 


12/08/81 21:31 


5 VO9/11/81 


12/08/81 


21:31 


wwe aber 
2041 
1991 
1995 
2023 
2003 
2195 
2033 
2155 
2165 
2177 
2172 
2157 
2162 
2163 
2167 
2181 


41IO ELIT 


2010 


3428 


2159 
2179 
2164 
2166 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE 


0C49 F4 00 13 


OC4C 1C 00 0C57 28 
0C51 02 02 2F 
0C54 6C 00 25 00 
0C58 75 02 17 
OC5B 5C 00 2B IC 
OC5F 7C FF 4F 
0C62 5C 1E 4E 4F 
0C66 BS 40 IE 
0C69 7D 00 28 
OCéC F2 91 22 


3686 * 
3687 


FREEP 
svc 


JO7 


PAGE 


ADDR STMT SOURCE STATEMENT 


FREE ALL BUT FIRST 2K 


SVCFREE?,QO FREE MAIN STORAGE 


3688 *** END OF EXPANSION ** 


3689 * 


3690 * SAVE ATR VALUE OF FIRST ASSIGNED PAGE 


3691 * 
3692 DT000300 MVC 


0T000310+3¢1), TCBBEGL(, TCB1) MOVE IN OLO BEGL VALUE 


82 V09/11/81 


19] TCBPRBEL C 001 
TCBPRBLD C 001 
TCBPRBSC C 001 


12/08/81 21:31 


04660000 


ERR LOC OBJECT CODE 


SSVAU TCB CHANGE ORG OR DETACH 


OCDF F2 81 06 


OCE2 75 02 15 
OCES BB 10 63 


OCES 1C 00 OCFS 28 


OCED 7C 08 2A 
OCFO 7C 01 2C 


ADDR S 


TCBATRS~32(, TCB1), ATR2 XR2->_ATRS OCF3 D2 02 30 

3694 DT000310 NVC = TCBRINL2C1,TCB1),#(,ATR2) SAVE ATR VALUE 3 
TCBCRBc, TCB1), RB2 XR1-. RB 3 
TCBBEGL(1, TCB1), TCBAARR-1¢,TCB1) MOVE ‘N NEW BEGL 3 


TCBATRSC, TCB1),X ‘FF * FOX OUT ATRS OCF6 9C 00 00 25 
TCBATRS-1¢31, TCB1), TCBATRSC, TCB1) OCFA F4 00 0C 3 
RBSLEN+SATFLAG(, RBZ), $ATREAL MAP TO REAL ? OCFD 78 80 04 3 


TCBBEGL(, TCB1),0 BEGL VALUE OF 0 ? 


OC6F 1C 00 0C90 28 
0074 OF 00 0C90 OE7F 
OC7A OC 00 OC8E 0C90 


0C86 OE 02 0C90 0E7B 
Oc8C 4C 00 00 0200 


0C91 1C 00 000D 19 
0C96 B8 02 IE 
0C99 F2 90 09 


0000 F2 10 03 


OC9C 7A 01 00 
OCOF 7A 80 77 


0T000340, X‘91' NO, DO NOT MAP 
0003 7A 40 6E 3 
® 0D06 75 02 1B 3 
* MAP LOGICAL EQUAL REAL TO THE LINK EDIT ADDRESS 37 
. 0D09 4E 00 74 0093 37 
DT000330+4¢1), TCBBEGL(, TCB1) MOVE IN OFFSET TO LAST+1 37 
SLC DT000330+4¢1), DTCO0001 MAKE OFFSET TO LAST ODOE 34 02 OEAD 3 
DT000330+2(1),DT000330+4 MOVE OFFSET TO INSTRUCTION 3 
07000330+1¢1),D1000330+4 MOVE IN LENGTH OD12 34 01 OEB2 3 
0T000330+4¢3), DTMAP ADJUST OFFSET AND ADDRESS 0D16 1C 00 OEB7 26 3 
3710 #(#,TCB1),NUASCA+NUACPTCB+# MOVE FIRST ATR VALUES OD1B 75 01 17 37 
3711 NUASCA+SCAMS#2K(1), TCBAXR1¢, TCB1) MOVE IN NEW VALUE OD1E 74 02 09 37 
3712 TBN — RBSLEN+SATFLAGC,RB2),$ATNSWAP TASK TO NON-SWAPPABLE ? 0021 74 02 03 37 
3713 JF DT000345 NO, CHECK IF MAX ACTIVE 0024 4C 01 0B OEA6 3 
0D29 Fé 00 82 37 
3714 SBN TCBSTAT1¢, TCB1), TCBNSWAP SET TO NON~SWAPPABLE @a254 OD2C SC 5F 5F OFOS sy 
3715 SBN _TCBSTAT6(, XR1), TCBATNS MARK ATTACHED NON-SWAP 37 


OCA2 F2 87 OB 


OCA5 5D 00 26 24 


3716 J 


3717 DT000345 CLC 


01000350 CONTINUE CHANGE ORG POINT 


TCBAINL3(1, TCB1), TCBAINL1¢, TCB1) NEW MAX ACTIVE REGION ? 


0031 F4 00 11 


OCA9 F2 04 04 


OCAC 5C 00 24 26 


3718 JNH 


3719 NVC 


07000350 NO, IT IS NOT 


TCBAINL1(1, TCB1), TCBAINL3¢, TCB1) MAKE NEW MAX ACTIVE 


OCBO 1C 00 O00E 24 
OCB5 B3 40 27 
OCB8 F2 90 04 


3720 01000350 MVC 
3721 TBN 
3722 JF 


NUASCA+SCANAXRG(1), TCBAINL1¢, TCB1) MAKE NEW MAX ACTIVE 
RBSLEN*$ATFLAG1(,RB2), $ATCOMON PROGRAM SUPPORT COMMON ? 
07000355 NO, BYPASS SCa UPDATE 


OCBB AC 01 17 10 
OCBF 2C OB OFOS 10 


3723 MVC 
3724 0T000355 MWC 


RBSLEN+SLDDL INK(2, RBZ), RBSLEN+SATLOADC, RB2) SET LINK=LOD 
ATLDPRM+$ATLOADCS$LODLEN), RBSLEN*SATLOADC,RB2) FETCH PRM 


occ4 3C OE OEDO 
OCC8 B8 04 IE 
OCCB F2 10 04 


3725 IVI 
3726 TBN 
3227 JT 


ATPMRSET+2,OP1+OP2+PRV+IARX SET TASK TO PRIVILEDGED 
RBSLEN+S$ATFLAGC, RBZ). $ATPRIV IS TASK TO BE PRIVILEDGED? 
07000360 YES, LEAVE PMR AS IS 


OCCE 3C OF OEDO 
0CO2 6C 00 2D IF 


3728 ‘VI 
3729 01000360 MVC 


ATPMRSET+2, OP 1+OP2+NPRV+IARX SET TASK TO BE NON-PRIV. 
TCBRGS!2(1, TCB1), RBSLEN+SATMSS12(,RB2) SET REGION SIZE 


OCD6 7D 05 2D 
OCD9 F2 04 OC 


3730 CLI 
3731 JNH 


TCBRGSI2¢, TCB1),5 CORE SIZE > 10K? aa093 
DT000365 NOT GREATER THAN 10K aa093 


Ww 


OCcDC 7D 00 14 


3732 CLI 


TCBJCBA-1¢, TCB1),9 ANY JCB ASSOC. ? #0093 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 46 VO9/11/81 12/08/81 21:31 *SVAU TCB CHANGE ORG OR DETAL 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR 
0040 2040 TCBCHKPT EQU X'‘40' . THIS TASK IS BEING CHECKPOINTED 02 OOF 
0020 2041 TCBEXTRA EQU  X‘20' - EXTENDED TRACE ACTIVE O00F 
0010 2042 TCBCCALL EQU X'l0' . CLOSE HAS BEEN CALLED INDICATOR 0011 


TCBLCK5I C001 0010 2145 
13] TCBLOISK C 001 005A 2133 
TCBLOREL C 001 0057 2131 
TCBLEN C 001 0080 2262 
14] TCBLINWT C 001 0040 2029 
TCBLONGW C 001 0010 1992 
TCBMABTN C 001 0010 2203 
5] TCBMAXID C 001 OOEO 2182 
TCBMIC C001 0057 2132 
TCBNRTMX C001 0072 2212 
16] TCBNSAFL C 001 0008 2204 
TCBNSSIZ C 001 002C 2120 
TCBNSTAB C 001 0004 2205 
17] TCBNDUMP C 001 0008 2225 
TCBNOIO C001 0002 1996 
TCBNRDY C 001 OOBE 2010 
18} TCBNSCNT C 001 0073 2213 
TCBNSHAP C 001 0001 1997 
TCBPRBCH C 001 00CO 2081 
19] TCBPRBEL C 001 O0FO 2069 
TCBPRBLD C 001 OOFO 2062 
TCBPRBSC C 001 O0F4 2054 


> VO9/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR 


ERR LOC OBJECT CODE 


2134 2135 
2132 2133 


3587 


2213 


2121 3738* 


2214 
3312 3346 3714 


Jos 


DETACH TRANSIENT PAGE 83 09/11/81 


ADDR STMT SOURCE STATEMENT 


17| TCBSMFON C 001 
TCBSNFPT C 001 
TCBSNARQ C 001 0002 2227 3 
18] TCBSOP C001 0008 1993 
TCBSPLRS C 001 0040 2260 
TCBSPLSP C 001 0010 2240 
19} TCBSPOOL C 001 002F 2124 2 
TCBSPUNK C 001 0080 2237 
TCBSPWTR C 001 


#SVAU TCB CHANGE ORG OR DETA 


ERR LOC OBJECT CODE 


ADDR 


04640000 OCDF F2 81 06 3733 JE 07000365 NO JCB ASSOC. 48093 0034 
0034 34 08 OE7D 
one OCE2 75 02 15 3734 lL TCBUCBAC, TCB1), JCB2 XR2-> JCB 93093 
04650000 OCE5 BB 10 63 3735 SBF  JCBOSCH4¢, JCB2), JCBNINTK SET FOR MAXI TERN.  a@093 0038 35 01 0141 
04660000 OCES 1C 00 OCFS 2B 3736 DTO00365 MVC _0T000370+2(1), TCBBEGL(, TCB1) MOVE IN TCBBEGL VALUE @a093 
04670000 OCED 7C 08 2A 3737 MVE TCBTSSNC, TCB1),8 SET SWAP SIZE TO 8 OD3C 78 80 04 
04680000 OCFO 7C 01 2C 3738 MI TCBMSSIZ(, TCB1), 1 SET MAIN STORAGE SIZE OD3F F2 90 OA 
04690000 OCF3 D2 02 30 3739 LA TCBATRS~31¢, TCB1), ATR2 POINT TO ATR STACK 
04700000 3740 * 0042 OE 01 OE7D OE7F 
04710000 3741 * RESTORE SAVED ATR VALUE IN THE TASK‘S NEW TCBBEGL SLOT 0048 35 10 OE7D 
04720000 OD4C 75 02 17 
04730000 OCF6 9C 00 00 25 3743 DT000370 MVC = #(1,ATR2), TCBAINL2(, 1CB1) RESTORE ATR VALUE OD4F BC 00 02 
04740000 OCFA F4 00 OC 3744 SVCLDATR, QO LOAD NEW ATR VALUE 0052 35 01 0€70 
04750000 OCFD 78 80 04 3745 TCBSTAT3(, TCB1), TCBTERM TASK IN TERMINATION ? 0056 9C 00 03 00 
04760000 0000 F2 10 03 01000380 YES, BYPASS ALLOWING ATTACH 
04770000 OD5A F4 00 11 
0003 7A 40 6E TCBSTAT4(, TCB1), TCBATTCH ALLOW ACCEPT WITH 0 INVITES 
04780000 0006 75 02 1B TCBAXR2¢, TCB1), CD2 XR2-> FIRST PAGE ASSIGN. 
04790000 DSABL CANCL-Y, TCB-TCB1 DISALLOW CANCEL 
04800000 0D09 4E 00 74 0093 ALC _TCBCNCNT(1,TCB1),NU@SCA+SCADCON] INCREMENT CANCEL COUNT 
04810000 * END OF EXPANSION ** 
04820000 ODOE 34 02 OEAD ST  ATOCODE+4, D2 STORE POINTER TO TASK'S 
ON 04830000 * LOGICAL PARTIOTION START 
04840000 OD12 34 O1 OFBZ ATTCB, TCB1 STORE POINTER TO TASK‘S TCB 
S 04850000 0D16 1C 00 0EB7 26 ATRGSAVC1), TCBAINL3¢,TCB1) SET REGION SIZE 
04860000 OD1B 75 01 17 TCBCRBC, TCB1), RB1 XR1-> RB 
04870000 ODIE 74 02 09 RBSTARC, RBI), CD2 STORE NEW IAR VALUE 
? 04890000 0021 74 02 03 RBSXR1C, RB1),CD2 STORE NEW XR1 VALUE 
04900000 0024 4C 01 0B OEA6 RBSPSR(Z, RBI), ATPMRL SET UP PMR/PSR 
0029 F6 00 82 OP1+PRV+DSABL SET TRANSLATION TO ON 
254 04910000 OD2C 8C 5F SF OFO8 ATOCDLN-1CATOCDLN, CD2), ATOEND-1 MOVE CODE TO STORAGE 
04920000 
T 04930000 0031 F4 00 11 SVCEXIT, Q0 
3764 *** END OF EXPANSION ** 
N? 04940000 
04950000 
04960000 
E 04970000 
? 04980000 
04990000 
Loo 05000000 
PRI 05010000 
05020000 
D? 05030000 
05040000 
05050000 
E 05060000 
093 05061000 
093 05062000 
093 05063000 


46 VO9/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE 


#SVAU  TCB CHANGE ORG OR DETACH TRANSIENT PAGE 47 09/11/81 


ADDR STMT SOURCE STATEMENT 


12/08/81 21:31 


#SVAU TCB CHANGE ORG OR DET 


ERR LOC OBJECT CODE ADD 


02 


OOOF 2094 TCBRDYQ EQU TCBCHAIN*2 SYSTEM READY QUEUE CHAINING FIELD 


02 000 


12] TCBPRUDM C 001 0001 2077 
TCBPTRWT C 001 0080 2028 
TCBPUSH C 001 OO0B 2092 2093 3274 3276 3304 3306 3315* 
13] TCBQCNT C 001 0007 2088 2089 
TCBQUATT C 001 0008 2018 
TCBRDYQ C001 OOOF 2094 2095 2096 
JA] TCBRGSIZ C 001 002D 2121 2124 3293 3294 3296 3297% 3309* 3331 3348 3675 3729* 3730 3918" 
TCBRSE C001 0027 2113 2117 3148 3864 3864 3873 3873* 
TCBRTUB C001 0013 2097 2100 3442 
15] TCBRWAIT C 001 0004 2022 
TCBSDTAC C 001 0002 2241 
TCBSDTSO C 001 0040 2238 
16/TCBSFILK C 001 0010 2224 
TCBSHORC C 001 0080 2188 
TCBSIAR C 001 0059 2134 
17}TCBSMFDN C 001 0080 2252 
TCBSMFPT C 001 O07C 2248 2255 
TCBSNARQ C O01 0002 2227 3252 3262 
18] TCBSOP C001 0008 1993 
TCBSPLRS C 001 0040 2260 
TCBSPLSP C 001 0010 2240 
19NTCBSPOOL C 001 002F 2124 2125 2126 2127 
TCBSPUNK C 001 0080 2237 
TCBSPWTR C 001 0080 2259 


Jo9 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 84 09/11/81 12/08/81 21:31 


12/08/81 21:31 


ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0034 3766 DTERROR EQU * 


12] TCBWAFLG C 001 O07A 2244 


2248 


3189 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ADDR STMT SOURCE | 


OD5D 3783 DTDEALL( 


0D34 34 08 070 3767 ST __DTCWORK, ARR STORE CALLER'S ARR 0068 3784 
3768 * TCBA R-TCB1 XR2~> CURRENT TCB OD5D C2 02 0068 3785 
0038 35 01 0141 3769 L 321, TCBL GET TCB ADDRESS. 0D61 B4 08 3D 3786 
3770 _*** END OF EXPANSION ** 0064 C2 01 02A2 3787 
OD3C 78 80 04 TCBSTAT3¢, TCB1), TCBTERN TASK IN TERMINATION ? 0068 9C 04 45 05 3788 ATOOO01( 
OD3F F2 90 OA DTEROO10 NO, IT IS NOT OD6C BC 01 2C 3789 ATOO002( 
ODGF AD 01 44 3F 3790 _ATO0003 
0D42 OE 01 OE7D OE7F OTCWORK(2), DTCO0001 ADD 1 TO ARR 0073 F2 81 1D 3791 
0048 35 10 OE7D OTCWORK, IAR CONTINUE PROCESSING 
op4ac 75 02 17 TCBCRBC, TCB1), RB2 XR2-> CURRENT RB 0076 8E 01 44 OOAA 3792 
OD4F BC 00 02 RBSXR1-1¢, RB2),0 SET RETURN CODE OD7B AE 00 2C 2C 3793 ATOO004C 
0052 35 01 OE7D OTCWORK, RIB1 XR1-> RIB BYTE OD7F EO 20 07 3794 
0056 9C 00 03 00 RBSXR1¢1, RBZ), 0¢, RIB) MOVE_IN RETURN CODE 
EXIT ROUTINE 0082 36 01 OE78 3795 
OD5A F4 00 11 SVCEXIT,QO OD86 AF 00 45 05 3796 
3781 *** END OF EXPANSION ** ODSA EO 84 04 3797 
0D8D B5 01 42 3798 
0090 EO 87 00 3799 
0093 7A 00 00 3800 ATO0005* 
0D96 AF 00 40 05 3801 
OD9A £0 84 13 3802 
3803 * 
O09D F4 00 01 3804 
ODAC 40 ODAO 3805 
ODA] 00 ODA1 3806 
3807 RRR END 
ODA2 CO 87 0000 3808 RTDEALL 
ODA6 ODA? 3809 DTDCSS 
ODAS ODAS 3810 DTDCSIZE 
ODA ODAD 3811 DTSVELM 


ODAA 3812 DTSVCHAN 
ODAC 3813 DTSVSSVL 
ODAD 3814 DTSV#BYT 


ODAC 3815 ATALLCOM 
ODAC 3816 ALSSS 


HO9 


1 12/08/81 21:31 @SVAU  TCB CHANGE ORG OR DETACH TRANSIENT PAGE 48 VO9/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


ERR LOC OBJECT CODE 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ADDR STMT SOURCE 


711/81 12/08/81 21:31 


TCBTWAIT C 001 0004 
TCBUDMPR C 001 
12] TCBWAFLG C 001 
TCBWAIT C 001 
TCBWAITD C 001 
13] TCBWIOSP C 001 
TCBWMASK C 001 
TCBWNSK2 C 001 
14] TCBWSILK C 001 
TCBWSWA C001 
TCBLMAIT C 001 
15]TCBX C001 


TCBXNTQ C 001 0011 
TCBXWAIT C 001 
C 001 


16] TCB1 


W 


18 


2006 
2231 
2244 
1989 
2001 
2242 
2012 
2026 
2226 
2130 
2017 
2255 
2096 
2002 
3113 


2248 
2010 


2026 
2037 


2131 3519 


2257 
2097 


3187* 3189 3190 3196 3197 3197 3200 3201 


3202 3202 3203 3203 


3204 3204 3205 3205 3206 3206 3207 3207 3208 3209 3210 3210 


3211 3212) 3213 3215 3218 «3219 3220 3220 3221 
3241 3243 3248 3249 3251 


3227 3233 3234 


3255 3256 3258 3260 3263 3265 3266 


3268 3268 3270 3270 3272 3280 3283 3283 3284 3284 3286 3286 


3293 3294 3296 3297 3304 3306 3309 3312 3315 3324* 3330 3331 


3331 3332 3332 3333 3334 3334 3335 3335 3336 3336 3337 3338 


3344 3345 3346 3348 3349 3356 3358 3371* 3374 3375 3377 3379 
3381 3405 3406 3407 3408 3526* 3534 3535 3564* 3569 3583* 3600 
3602 3603 3603 3604 3604 3605 3605 3606 3607 3609 
3610 3610 3618 3621 3621 3622 3622 3631 3633 3635 3645 3645 


3601 3601 


3651 3652 3655* 3657 3665* 3667 3670* 3672 3675 3675 3677* 3679 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE 


OD5D C2 02 0D68 
0061 B4 08 30 
0064 C2 01 02A2 
OD63 9C 04 45 05 
OD6C BC 01 2C 
OD6F AD 01 44 3F 
0073 F2 81 10 


0076 8E 01 44 OOAA 


OD7F £0 20 07 


J10 


ADDR STMT SOURCE STATEMENT 


0D5D 3783 DTDEALLO EQU 
0068 3784 
3785 LA 
3786 ST 
3787 LA 
3788 ATO00010 MVC 
3789 ATO00020 MVI 


3791 JE 


ALC 


OD82 36 01 0E73 
0086 AF 00 45 05 
ODSA £0 84 04 


A 
SLC 
BH 


ODD B5 01 42 
0D90 EO 87 00 


0093 7A 00 00 
0096 AF 00 40 05 
OD9A EO 84 13 


L 
B 


3800 ATOOO050 SBN 
3801 SLC 
3802 BH 


3803 * 


OD9D F4 00 01 
ODAC 40 
ODAl 00 


3804 svc 
ODAO 3805 oc 
ODA] 3806 oc 


ODA2 CO 87 0000 


x 


USING ATO00010, BAS2 


AT000010, BAS2 
RTDEALL +3, BAS2), ARR 
NUaTWAXR, F51 


PAGE 85 09/11/81 


USE AS A BASE AREA 
LOAD BASE REGISTER 
STORE CALLER'S ARR 
POINT TO ALLOC. BIT NASK 


DTSVELMCTWAXN-TWAXMAP, BASZ), TWAXN-TWAXMAPC,F51) MAP 


AT000050+1¢,BAS2), X‘01' 
3790 ATO00030 CLC _ATALLCOM(2, BAS2), DTDCSS¢, BAS2) 


ATO00050 


INIT. MASK TO X‘01* 
UP_TO AREA TO FREE ? 
YES, GO DEALLOCATE TRACK 


ATALLCOM(2, BAS2), NUASCA+SCADTKSZ ADD SECTORS/TRACK @a041 
AT000050+1¢1,BAS2),ATO00050+1¢,BAS2) DOUBLE Q-CODE 
BNOL ATO00030¢, BAS2) 


ALMONE, F51 


NOT OVERFLOW 


12/08/81 21:31 
01 


02 


03 


04 


05} 


POINT TO NEXT BYTE 


DTSVABYTC1,BAS2), ATO00020+1(,BAS2) DEC. # BYTES 


AT000020¢, BAS2) 


DTSVCHANC, BAS2),F51 
AT000010¢, BAS2) 


CHECK NEXT BYTE 


XR1~> NEXT BIT MASK AREA 
GO CHECK NEXT AREA 


0¢,F51),# 


FREE UP TRACK 


DTDCSIZEC1, BAS2), ATO0OO20+1¢,BAS2) DONE FREEING ? 


AT000040¢, BAS2) 


GPOST MASK-TCBSWAIT 


NOT DONE, FREE NEXT 


POST ALLOCATE WAITORS 


10 


SVCGPOST, 0 
ALLCTCBSWAIT) 
AL1(O) 


ll 


3807 *** END OF EXPANSION ** 


3808 RTDEALL B 


ODAG 
ODAS 
ODA? 


ODA? 3809 DTDCSS DS. 
ODAS 3810 OTDCSIZE DS 
ODAD 3811 DTSVELM DS 


4 


RETURN TO CALLER 


12 


CL2 
CL1 
CL5 


SS HOLD AREA 
SIZE HOLD AREA 
SAVED ELEMENT 


3 


ODAA 3812 DTSVCHAN EQU 
ODAC 3813 DTSVSSVL EQU 
ODAD 3814 DTSV#BYT EQU 


DISVELM-3 
DTSVCHAN+2 
DTSVSSVL+1 


FORWARD CHAIN 
START SS VALUE 
NUMBER BYTES INDEX 


ODAC 3815 ATALLCOM EQU 
ODAC 3816 ALSSS — EQU 


DTSVSSVL 
DTSVSSVL 


START OF SWAP/TWA POOL 
RETURNED SS VALUE 


5 


09/11/81 12/08/81 1:31 | 
iF 


16 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


H10 


#SVAU TCB CHANGE ORG OR DETACH TRI 


ERR LOC OBJECT CODE ADDR_STNT 
ODAE 3818 
ODAS_ 3819 
ODAE C2 01 ODAS 3820 
ODB2 74 08 C9 3821 
ODB5 C2 02 02A2 3822 
ODB9 6C 04 05 05 3823 
ODBD 5C 01 CC 04 3824 
ODC1 5F 00 05 38 3825 
ODC5 5C 00 2A 05 3826 
ODC9 5C 00 4A 05 382? 
ODCD 5C_00 75 05 3828 
ODD1 6C 00 FA 00 3829 
ODDS 74 02 4C 3830 
ODDS 74 02 77 3831 
ODDB 5C 00 CA 00 3832 
ODDF 7C 01 40 3833 
ODE2 46 01 CC OOAA 3834 
ODE7 B38 00 00 3835 
ODEA F2 10 10 3836 
ODED 5C 01 04 CC 3837 
ODF1 1C 00 0000 FA 3838 
ODF6 5C 00 CA 00 3839 
ODFA F2 87 OE 3840 
ODFD 5C 00 5A 40 3841 
0£01 BB 00 00 3842 
OE04 SF 00 CA 38 3843 
OE08 F2 04 63 3844 
OEOB 5E 00 40 40 3845 | 
OEOF DO 20 3A 3846 
0£12 76 02 DO 3847 
0E15 5F 00 05 38 3848 
0£19 DO 02 37 3849 
OEIC 1C 00 0000 FA 3850 | 
0£21 7D 00 01 3851 
0E24 75 02 02 3852 
0E27 DO 01 11 3853 
3854 
OE2A F4 00 06 3855 
0E2D 0013 OE2E 3856 
OE2F 01 OE2F 3857 
3858 
0E30 36 01 ODAA 3859 
0E34 F2 81 31 3860 
3861 | 
0£37 35 02 0141 3862 
3863 | 
OE3B 6C OF OF 27 3864 


PAGE 49 09/11/81 12/08/81 21:31 [va TCB CHANGE ORG OR DETACH 7 
fant 


 V09/11/81 


041 


12/08/81 21:31 


05450000 
05460000 
05470000 
05480000 
05483000 
05486000 
05510000 
05520000 
05530000 


05540000 
05550000 
05560000 


05570000 
05575000 
05580000 


05583000 
05586000 


05590000 
05600000 
05610000 


05620000 


15] TUBSRACT C 001 0000 2371 


16] TUBSRDSN C 001 0062 2405 


17} TUBSRSTR C 001 0007 2407 


18] TUBSSKIP C 001 0080 2352 


19} TUBSVH C001 0010 2378 


05630000 


05640000 
05650000 
05652000 


05654000 
05656000 
05658000 


05660000 
05665000 


49 09/11/81 


12/08/81 21:31 


NE ee Se! ee meee, | ane ere 


TUBSPUPM C 001 0080 2810 
TUBSPWI C001 O0A7 2401 


TUBSRDIN C 001 0042 2406 
TUBSRDMD C 001 0022 2408 


TUBSSAVE C 001 0002 2403 
TUBSSAVS C 001 0006 2404 


TUBSTANZ C 001 OOEO 2531 
TUBSUERP C 001 0080 2375 


TUBABTRM C 001 0001 2653 
TUBACN C001 0040 2592 


J11 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 
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01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 ODAE 3818 ALLOC QU * 05680000 | 02} OE3F 4C 00 12 ODAB 
ODAS 3819 USING DTDCSIZE, BAS USE_AS A BASE AREA 05690000 0£44 4C 01 11 OE71 
ODAE C2 01 ODAS 3820 LA DTDCSIZE, BAS1 LOAD BASE REGISTER 05700000 
03} oDB2 74 08 C9 3821 ST —_ RTALLOC+3(, BAS1), ARR STORE CALLER'S ARR 05710000 | 03) 049 F4 01 04 
ODB5 C2 02 02A2 3822 ALLOOOOS LA NUATWAXR, F52 POINT TO FORMAT 5 05715000 OE 4C_35 
ODB9 6C 04 05 05 3823 ALLOOO10 MVC — DTSVELMCTWAXN-TWAXMAP, BAS), TWAXN-TWAXMAPC, F52) MAP 05720000 
ODBD 5C 01 CC 04 3824 MVC ALSSSEC2,BAS1),ALSSS(,BAS1) INIT. END ADDRESS 05730000 O£4D 1€ 00 ODAS 12 
ODC1_5F 00 05 38 3825 SLC___DTSVSBYTC1, BAS), ALLO0020+1(, BAS1) DECR. TRACKS INDEX 05740000 O£52 1C 01 OE71 11 
ODC5 5C 00 2A 05 3826 tC ALLOOO15+1(1,BAS1), DTSVABYTC,BAS1) MOVE IN L-1 05741000 OE57 9C OF 27 OF 
05} —ODC9 5C 00 4A 05 3827 MC ALLO0045+1(1,BAS1), OTSV#BYT(,BAS1) MOVE IN L-1 05742000 | 05} 
ODED 5C 00 75 05 3828 INC ALLOOO75+1(1,BAS1), DTSVABYT(,BAS1) MOVE IN L-1 05743000 OE5B F4 00 07 
ODD1 6C 00 FA 00 3829 ALLOOO15 MVC ALSAVEC#, BAS1),0(, F52) SAVE MASTER PATTERN 05744000 OESE 0013 OESF 
06} — ODD5 74 02 4c 3830 ST — ALLO0045+3(, BAS1), F52 STORE MASTER ADDRESS 05745000 | 06) 0E60 01 0€60 
ODDS 74 02 77 3831 ST___ ALLOO075+3(, BASIL), F52 STORE MASTER ADDRESS 05746000 
ODDB 5C 00 CA 00 3832 MVC ALSI2(1,BAS1),0TDCSIZE(,BAS1) MOVE IN SIZE 05760000 O€61 C2 01 ODA8 
07} ODDF 7C 01 40 3833 ALLOOOZ0 MVI —ALLO0040+1(, BAS1),X‘O1' INIT. BIT TO TEST 05770000 O€65 DO 81 00 
ODE2 4€ 01 CC OOAA 3834 ALLOOO30 ALC ALSSSE2,BAS1),NUASCA+SCADTKSZ ADD SECTORS/TRACK _aa041 05780000 
ODE? B8 00 00 3835 ALLOOO40 TBN 0¢,F52),# TRACK AVAILABLE ? 05790000 0£68 OF 01 O€71 OE76 
08] ODEA F2 10 10 3836 JT ALLOOOSO YES, ALLOCATE IT 05800000 OE6E 


OE6E CO 87 0000 


ODED 5C 01 04 CC 3837 MVC ALSSS(2,BAS1,ALSSSEC,BAS1) NO, RESET START 
ODF1 1C 00 0000 FA 3838 ALLOOO4S MVC = #(#), ALSAVEC, BAS1) RESTORE MASTER PATTERN 05820000 
ODF6 5C_00 CA 00 3839 MVC__ALSI2(1,BAS1), DTDCSIZEC,BAS1) RESTORE SIZE TO ALLOCATE 
ODFA F2 8? OE 3840 J ALL00070 GO CONTINUE 


ODFD 5C 00 5A 40 3841 ALLOOO5SO MVC ALLOOO60+1(1,BAS1),ALLO0040+1(,BAS1) MOVE _IN MASK 
0E01 BB 00 00 3842 ALLOQO6O SBF 0¢,F52),# INDICATE ALLOCATED 05860000 
OE04 5F 00 CA 38 3843 SLC ALSI2(1,BAS1), ALLO0020+1(,BAS1) ALLOCATED ALL ? 05870000 
OE08 F2 04 63 3844 JNH_ ALLOOO9O YES, ALLOCATION DONE 


1] 


12 


OEOB 5E 00 40 40 3845 ALLOOO70 ALC ALLO0040+1(1,BAS1),ALLO0040+1(,BAS1) DOUBLE Q-CODE 
OEOF 00 20 3A 3846 BNOL__ ALLOQO30(, BAS1) NOT DONE BRANCH 


13] 0£12 76 02 00 3847 A ALMONE(, BAS1), F52 BUMP TO NEXT BYTE 05910000 
0E15 5F 00 05 38 3848 SLC___DTSV#BYTC1,BAS1),ALLO0020+1(,BAS1) EXHAUSTED INDEX ? 05920000 


0E19 DO 02 37 3849 BNL — ALL00020¢, BAS1) NO, CHECK NEXT BYTE 05930000 


OEIC 1C 00 0000 FA 3850 ALLOOO75 MVC #(#), ALSAVE(, BAS1) RESTORE MASTER INDEX 05940000 
0E21 7D 00 01 3851 CLI DTSVCHAN-1¢,BAS1),0 ANY MORE INDICES ? 05950000 
0E24 75 02 02 3852 L DTSVCHANC, BAS1), F52 POINT TO NEXT 05950500 
0E27 00 01 11 3853 BNE___ALLO0010¢, BAS1) YES, CHECK NEXT AREA 05951000 


15 


16 3854 ASSGN LEN-DTSVLEN 
OF2A F4 00 06 3855 SVC___SVCASSGN,O _ ASSIGN REQUEST 
O£2D 0013 OE2E 3856 DC —AL2(DTSVLEN) ASSIGN LENGTH 


OE2F 01 OE2F 3857 OC AL1C1+0) ATTRIBUTES 


ASSIGN AN AREA 05951500 


17 


3858_*** END OF EXPANSION ** 
0£30 36 01 ODAA 3859 A OTSVCHAN, XR1 SUCCESSFUL ? 05952000 
18) (0634 F2 81 31 3860 JE ALLOOO8O NO, FATL TWAL 05952500 


3861 TCBa R-TCB2 XR1-> TCB 05953000 
19] 0£37 35 02 0141 3862 L 321, TCB2 GET TCB ADDRESS. 
3863 *** END OF EXPANSION ** 
OE3B 6C OF OF 27 3864 MVC DTSVREGCTCBRSE-TCB@RSE+1,XR1, TCBRSEC,TCB2) SAVE REG. 05953500 


H11 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 50 09/11/81 12/08/81 21:31 


#SVAU TCB CHANGE ORG OR DET 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADD 


OO7E 2257 TCBSTAT? EQU  TCBX+1 TCB STATUS BYTE 7 


2258 * 
0080 2259 TCBSPWTR EQU X‘80° SPOOL WRITER ID 
0040 2260 TCBSPLRS EQU  X‘40' SPOOL TERMINATION 


0010 2738 
0020 2737 


00802735 


0001 2733 


0002 2732 
0004 2731 


0008 2730 
0004 2722 
0003 2721 


0010 2720 
0020 2719 
00402718 


TUBCMDS C 001 0080 2717 
19] TUBCNDS C001 0010 2729 


TUBCIND C001 0003 2384 2397-2399 


/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
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ERR LOC OBJECT CODE 


#SVAU TCB CHANGE ORG OR DETACH TRANSIE 


ADDR STNT SOUR 


3885 * C 
0E72 3886 ALSI 
0E74 3887 ALSS 
0E76 3888 ALCO 
0E78 3889 ALNO 

3890 * 
0E79 3891 
OE7B 3892 DIMA 
0E7D 3893 DTCW 
OE7F 3894 DTCO 
OEA2 3895 ALSA 
OEA4 3896 ATP 
OEA6 3897 ATPM 
OEAS 3898 DTCO 
OEAT 3899 DTCO 


05680000 OE3F 4C 00 12 ODAS 3865 MVC DTSVSIZ2¢1,XR1),DTDCSIZE SAVE SIZE 
05690000 0E44 4C 01 11 0E71 3866 MVC __OTSVARR(2,XR1),RTALLOC+3 SAVE ARR O€72 
05700000 3867 * $XFER ID-RSVTX, REFRESH-YES CALL RECOVERY 0€73 
05710000 OE49 F4 01 04 3868 sve 4,1 OE75 0003 
05715000 OE4C_ 35 OE4C_ 3869 DC _ALICRSVIX) OE77_FFFF 
05720000 3870 *** END OF EXPANSION ** 
05730000 OE4D 1C 00 ODAS 12 3871 MVC DTDCSIZEC1),DTSVSI2(,XR1) RESTORE SIZE 0E79 30 
05740000 OE52 1C:01 0€71 11 3872 MVC RTALLOC+3(2),DTSVARR(,XR1) _ RESTORE ARR OE7A 0030 
05741000 OE57 9C OF 27 OF 3873 MVC TCBRSECTCBRSE-TCBaRSE+1, TCB2), DTSVREGC, XR1) RESTORE RSE OE?C 
05742000 3874 * FREE LEN-DTSVLEN FREE ELEMENT OE7E 0001 
05743000 OE5B F4 00 07 3875 SVC__ SVCFREE,QO_ ISSUE FREE REQUEST OE80 
05744000 OESE 0013 OESF 3876 OC AL2CDTSVLEND LENGTH OF AREA TO FREE OEA3 0601 
05745000 0E60 01 0£60 3877 OC —ALICO+1) FREE FUNCTION BYTE OEA5 OE01 
05746000 3878 *** END OF EXPANSION ** OEAT_0800 
05760000 OE61 C2 01 ODAS 3879 LA DTOCSIZE,BASI RELOAD BASE REGISTER 
05770000 OE65 DO 81 OD 3880 BE ALLOO005¢, BAS1) GO CHECK NEXT IF SUCC 
05780000 
05790000 0£68 OE 01 OE71 OE76 3881 ALLOOO80 ALC ADD 3 TO {AR TO FAIL 
05800000 OEGE 3882 ALLOOO90 EQU 

OEGE CO 87 0000 3883 RTALLOC B RETURN TO CALLER 
05810000 
05820000 
05830000 
05840000 
05850000 
05860000 
05870000 
05880000 
05890000 
05900000 
05910000 
05920000 
05930000 
05940000 
05950000 


05951500 


05952000 
05952500 
05953000 
05953500 
H12 a 
[1/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 51 V09/11/81 12/08/81 21:31 SVAU TCB CHANGE ORG OR DETACH TRANS! 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOL 
2265 * TUB 00800000 |02 2308 **? 
2266 FOIGIIIII IOI IOIOIO IO IOC IOI IOR OR IOUT TOI IEICE TTT FE 2309 * 
2267 ® 2310 * 
2268 * TERMINAL UNIT BLOCK FOR TERMINALS * 03 2311 * 


87 VO9/11/81 12/08/81 21:31 


05954000 
05954500 
05955000 


05955500 
05956000 
05956500 
05957000 


E RSE 


05957500 
05958000 


05960000 
05970000 
05980000 


13] TUBH2Q C001 0080 2635 
TUBIARF C001 0010 2627 
TUBIDEL C 001 0001 2642 

14/TUBIIS C 001 0080 2624 
TUBINE C001 0040 2625 
TUBINPA C001 0002 2619 

15] TUBING] C001 0040 2636 
TUBING2 C001 0020 2637 
TUBIOERR C 001 0040 2677 

16/TUBIPS C001 0020 2626 
TUBIQNP C 001 0010 2638 
TUBJCBA C 001 0032 2586 

17] TUBKBULK C 001 0001 2664 
TUBKDPLY C 001 0080 2773 
TUBKKBD C 001 0040 2774 

18] TUBKPNTR C 001 0080 2826 
TUBLEN C001 0060 2795 
TUBLIOER C 001 0004 2681 

19} TUBLIOFR C 001 0002 2597 
TUBLIOIP C 001 0002 2682 


TUBLIOS C 001 0002 2641 
0 20 


2587 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


01 
ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


J13 
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18] TUBPLPI C 001 
TUBPMXPP C 001 


#SVAU TCB CHANGE ORG OR DE 


ERR LOC OBJECT CODE AD 


02 3885 * CONSTANTS AND WORK AREAS 06000000 
0€72 OE72 3886 ALSIZ DS CL ALLOCATION SIZE WORK AREA 06010000 
0E73 0E74 3887 ALSSSE DS  ClL2 SSS OF NEXT AREA 06030000 
03} -0E75 0003 0E76 3888 ALCON3 DC  XL2‘0003" CONSTANT OF 3 06050000 
OE77 FFFF E78 3889 ALMONE DC XL2‘FFFF* CONSTANT OF -1 06060000 
3890 * DO NOT SEPARATE NEXT THREE BYTES 06090000 
04) —0£79 30 0E79 3891 OC ALICTCBATRS-31) OFFSET TO FIRST ATR VALUE 06100000 
OE7A 0030 OE7B 3892 DIMAP DC —_—AL2(TCBATRS-31) INITIAL ATR SLOT ADDRESS 06110000 
OE7C OE7D 3893 DTCWORK DS  CL2 DORK AREA 06120000 
05] —O£7E 0001 OE7F 3894 DTCOOOO] DC —XL2 ‘0001' CONSTANT OF 1 06130000 | 05 
0£80 OEAZ 3895 ALSAVE DS CLCNULTWAX) BIT MASK SAVE AREA 06140000 EAS F4 00 12 
OEA3 0601 OEA4 3896 ATPMRR DC  XL2‘0601" PMR/PSR FOR EA,EB AND I OFF 06260000 OEAC OEA9 Oe! 
06] — OEAS 0€01 OEA6 3897 ATPMRL DC  XL2‘OEO1' PMR/PSR FOR EA,EB AND I ON 06270000 | 06}  OEAE 00 OE 
OEA7 0800 O£AS 3898 DTCOO800 DC —_XL2'0800' NO. SECTORS IN 2K 06280000 
OEA7 3899 DTCOO008 EQU  DTCO0800-1 CONSTANT OF 8 06290000 OEAF C2 02 0000 
07 07 OE 
OEB3 F6 00 88 
OEB6 BC 00 2D 
08 a 
OEB9 8F 00 74 0093 
09) OEBE F2 84 0D 
OEC1 BC 00 74 
10 10} OEC4 BS 04 GE 
OEC? F2 90 04 
ll i 
OECA F4 00 04 
12 12) OECD 04 OEC 
13 3 OEC 
OECE F6 00 00 
14 14 OED1 74 01 03 
O€D4 5F 01 01 5F 
OEDS 5C 00 02 57 
OEDC 75 02 SF 
OEDF F2 87 07 
OEE2 BC FF FF 
OEES AC FE FE FF 
OEE 76 02 03 
OEEC 5F 00 00 02 
OEFO 7C 01 02 
OEF3 DO 84 39 
OFF6 02 02 54 
OfFS F4 01 52 
OEFC OF OF 
OF 


51 VO9/11/81 12/08/81 21: 


ERR LOC OBJECT CODE 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ADDR STMT SOURCE STATEMENT 


PAGE 52 09/11/81 


12/08/81 21:31 


OEFD 


#SVAU TCB CHANGE ORG OR D 


ERR LOC OBJECT CODE f 


2308 FO IIR IR IIR TORTIE IRR IIIA I IIIA II IIIS II IIIA III III IID 


2309 * 


* 


02 


ae 


TUBNOSUB C 001 
13)TUBONL C 001 
TUBOPSTS C 001 


18] TUBPLPI C 001. 


19|TUBPRT C 001 
TUBPSUBC C 001 


88 09/11/81 
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OEA9 F4 00 12 
OEAC OEA9 

OEAE 00 

OEAF C2 02 0000 


OEB3 F6 00 88 


ERR LOC OBJECT CODE 


J14 


PAGE 89 09/11/81 


ADDR STMT SOURCE STATEMENT 


3902 
3903 
3904 
3905 
OEA9 3906 


12/08/81 21:31 


TUBSITS C 001 
TUBSINI C 001 
TUBSIOCT C 001 


TUBTSRQ C 001 
TUBTUB_C 001 
TUBUNITa C 001 


#SVAU TCB CHANGE ORG OR 


01 


ERR LOC OBJECT CODE 


* _THIS IS THE BOOTSTRAP CODE THAT IS MOVED TO THE FIRST TWO K 
* PAGE WHENEVER GOING FROM SCHEDULER TO USER OR USER TO 


* SCHEDULER. 


USING ATOCODE, XR1 


OEA9 3907 ATOCODE EQU 
OEAA 3908 ATLGEND EQU 
OEAC 3909 ATLGSTRT EQU 


3910 
3911 
OEAD 3912 
OEAE 3913 


x 


GETP 
SVC 
oc 
oc 


USE AS A BASE REGISTER 


* 


ATOCODE+1 LOG. ENDa+1 


ATLGEND+2 LOG. STARTa 
NPEND-ATOCODE 


SVCGETP, 0 EXTEND UP TO REGION SIZE 


AL2CATOCODE) LEFT ADDRESS OF LOGICAL END 
XL1'00'* INLINE PARM BYTE 3 


3914 *** END OF EXPANSION *% . 


3915 
OEB2 3916 
3917 


ATTCB 


LA 
EQU 


LPMR_ PRVDSABL + IARK 


#,1CB2 


* 


POINT TO TCB 


“SET OFF TRANSLATE 


O7|LENGTH OF MODULE IS 


OEB6 BC 00 20 


3918 


3919 ATRGSAV 


3920 


* 


MI 
EQU 
ENABL 


TCBRGS12¢, TCB2),# RESET REGION SIZE 
iy San REGION SIZE SAVE 
CANCL-Y, TCB-TCB2 ENABLE CANCEL 


OEBE F2 84 00 


OEB9 8F 00 74 0093 


3921 
3922 


SLC 
JP 


TCBCNCNT (1, TCB2), NUASCA+SCADCON] DECREMENT CANCEL COUNT 
EN1066 BYPASS CANCEL CHECK IF POSITIVE 


OEC1 BC 00 74 
OEC4 BS 04 6E 
OEC7 F2 90 04 


3923 
3924 
3925 


{VI 
TBN 
JF 


TCBCNCNT(, TCB2),0 RESET CANCEL COUNT TO ZERO 
TCBSTAT4(, TCB2), TCBCNLPD CANCEL PENDING ? 
EN1066 NO, BYPASS EOJ 


3926 
3927 


® 


SEOJ 


EOJ SVC 


* LINKAGE TO END OF JOB ROUTINES 


OECA F4 00 04 
OECD 04 


3928 
OECD 3929 
3930 


SVC 
oc 


X'04',X‘00' 
XL1 ‘04° 


EQJ SVC 
EOJ RIB 


* END OF EXPANSION 


3931 
OECE 3932 
3933 


**** END OF EXPANSION ** 


EN1066 


EQU 


x 


**® END OF EXPANSION ** 


OECE F6 00 00 
OEDL 74 01 03 
OED4 5F 01 01 


3934 
3935 
3936 


ATPNRSET LPMR # 


ST 
SLC 


SET TASK PRR 
ATLGSTRTC, XR1),XR1 STORE LOGICAL START ADDR. 
ATLGEND(2, XR1), ATLOPRIFSLDDLOAD(, XR1) DECR. BY LOAD a 


OED8 5C 00 02 
OEDC 75 02 5F 
OEDF F2 87 07 


3937 
3938 
3939 


VC 
L 
J 


ATLGSTRT-101, XR1), ATLOPRM+SLODTEXT(,XR1) SET SECTOR SZ 
ATLOPRM+SLDDLOADC,XR1),XR2  XR2-> START OF PART. 
ATOCDE2 GO ENTER LOOP 


OEE2 BC FF FF 
OEE5 AC FE FE 


3940 
3941 


ATOCDE1 


MI 


255€,XR2),X ‘FF * 
254(255,XR2), 255(, XR2) * IN STOREAGE 


SET 256 FOXES 


OEE9 76 02 03 
OEEC 5F 00 00 
OEFO 7C 01 02 


3942 
3943 
3944 


ATOCDE2 


ATLESTRTC, XR1), XR2 XR2-> SECTOR TO FOX OUT 
ATLGEND-1¢1,XR1),ATLGSTRT-1¢,XR1) DECREMENT SIZE TO FOX 
ATLGSTRT-1¢,XR1),1 SET SIZE TO 1 SECTOR 


OEF3 DO 84 39 


OEF6 02 02 54 


3945 


3946 


ATOCDE1C, XR1) GO FOX NEXT SECTOR 


ATLDPRMC, XR1), XR2 POINT TO LOAD PARM 


OEF9 F4 01 52 
OEFC OE 


3947 
OEFC 3948 
OEFD 3949 


ATLOPRM 


SVCLOAD, QUALT 
ALLCSLDMSFCH) 
ad 


FETCH USER TASK 


LOAD PARM LIST 


OEFD 


52 VO9/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE 


OFO8 3950 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


CLCSLDDLEN) 


H14 


PAGE 53 09/11/81 


ADDR STMT SOURCE STATEMENT 


12/08/81 21:31 #SVAU TCB CHANGE ORG OR 


ERR LOC OBJECT CODE 


ay) 


Wi ME CES CTCCCSCCCCCTCCOTOCCTATCCATCCCTCCCCCTLT TTT TUTTE CET TTT TTT TTT 


fae) 


TUBUNITa C 001 TWAREAL C 001 


J15 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 90 VO9/11/81 12/08/81 21:31 


VO9/11/81 12/08/81 21:31 
Ol 01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02 OFO9 3951 ATOEND QU * 06640000 | O2/SYMBOL T LEN VALUE DEFN =F 
0060 3952 ATOCDLN EQU _ATOEND-ATOCODE CODE LENGTH 06650000 
SATACHER C 001 0001 0135 
03 03]$ATBATCH C 001 0090 0121 
: SATCOMON C 001 0040 0129 
SATCREAT C 001 0080 


OFO9 3954 MAINT  EQU * MAINTENANCE AREA 06670000 
04) — 0FO9 0000000000000000 OF 3A 3955 DC 5OXL1‘00' 06680000 | O4/SATDATA C 001 0008 0114 
SATDATAA C001 0018 0137 
SATERROI C 001 0001 0144 
5] $ATERROZ C 001 0002 0145 
SATERRO3 C001 0003 0147 
SATERRO4 C 001 0004 0150 
06] $ATERROS C 001 0005 0151 
3956 */*.END CHANGE ACTIVITY - #SVAU SATERROS C 001 0006 0152 3 

0800 3957 END #SVAU SATERRO? C 001 0007 0153 
O7| LENGTH OF MODULE Is 1851 O7/SATFLAG C 001 O00C 0107 0 
SATFLAG] C001 0015 0127 0 
SATFRPRM C001 0001 0118 3 

Q8}SATINCJC C 001 0010 0131 

SATINIT C001 OOEC 0119 

$ATICBA C001 0010 0125 
QO|SATLENG C001 0019 0138 3 
SATLOAD C001 000B 0106 0 
SATMSSIZ C 001 0000 0122 0 

1O}SATNCNIQ C 001 0002 0134 
SATNONAN C001 0010 0112 0 

SATNRTUB C001 0004 0133 
L1}SATNSWAP C 001 0002 0117 3; 
SATPRIOR C 001 OO0E 0123 0 
SATPRIV C001 0004 0116 © 

12} $ATOKINT C 001 0020 0130 
SATREAL C001 0040 0109 0: 

SATRFRSH C 001 0080 0128 

13} $ATSPOOL C 001 00D4 0120 
SATSSSN C001 0014 0126 0) 
SATSYSTK C 001 0008 0132 
4)SATTSKID C 001 0016 0136 
SATTUBA C001 0010 0124 
SATTUBAS C 01 0020 0110 
15|SLOAMID C001 0010 3034 
SLDDLEN C001 000C 3022 
SLODLINK C001 0005 3016 
16] $LODLOAD C 001 0008 3021 
SLODRLD C001 0008 3018 
$CDDSS C001 0002 3014 
17|SLODSTRT C 001 0007 3017 
SLODTEXT C 001 0003 3015 
SLDDTOT COT 0009 3020 
18] SLOFETCH C 001 0004 3032 
SLOMFCHA C 001 0006 3044 
SLOMFTCH C 001 0004 3043 
19] SLOMLOAD C 001 0002 3041 
SLOMSFCH C 001 O00E 3045 
SLDNSLD C001 OOOA 3042 

0 


Ww wWwwo o olw 


10) 


11 


14 


oo 


oO 


15 


w 


16 


17 


Www www Ww wie ww 


w 
a 


H15 


#SVAU TCB CHANGE ORG OR DETA 


VO9/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 54 VO9/11/81 12/08/81 21:31 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


ERR LOC OBJECT CODE ADDR 


TWARMDSA C001 000B 2867 
TWAMQO1 C001 0008 2890 


12] THAPNUSE C 001 0000 2886 12} xR2 C 001 0002 3051 
TWAYOCLC C 001 0037 2879 ZERO C 001 0000 3063 
TWAHPSBC C 001 0006 2862 ZONEBITS C 001 OOFO 3081 

13] TWAYPSDE C 001 0007 2863 
TWAYPSFO C001 0008 2864 TOTAL STATEMENTS FLAGGED IN TH 
TWA#PS12 C 001 0001 2857 

14) THAHPS34 C 001 0002 2858 14] STATEMENTS FLAGGED AS WARNINGS 


TWAHPS56 C001 0003 2859 
TWA#PS78 C 001 0004 2860 
15] THAAPS9A C 001 0005 2861 
TWARRMG C001 0039 2881 
TWAYSAVE C001 000C 2868 
16] THAYSCSV C 001 O00F 2893 
TWAYSCO1 C 001 0001 2887 
TWAYSINS C 001 GOOA 2866 
17] TWAMSTAT C 001 0027 2896 
TWAATKMQ C001 0031 2877 
TWAMUSER C 001 O00C 2869 
18] THAMWSSA C001 O01B 2895 
TWAAISSS C001 0020 2873 
TWAYXLAT C 001 0038 2880 
19] TWAGET C001 0000 2847 
TWAPUT C001 0001 2846 
TWAREAL C001 0040 2851 


J16 


PAGE 91 VO09/11/81 12/08/81 21:31 


0 VO9/11/81 12/08/81 21:31 


01 01 


CROSS-REFERENCE 


06640000 | O2]SYMBOL T LEN VALUE DEFN REFERENCES O2)syreol. 1 LEN VALUE DEFN 


06650000 
$ATACHER C 001 SLOMSSLD C 001 0001 3040 
03] $ATBATCH C 001 03} $LDRELAD C 001 0001 3030 
31983721 SLDSFTCH C 001 0008 3033 
06670000 0119 «0120 0121 SLOTOADR C 001 0002 3031 
06680000 | O4/SATDATA C 001 0119 O4|# C 001 0000 3058 

SATDATAA C 001 0138 

SATERROI C 001 0001 0144 3617 ae C001 0000 3059 
O5|SATERRO2 C 001 0002 0145 3638 05]#SVAU =A 001-0800 0002 
$ATERRO3 C 001 0003 0147 3630 a C001 0002 3060 
$ATERRO4 C 001 0004 0150 ACECHAIN C 001 0001 0080 
C6} SATERROS C 001 0005 0151 OSJACECPERR C 001 0010 0092 
06685000 S$ATERROS C001 0006 0152 3674 ACECSCL C001 0000 0088 
06690000 $ATERRO? C 001 0007 0153 ACEIAR C001 0003 0081 


O7JACEINUSE C 001 0008 0094 
ACEIOCHN C 001 0020 0090 
ACELEN C O01 0010 0102 

OS|ACELOG ~=C 001 0010 0091 
ACEMAB C001 0005 0082 
ACEMASK C001 OOFE 0098 

OSJACENSCL C001 0080 0087 
ACEMWAIT C 001 0008 0093 
ACEPARMI C 001 0006 0083 

JO} ACEPARM2 C 001 0007 0084 
ACEPARN3 C 001 0008 0085 
ACEPRIV C 001 0040 0089 

11JACEQUIES C 001 0001 0097 
ACETCBA C001 OOOF 0101 
ACETYPE C001 0009 0086 

12] ACEXLOFF C 001 0004 0096 
ACEXR1 C001 000B 0099 
ACEXR2 C001 0000 0100 

1ZACE1 =—«C 001 0001-3117 
ACE2 _—-C 001 0002 3118 
ALCON3 A002 O€76 3888 

14JALLBIT C001 OOFF 3082 
ALLOC A001 ODAE 3818 
ALLOOOOS A 004 0085 3822 

T5}ALLOOO10 A 004 ODB9 3823 
ALLOO015 A 004 ODD1 3829 
ALLOOO20 A 003 ODDF 3833 

16} ALLO0030 A 005 ODE2 3834 
ALLOOO40 A 003 ODE? 3835 
ALLOO045 A 005 ODF1 3838 

17] ALLO0050 A 004 ODFD 3841 
ALLOO060 A 003 OFO1 3842 
ALLOOO70 A 004 OEOB 3845 

18}ALL00075 A 005 OEIC 3850 
ALLOO0SO A 006 068 3881 
ALLOOO90 A 001 OE6E 3882 

19] ALMONE A 002 O€78 3889 

ALSAVE A035 OEA2 3895 

ALSIZ A 001 OE72 3886 


O7|SATFLAG C001 O00C 0107 0122 3178 3259 3619 3699 3712 3726 
S$ATFLAG] C 001 0015 0127 0136 3198 3721 

SATFRPRM C 001 0001 0118 3178 

OS} SATINCJC C 001 0010 0131 

SATINIT C001 OOEC 0119 

$ATJCBA C001 0010 0125 

OS|SATLENG C001 0019 0138 3174 3174 3174* 3182 

SATLOAD C 001 O00B 0106 0107 3195* 3196 3723 3724 3724* 
$ATMSSIZ C 001 O00D 0122 0123 3215 3218* 3219 3729 

10] SATNCNIQ C 001 0002 0134 

SATNONAM C001 0010 0112 0120 0121 

SATNRTUB C 001 0004 0133 

SATNSWAP C 001 0002 0117 3259 3619 3712 

SATPRIOR C 001 OOOE 0123 0124 

$ATPRIV C001 0004 0116 0119 0120 3726 

12] SATQKINT C 001 0020 0130 

SATREAL C001 0040 0109 0119 0120 3699 

SATRFRSH C 001 0080 0128 

$ATSPOOL C 001 0004 0120 

SATSSSN C001 0014 0126 0127 

SATSYSTK C 001 0008 0132 

SATTSKID C001 0016 0136 0137 

$ATTUBA C001 0010 0124 0125 0126 

SATTUBAS C O01 0020 O110 119 

5] SLDAMID C001 0010 3034 

SLODLEN C001 000C 3022 3724 3950 

$LODLINK C001 0005 3016 3017 3200 3201 + 3723* 
16}$LDDLOAD C 001 O00B 3021 3022 3936 3938 

S$LDDRLD C001 0008 3018 3020 

$LDDSS C001 0002 3014 ©3015 «3171 «3171* 3172 3189 3350 
S$LODSTRT C 001 0007 3017 3018 

S$LODTEXT C 001 0003 3015 3016 3209 3937 

$LDDTOT C001 0009 3020 302) 

]Q}$LDFETCH C 001 0004 3032 3043 

SLDMFCHA C 001 0006 3044 3045 

SLOMFTCH C 001 0004 3043 3044 

19} SLOMLOAD C 001 0002 3041 3042 

SLOMSFCH C 001 OO0E 3045 3948 

SLOMSLD C001 


ll 


7 


H16 


34 WORTIT7aY 1270878 251 | WOO IEl 12/08/81 DTI [#sval TCR CHANGE ORG OR DETACH TRANSIENT PAGE 55 VvO9/11/81 12/08/81 231 | *SVAU TCB CHANGE ORG OR DE 
fayl nN 


JOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY 


P10316 SS DM 03 09/07/ 


14] STATEMENTS FLAGGED AS WARNINGS 


P10317_TP__SR 03 09/22/ 


P10342 TP SN 03 01/03/ 


ss 


_. 04 03/30/ 


SS.NU 04 01/25/ 


PIO802 SSP 08 O1/11/ 


PIO807 TEL 08 06/16/ 


VO9/11/81 12/08/81 21:31 0 PAGE 92 VO9/11/81 12/08/81 21:31 


01 


CROSS-REFERENCE 


O2|symBol oT LEN VALUE DEFN REFERENCES Q2}SYMBOL T LEN VALUE DEFN RE 
$LOMSSLD C 001 0001 3040 ALSSS A005 ODAC 3816 3 
O3]/S$LDRELAD C 001 0001 3030 3040 Q3JALSSSE A002 OE74 3887 3% 
SLDSFTCH C 001 0008 3033 3042 3045 ARR C001 0008 3053 3: 
$LOTOADR C 001 0002 3031 3041 3044 ATALLCOM A 005 ODAC 3815 31 
O44 C 001 0000 3058 3290 3694 3710 3710 3710* 3743* 3800 3808 3829 3835 3838 3939* O4;ATLOPRM A001 OEFD 3949 31 
3842 3850 3850* 3883 3915 3918 3934 ATLGEND A001 OEAA 3908 3° 
ae C001 0000 3059 ATLGSTRT A 001 OEAC 3909 3° 
O5)#SvVAU =A 001 0800 0002 3957 O5]ATOCDE! A 003 OFE2 3940 35 
a C001 0002 3060 ATOCDE2 A 003 OFE9 3942 35 
ACECHAIN C 001 0001 0080 0081 ATOCDLN C001 0060 3952 37 
O6JACECPERR C 001 0010 0092 O6JATOCODE A001 OEA9 3907 37 
ACECSCL_C 001 0000 0088 ATOEND A001 OFO9 3951 37 
ACEIAR C001 0003 0081 0082 ATPMRL =A 002 OEMS 3897 37 
O7}ACEINUSE C 001 0008 0094 O7JATPARR A002 OFA4 3896 
ACEIOCHN C 001 0020 0090 ATPNRSET A 003 OECE 3934 37 
ACELEN C901 0010 0102 ATRGSAV A 001 OEB7 3919 37 
OS} ACELOG C001 0010 0091 08] ATRI C 001 0001 3125 
ACEMAB C001 0005 0082 _ 0083 ATR2 C001 0002 3126 36 
ACEMASK C001 OOFE 0098 ATTCB =A O01 O&B2 3916 37 
OSJACENSCL C 001 0080 0087 09]AT000010 A 004 OD68 3788 37 
ACEMMAIT C 001 0008 0093 AT000020 A 003 OD6C 3789 37 
ACEPARM! C 001 0006 0083 0084 AT000030 A 004 OD6F 3790 37 
1O}ACEPARM2 C 001 0007 0084 0085 10} AT000040 A 004 0078 3793 38 
ACEPARM3 C001 0008 0085 0086 ATO000050 A 003 0093 3800 37 
ACEPRIV C001 0040 0089 BAS! C001 0001 3129 38 
11JACEQUIES C 001 0001 0097 ll 38 
ACETCBA C001 OOOF 0101 0102 38 
ACETYPE C001 0009 0086 0099 38 
12|ACEXLOFF C 001 0004 0096 12)8AS2. «C001 «0002 «3130~—s37. 
ACEXR1 C001 000B 0099 0100 37 
ACEXR2 C001 0000 0100 0101 BATCOUNT C 001 0005 2232 
13} ACE1 C 001 0001 3117 13]/B1T0 C 001 0080 3093 
ACE2 _-C 001 0002 3118 BIT C001 0040 3084 
ALCON3 A 002 O£76 3888 388) BIT2  C€ 001 0020 3085 
J4JALLBIT C 001 OOFF 3082 14/BIT3. C001 0010 3086 
ALLOC A001 ODAE 3818 3658 3668 BIT4 C001 0008 3087 
ALLO0005 A 004 ODB5 3822 3880 BIT5 C001 0004 3083 
15} ALLOO010 A 004 ODB9 3823 3853 15|BIT6 C001 0002 3089 
ALLOOOIS A 004 ODD1 3829 3826" BIT? C001 0001 3090 
ALLOOO20 A 003 ODDF 3833 3825 3843 3848 3849 BLANK C001 0040 3062 
16] ALLO0030 A 005 ODE2 3834 3846 16}BUF1 C001 0001 3133 
ALLOOO40 A 003 ODE7 3835 —3833* 3841 3845 3845* BUF2 C001 0002 3134 
ALLOO045 A 005 ODF1 3838  3827* 3830* cdi C001 0001 3111 
17] ALLO0050 A 004 ODFD 3841 3836 17] co2 C001 0002 3112 37 
ALLOOO6O A 003 O01 3842 3841" cPl C 001 0001 3107 
ALLOOO70 A 004 OEOB 3845 3840 CP2 C 001 0002 3108 
18] ALLO0075 A 005 OEIC 3850 3826* 3831* 18/CSBDAT1 C001 0006 0181 01! 
ALLOOO80 A 006 0668 3881 — 3860 CSBDAT2 C 001 0016 0290 03 
ALLOOO90 A001 OE6E 3882 3844 CSBDAT3 C 001 0007 0190 O72 
19JALMONE A 002 0£78 3889 3795 3947 19/CSBDAT4 C 001 0036 0391 
ALSAVE A035 OFA2 3895 — 3829* 3838 3350 CSBDBNSI C001 0022 0313 03: 
ALSIZ A001 O€72 3886  3832% 3839* 3043* CSBDCNFG C 001 0023 0373 031 


20 


H17 
#SVAU TCB CHANGE ORG OR DETAC 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 56 09/11/81 12/08/81 21:31 


VO9/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR | 


02) 0006 2499 TUBSRDUK EQU X'06' . READ ISSUED TO UNLOCKED KEYBOARD ERROR 02 
0007 2500 TUBSPOFF EQU  X‘O7' . WS IS POWERED OFF 0018 
2501 * FQU X08" . RESERVED 


03) 25H) * Eo; yng CAUE AD PECTNPE FREND (y2| 


P10342 TP SN 03 01/03/78 ACM 486 


P10402 SS __ 04 03/30/78 CKS 44A 


P10462 SS NU 04 01/25/79 WJW 47R 


P10802 SSP 08 01/11/80 JWB 47N 


PIO807 TEL 08 06/16/80 KEW 48J 


Vo9/11/81 12/08/81 21:31 mi PAGE 93 09/11/81 12/08/81 21:31 a 
CROSS-REFERENCE 

02] SYMBOL = T LEN VALUE REFERENCES 02|SYMBOL 1 LEN VALUE DEFN f 
3672 3679 3824 3837* CSBDDTFA C 001 OOOF 0226 0 
03] ALSSSE 3824* 3834* 3937 Q3/CSBDDVCD C 001 0003 0171 0 
3374* 3405 3767 3786 3821 CSBDECN C001 0001 0163 0 

3790 3792* CSBDEMON C 001 0018 0216 
O4|ATLOPRM A 001 3724% 3936 3937 3938 3946 O4|CSBDFCHN C 001 0009 0223 0 
3909 3936* 3943* CSBDIO8 C001 OO1A 0301 0 
3935" 3937* 3942 3943 CSBDIOBA C 001 0032 0387 0 
O5|ATOCDE! A 003 3945 05/CSBDI0SZ C 001 0018 0300 0 
3939 CSBDIRS C001 0033 0388 0 
3761 + 3761* CSBDLCS C001 0021 0304 0 
O6|ATOCODE A 001 3752* 3906 3908 3912 O6]CSBOLINO C 001 0002 0165 0 
3761 3952 CSBDLNOX C 001 0015 0289 0 

eee ea ey ugh 3759 CSBDLNG C001 0038 0397 
O7JATPMRR A 002 O7]|CSBDLNUN C 001 0030 0386 0 
3725" 3728% CSBDLST C001 OOOA 0201 0 
3755" CSBDMCDA C001 OOIF 0272 0 
08] ATRI C 001 OS} CSBOMDSS C 001 0014 0231 0 
C 001 3693* 3694 3739 3743 CSBOMIC C001 0021 0273 0 

3754" CSBDMLNG C 001 0038 0287 
09] ATO00010 A 004 3784 3785 3799 OO} CSBDMONE C 001 0019 0254 0; 

3796 3797 3801 CSBDMTCB C 001 0001 0164 
3794 CSBDNAN C001 002B 0381 0: 
10}AT000040 A 004 3802 JO|CSBDNAME C 001 0020 0278 0; 
3789* 3791 3793 3793* CSBDPLA C001 0035 0389 0: 
3820* 3821 3823 3824 3824 3825 3825 3826 3826 3827 CSBDPRMI C 001 0027 0375 : 
ll 3828 3829 3830 3831 3832 3832 3833 3834 3837 3837 11/CSBOPUBa C 001 0023 0274 0; 
3839 3841 3841 3843 3843 3845 3845 3846 3847 3848 CSBDRECA C 001 0025 0275 0; 
3850 3851 3852 3853 3879* 3880 CSBDRESV C 001 0017 0215 0; 
12] BAS2 3785* 3786 3788 3789 3790 3790 3792 3793 3793 3794 12/CSBDRIDa C 001 002D 0382 0: 
3797 3798 3799 3801 3801 3802 CSBDRSRV C 001 0026 0374 0: 
CSBDRTNC C 001 0010 0227 0; 
13}81TO 13)/CSBDSCA C001 0009 0200 0; 


CSBDSCAC C 001 0005 0180 01 
CSBDSOCN C 001 0016 0252 07 
14/8173 14CSBDSDLC C 001 001D 0271 02 
CSBDSIOB C 001 0025 0277 

CSBDSNAC C 001 0018 0253 07 
15| BIT6 15] CSBDSTB1 C 001 OO1A 0255 02 
CSBDSTB2 C 001 001B 0265 02 
CSBDTCBa C 001 000B 0224 02 
16] BUF} 16}CSBDTCB1 C 001 000C 0210 02 
CSBDTCB2 C 001 OO0F 0211 02 
CSBDTCB3 C 001 0010 0212 02 
17} cb2 3748* 3752 3757 3758 3761 17{CSBOTCB4 C 001 0012 0213 = 02 
CSBOTIDA C 001 001C 0302 03 
CSBDUTCB C 001 000D 0225 02 


18} CSBDAT1 18] CSBDWORK C 001 0037 0390 03 
CSBOWRKE C 001 0037 0280 02 
0200 0223 CSBDWRKS C 001 O02E 0279 02 
19] CSBOAT4 19/CSBLDEF C 001 002F 0385 03 
0373 CSBMALLC C 001 0010 0185 
0374 CSBNATCL C 001 0010 0395 


H18 


#SVAU TCB CHANGE ORG OR DETAC 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 57 VO9/11/81 12/08/81 21:31 


6 VO9/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR 


OR 
001B 2554 TUBOPTS EQU TUBNIC+1 ERP MESSAGE OPTIONS 
2556 * 
2557 * SEE THE ERBDOPT FIELD OF THE ERB MACRO FOR ASSOCIATED MASKS. 
2558 * 
0080 | 
0040 | 


2560 * 


93 VO9/11/81 


12/08/81 21:31 


57 VO9/11/81 


12/08/81 21: 


CROSS-REFERENCE 


PAGE 


94 VO9/11/81 


12/08/81 21:31 


01 


02|SYNBOL = T LEN VALUE REFERENCES O2]SYNBOL T LEN VALUE DEFN 
CSBODTFA C 001 OO0F 0227 CSBMAUTO C 001 0004 0196 
03)/CSBDDVCD C 001 0003 0171 0180 . 03/CSBMBSC C 001 0080 0172 
CSBDECM C 001 0001 0163 0164 0165 0281 CSBMBSER C 001 0040 0192 
CSBDENON C 001 0018 0216 CSBMCANC C 001 0040 0267 
4} CSBOFCHN C 001 0009 0223 0224 O4)CSBMCLIW C 001 0020 0297 
CSBOI0@ C 001 OO1A 0301 0302 CSBMCLOS C 001 0002 0197 
CSBDIOBA C 001 0032 0387 0388 CSBMCLPT C 001 0040 0298 
O5|CSBDIOS2 C 001 0018 0300 0301 QS5|/CSBMCOPC C 001 0022 0238 
CSBDIRS C 001 0033 0388 — 0389 CSBMCSLU C 001 0008 0261 
CSBDLCS C001 0021 0304 0313 CSBMC2PT C 001 0020 0394 
06/CSBDLINO C 001 0002 0165 0171 O6|CSBNOMPT C 001 0020 0268 
CSBDLNDX C 001 0015 0289 0290 CSBMOPER C 001 0040 0203 
CSBDLNG C001 0038 0397 CSBMORUS C 001 0080 0202 
07|CSBDLNUM C 001 0030 0386 0387 O7|CSBMDSFS C 001 0020 0204 
CSBDLST C001 000A 0201 0210 CSBMOST C001 0010 0205 
CSBOMCDA C 001 OOIF 0272 0273 CSBMETCB C001 OOFF 0214 
08/CSBDMDSS C 001 0014 0231 0252 0289 08/CSBMEXIT C 001 0002 0188 
0274 CSBMGCAC C 001 0080 0392 

CSBYHALT C 001 0020 0378 

09) CSBDMONE C 001 0255 OSICSBMICF C 001 0085 0177 
CSBOMTCB C001 0001 0164 CSBMIDAC C 001 0080 0299 
CSBDNAN C001 002B 0381 0382 CSBMINFO C 001 0004 0396 
1O}CSBONAME C 001 0020 0278 0279 JO}CSBMINIT C 001 0001 0189 
CSBOPLA C001 0035 0389 0390 0391 CSBMIOAC C 001 0080 0182 
CSBDPRNI C 001 0027 0375 0381 CSBMITH C001 0086 0178 
11/CSBDPUBA C 001 0023 0274 ©0275 J1{CSBMIPNM C001 0004 0187 
CSBDRECA C 001 0025 0275 0277 (0278 CSBNLINI C 001 0001 0166 
CSBDRESV C 001 0017 0215 0216 CSBNLIN2 C 001 0002 0167 
12|CSBORIDA C 001 0020 0382 0384 12|CSBMLIN3 C 001 0003 0168 
CSBORSRV C001 0026 0374 0375 CSBMLING C 001 0004 0169 
CSBORTNC C001 0010 0227 0231 CSBMLOCL C001 0010 0295 
13)/CSBDSCA C001 0009 0200 0201 13] CSBMLOTW C 001 0004 0293 
CSBDSCAC C 001 0005 0180 0181 CSBMLOPT C 001 0008 0294 
CSBDSDCN C001 0016 0252 0253 CSBNRJ C001 OOFO 0359 
14{CSBDSDLC C 001 001D 0271 0272 4/CSBMARJE C 001 0082 0174 
CSBDSIOB C 001 0025 0277 CSBIMRUR C001 0001 0264 
CSBDSNAC C O01 0018 0253 0254 CSBMMSGT C001 0002 0230 
15/CSBDSTB1 C 001 OO1A 0255 0265 15] CSBNNDMP C 001 0010 0269 
CSBDSTB2 C 001 001B 0265 0271 CSBNAHLT C 001 0008 0270 
CSBDTCBA C001 0008 0224 0225 CSBMNNSG C001 0040 0393 
16]CSBDTCB1 C 001 000C 0210 0211 16|CSBRRMC C 001 0000 0228 
CSBDTCB2 C 001 OOOE 0211 0212 CSBMONTR C 001 0008 0196 
CSBOTCB3 C001 0010 0212 0213 CSBNOPND C 001 0020 0184 
17/CSBOTCB4 C 001 0012 0213 0215 17/CSBNPEI C 001 0080 0376 
CSBDTIDA C001 O01C 0302 0304 CSBMPINT C 001 0004 0262 
CSBDUTCB C001 0000 0225 0226 CSBMRID C001 0001 0291 

18] CSBDWORK C 001 0037 0390 0397 18] CSBNRQNO C 001 0040 0258 
CSBDWRKE C 001 0037 0280 0281 CSBMRQYS C 001 0080 0256 
CSBOWRKS C 001 O02E 0279 0280 CSBNRTDN C 001 0001 0229 
19|CSBLDEF C 001 O02F 0385 0386 IS}CSBMRTRY C 001 0040 0377 
CSBMALLC C 001 0010 0185 CSBMSDLP C 001 0083 0175 
CSBMATCL C 001 CSBMSL C001 0004 0207 


ERR LOC OBJECT CODE 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 
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ADDR STMT SOURCE STATEMENT 


PAGE 
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12/08/81 21:31 


20 


Ol 


ERR LOC OBJECT CODE 


#SVAU TCB CHANGE ORG OR DE 


2603 * 


TERMINAL MODE INDICATORS 


2604 2007 ERO OR UOC OUR OIC TORR OIRO IT RTT TTI PD PD DAI IIR 


® 


02 


iS 


2605 * 
2606 * 
2607 * 


1XXX - STANDBY MODE 
OOXX - CONSOLE MODE 
0110 - COMMAND MODE 


x 
* 
x 


0X00 - INITIAL MODE 
0101 - DATA MODE 


O111 - INTERRUPT MODE 


* 


x 


x 


03 


2608 JR III ICICI BORO ORR ORR FOR ROO RICCO OOO OO IC ITO IRR 


(lal Nt i alae eg I So sal 


12/08/81 21:31 


94 09/11/81 


PAGE 


02] SYMBOL 


T LEN VALUE 


CROSS-REFERENCE 


DEFN 


REFERENCES 


95 WO9/11/81 12/08/81 21:31 


01 


O2}SYMBOL TT LEN VALUE 


CSBMAUTO C 001 0196 CSBMSNA C 001 0081 
03/CSBMBSC C 001 0080 0172 03) CSBMSNAQ C 001 0080 
CSBMBSER C001 0040 0192 CSBMSNBU C 001 0020 
CSBMCANC C 001 0040 0267 CSBMSN44 C 001 0084 
CSBMCLIW C 001 0020 0297 O4/CSBMTEBI C 001 0020 
CSBMCLOS C 001 0002 0197 CSBMTERM C 001 0010 
CSBMCLPT C 001 0040 0298 CSBMTID C€ 001 0002 
OS|CSBMCOPC C 001 0022 0238 OS} CSBMTOPC C 001 0033 
CSBMCSLU C 001 0008 0261 CSBMTRM C001 0008 
CSBMC2PT C 001 0020 0394 CSBMUSER C 001 0080 
6} CSBMDYPT C 001 0020 0268 06) CSBMUMAT C 001 0002 
CSBMOPER C 001 0040 0203 CSBMUWCK C 001 0010 
CSBMORWS C 001 0080 0202 CSBMWAIT C 001 0010 
O7}CSBMDSFS C 001 0020 0204 O7)}CSBMK21 C 001 0008 
CSBMOST C001 0010 0205 CSBMORTY C 001 0001 
CSBMETCB C 001 OOFF 0214 CSBMO020 C 001 005C 
OB} CSBMEXIT C 001 0002 0188 08} CSBM1I0B C 001 0001 
CSBMGCAC C 001 0080 0392 CSBIM790 C 001 0058 
CSBMHALT C 001 0020 0378 CSBMZIOB C 001 0040 
CSBMICF C001 0085 0177 QO}CSBM20P C 001 OOF? 
CSBMIDAC C 001 0080 0299 CSBM2222 C 001 002C 
CSBMINFO C 001 0004 0396 CSBM32X9 C 001 0028 
CSBMINIT C 001 0001 0189 10|CSBMB209 C 001 002A 
CSBMIOAC C 001 0080 0182 CSBM321X C 001 0026 
CSBMITH C 001 0086 0178 CSBN321Y C 001 0029 
11{CSBMJPNM C 001 0004 0187 11/CSBM3210 C 001 0022 
CSBMLINI C 001 0001 0166 CSBN3211 C 001 0023 
CSBMLIN2 C 001 0002 0167 CSBM3212 C 001 0024 
12) CSBMLIN3 C 001 0003 0168 12|CSBM3213 C 001 0025 
CSBMLIN4 C 001 0004 0169 CSBN3214 C 001 0028 
CSBMLOCL C 001 0010 0295 CSBM3260 C 001 0059 
13/CSBMLOIW C 001 0004 0293 13]CSBM3275 C 001 0050 
CSBMLOPT C 001 0008 0294 CSBN3280 C 001 0051 
CSBMARS C001 O0FO 0359 CSBN3282 C 001 O05E 
14/CSBMMRJE C 001 0082 0174 14) CSBN3285 C 001 0052 
CSBMARWR C001 000] 0264 CSBM3286 C 001 005D 
CSBMMSGT C 001 0002 0230 CSBM3287 C 001 0053 
15] CSBMNOMP C001 0010 0269 15)CSBM3288 C 001 0054 
CSBMNHLT C 001 0008 0270 CSBNB289 C 001 005A 
CSBNNNSG C 001 0040 0393 = CSBM3290 C 001 0020 
16/CSBMNRMC C 001 0000 0228 16]CSBM3295 C 001 0021 
CSBMONTR C 001 0008 0186 CSBM3299 C 001 0027 
CSBMOPND C 001 0020 0184 CSBM3301 C 001 0055 
17/CSBMPEI C 001 0080 0376 17/CSBM3302 C 001 0056 
CSBMPINT C 001 0004 0262 CSBN3303 C 001 0057 
CSBNRID C001 0001 0291 CSBN3304 C 001 0058 
18} CSBNRQNO C 001 0040 0258 18} CSBM4689 C 001 O0F9 
CSBMRQYS C 001 0080 0256 CSBN4690 C 001 OOFA 
CSBMRTOM C 001 0001 0229 CSBN4691 C 001 O0F1 
CSBMRTRY C 001 0040 0377 19] CSBN4692 C 001 OOF2 
CSBMSDLP C 001 0083 0175 CSBM4693 C OC] 00F3 
CSBMSL =C 001 0207 CSBN4694 C 001 O0F4 


20} 


H20 
#SVAU TCB CHANGE 0 
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ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


x 02 0080 2657 TUBUSUP EQU X'80' . USER DISPLAY IS UP 02) 
HORII RK 0040 2658 TUBUSSV EQU  X'40' «USER DISPLAY SAVED 
L NODE x 0020 2659 TUBSYLST EQU  x‘20" . SYSLIST DISPLAY UP 
OE ® 03 0010 2660 TUBMBDCF EQU xX'10" . BROADCAST FAILURE 03 
UPT MODE x 0008 2661 TUBMRDTA EQU  X‘08" «MRT PROC WITH DATA ENTERED 
ROR R IRR RRR 0004 2662 TUBSRILK EQU  X'04" ~ SAVE/RESTORE INTERLOCK 


¥O9/11/81 12/08/81 21:31 PAGE 96 VO9/11/81 12/08/81 21:31 
01 


01 
CROSS-REF ERENCE 
Q2)SYMBOL 1 LEN VALUE DEFN REFERENCES O2/SYMBOL T LEN VALUE DEFN Ri 
CSBMSNA C001 0081 0173 CSBM4695 C 001 OOF5 0364 
03] CSBMSNAQ C 001 0080 0266 03} CSBM4696 C 001 O0F6 0365 
CSBMSNBU C 001 0020 0193 CSBN4697 C 001 OOF8 0367 
CSBMSN44 C 001 0084 0176 CSBN4698 C 001 OOFB 0370 
O4|CSBMTEBI C 001 0020 0259 O4)CSBM4699 C 001 OOFC 0371 
CSBMTERM C001 0010 0194 CSBM9999 C001 0000 0327 
CSBMTID C 001 0002 0292 CSBQHDR C001 O02E 0384 0: 
O5|CSBNTOPC C 001 0033 0237 05) C581 C 001 0001 3115 
CSBMTRN C001 0008 0206 CSB2_—« C001 (0002 3116 
CSBMUSER C 001 0080 0191 CSCALL C001 0080 1924 
06] CSBMUMAT C 001 0002 0263 06|DEAHIGH C 001 0000 3143 3: 
CSBMACK C001 0010 0260 DEANEXT C001 0002 3145 
CSBMWAIT C001 0010 0379 DEASIZE C001 0001 3144 3} 
O7|CSBMK21 C 001 0008 0195 O7|DEQUEUE C001 0020 0732 3 
CSBMORTY C 001 0001 0380 DETACH C001 OOFF 3146 31 
CSBMO020 C 001 005C 0338 DSABL C001 0080 3097 3] 
OS} CSBMIIOB C 001 0001 0198 OS|OTCLENG A001 OAIA 3364 3: 
CSBM1790 C 001 0058 0347 DTICWORK A 002 OE7D 3893 33 
CSBMZI0B C 001 0040 0183 DTCO0001 A 002 OETF 3894 32 
QOO|CSBMZ0P C001 OOF7 0366 09] DTCO0008 A 002 OFA? 3899 36 
CSBM2222 C 001 002C 0314 DTCOO800 A 002 OEAS 3898 32 
CSBM32X9 C 001 002B 0326 DTDCSIZE A001 ODAS 3810 33 
10/CSBMB209 C 001 002A 0325 10 38 
CSBM321X C 001 0026 0321 OTDCSS A002 ODA? 3809 33 
= CSBN321Y C 001 0029 0324 DTDEALLO A 001 0D5D 3783 33 
11/CSBM3210 C 001 0022 0317 IJOTERROR A 001 0034 3766 36 
CSBM3211 C 001 0023 0318 DTEROO1O A 003 OD4C 3775 37 
CSBM3212 C 001 0024 0319 OTF € 001 0002 3056 
12|CSBMB213 C 001 0025 0320 12|}DTMAP «= 002:«OE7B «389237 
CSBM3214 C 001 0028 0323 DISV#BYT A 005 ODAD 3814 37 
CSBM3260 C 001 0059 0346 DISVARR C001 O01] 3149 31 
13/CSBM3275 C 001 0050 0336 1B]DTSVCHAN A 005 ODAA 3812 37 
CSBN3280 C 001 0051 0337 DTSVELM A005 ODAD 3811 37 
CSBM3282 C 001 OO5E 0350 DISVLEN C001 OO13 3151 38 
14/CSBM3285 C 001 0052 0338 14)DTSVREG C001 OOOF 3148 31 
CSBMB286 C 001 005D 0349 DTSVSIZ C001 0012 3150 31 
CSBM3287 C 001 0053 0339 DTSVSSVL A 005 ODAC 3813 38 
15] CSBM3288 C 001 0054 0340 15]DTOOA107 A 003 OAAS 3442 34 
CSBM3289 C001 005A 0345 DTO0B107 A 003 OAB7 3448 34 
CSBM3290 C 001 0020 0315 T000010 A 003 O82F 3185 31 
16}SBM3295 C 001 0021 0316 16]DT000011 A 003 0871 3208 31! 
CSBM3299 C 001 0027 0322 DT000012 A 005 O87F 3212 32 
CSBM3301 C 001 0055 0341 - DT000013 A 004 0898 3219 32 
17]/CSBM3302 C 001 0056 0342 : 17]DT000014 A 004 0886 3241 32 
CSBN3303 C 001 0057 0343 DT000015 A 003 O8C1 3248 31 
CSBM3304 C 001 0058 0344 DT000030 A 003 O8CB 325] 33 
18] CSBM4689 C 001 O0F9 0368 18] DT000031 A 004 O8DA 3256 32 
CSBM4690 C 001 OOFA 0369 DTO00036 A 005 0911 3272 32 
CSBN4691 C 001 OOF! 0360 DT000040 A 003 0923 3277 «32% 
19}CSBN4692 C 001 OOF2 0361 1907000042 A 004 093A 3284 32 
CSBM4693 C 001 OOF3 0362 DT000055 A 003 0945 3287 32’ 
CSBM4694 C001 O0F4 0363 DT000060 A 004 094F 3290 32; 
0 0 


H21 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR _ 


02 004A 2711 TUBRFSS EQU TUBATTR9+2 REJECT FILE - SS 02 0004 
004B 2712 TUBRFN EQU _TUBRFSS+1 REJECT FILE - NUMBER SECTORS 0002 
004C 2713 TUBRFCSS EQU  TUBRFN+1 REJECT FILE - CURRENT SECTOR 0001 | 

03 004D 2714 TUBRFDSP EQU TUBRFCSS+] = REJECT FILE ~ RELATIVE DISPLACEMENT 03 0055 | 

2715 * 0057 
004E 2716 TUBCMSK] EQU  TUBRFDSP+1 — FIRST COMMAND KEY MASK BYTE 

0 0080 2717 TUBCMDS EQU X'‘80' ENABLE COMMAND KEY 8 0 0050 | 


i aa ala gal ie a cee Oe Lr ae ee a De ie 6 oe. Bee 


02} SYMBOL 


TSBM4695 C O01 
03) CSBM4696 C 001 
CSBM4697 C 001 
CSBN4698 C 001 
04] CSBM4699 C 001 
CSBM9999 C 001 
CSBQHDR C 001 
05|CSB1 C 001 
cSB2_C-001 
CSCALL C001 
06] DEAHIGH C 001 
DEANEXT C 001 
DEASIZE C 001 
07|DEQUEUE C 001 
DETACH C 001 
OSABL ~«C (001 
OS|DTCLENG A 001 
DTCWORK A 002 
DTC00001 A 002 
09] DTCoo008 A 002 
DTCO0800 A 002 
DTDCSIZE A 001 
10 
DTDCSS A 002 
DTDEALLO A 001 
J1[OTERROR A 001 


DTSV#BYT A 005 
OTSVARR C 001 
13] DTSVCHAN A 005 
DTSVELM A 005 
DTSVLEN C 001 
OTSVREG C 001 
OTSVSIZ C 001 
DTSVSSVL A 005 


1 


T LEN VALUE 
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01 


CROSS-REFERENCE 


REFERENCES O2]}SYMBOL =T LEN VALUE DEFN RE 


07000070 A 003 0953 3291 32 
03} DT000080 A 004 0968 3297 32 
DT000085 A 003 096C 3298 32 
DT000086 A 003 0976 3304 = 33; 
04) DT000087 A 005 0992 3313 33 
DT000088 A 003 0984 3330 33 


0385 DT000090 A 005 OSCE 3337 = 33. 
Q5jDT000095 A 003 O9F7? 3350 33 

DT000100 A 003 O9ED 3349 33. 

DT000105 A 003 0A24 3374 = 33 

3144 06} DT000107 A 004 OA4E 3397 337 
DT000108 A003 OABC 3428 34] 

3145 DT000109 A 004 OA9S 3435 = 347 


07} 07000110 A 001 0B12 3511 34s 
DT000115 A 005 0818 3519 34 
01000120 A 004 0B25 3526 = 344 

08} 07000130 A 003 0861 3569 355 
DT000140 A 003 0B64 3570 357 
DT000150 A 004 0B77 3583 


3468 3532 3540 3547 

3172 3190 3263 3350 

3185 3591 3760 3917 

3359* 3362 

3361* 3362* 3363 3767 3773* 3774 3777 

3212 3272 3337 3386 3398 3460 3606 3683 3706 3773 


3684 09} DT000200 A 003 OB8A 3600 335 
32133899 DT000240 A 005 OBAO 3606 360 
3314* 3408* 3520* 3651* 3657* 3667% 3801* 3819 3820 3832 3839 3865 DT000245 A 004 OBBA 3616 326 
3871" 3879 10}07000250 A 003 OBBF 3618 361 


DT000255 A 003 OBDS 3631 362 
01000257 A 003 OBE4 3635 363 
11{0T000260 A 004 OBEF 3645 362 
DT000270 A 005 OBF6 3651 
DT000280 A 004 0C33 3677 365 
12]0T000290 A 005 0C3C 3683 364 
DTO00300 A 005 OC4C 3692 368 
DT000310 A 004 0C54 3694 © 369 
13]0T000330 A 005 OC8C 3710 370 
DT000340 A005 0C91 3711 370 
DT000345 A 004 OCAS 3717 = 371 
14)0T000350 A 005 OCcBO 3720 371 
07000355 A 005 OCBF 3724 372 
07000360 A 004 OCD2 3729 372 


3313* 3407% 3519* 3652* 3790 
3322 3409 3521 3653 
3616 3629 3637 3673 
3772 


3709 
3796*% 3825* 3826 3827 3828 3849* 
3150 3866* 3872 

3798 «3813 3851 3852 3859 

3788" 3812 3823" 

3856 3876 

3149 3864* 3873 

3151 3865* 3871 

3814 3815 3816 


15] DT00A107 A 003 3431 15} 07000365 A 005 OCE8 3736 373 
DT00B107 A 003 3443 DT000370 A 004 OCF6 3743 373 
DT000010 A 003 3173-3179 07000380 A 003 0006 3748 © 374 

16|DT000011 A 003 3199 16|DT002000 A 003 OABD 3454 349 
07000012 A 005 3214 0T002010 A 004 OAE4 3478 346 
DTO000013 A 004 3217 DT002020 A 003 OB00 3497 345 

17] 07000014 A 004 3235 17 ECMACTV C001 0080 0415 
DT000015 A 003 3191 3228 3242 ECMCMPL C 001 0040 0416 
07000030 A 003 3300 ECMCPOCL C 001 0025 0410 

18} 07000031 A 004 3254 18}ECMCSB C001 0027 0412 
07000036 A 005 3257 ECNGW C001 0003 0423 
0000040 A 003 3289 ECNINQ C 001 0022 0407 

19] 7000042 A 004 3282 19|ECMIOERR C 001 0021 0406 
07000055 A 003 3279 3285 ECMLOCK C001 0010 0418 
DT000060 A 004 3273" ECMASK C001 0001 0414 
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H22 
#SVAU TCB CHANGE ORG OR DETACH 


ADDR STNT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR S 


02 


03 


0004 2765 TUBMCOUT EQU x'04" . ENTER HAS BEEN PRESSED AT THE SUBCNSL 02 2 
0002 2766 TUBNOSUB EQU  X‘02' «ASSIGN NOSUB ACTIVE ON THIS DEVICE 2 
0001 2767 TUBRDMOD EQU  X‘01' . PERFORM READ MODIFIED 0030 2 
0055 2768 TUBMSGID EQU TUBATTRA+1 — NEXT REPLY ID TO USE AT SUBCONSOLE 03 : 


0057 2769 TUBDMATX EQU TUBMSGID+2 ADDRESS OF SUBCONSOLE NATRIX 


11/81 


/11/81 


12/08/81 21:31 


12/08/81 21:31 


02] SYMBOL 


T LEN VALUE 


REFERENCES 


3275 
3295 


3264 3269 3271 


CROSS-REFERENCE 


PAGE 


3292 


98 VO9/11/81 


12/08/81 


DT000086 A 003 0976 3304 3326 
04] DT000087 A 005 0992 3313 3308 3311 
DT000088 A 003 0984 3330 3305 
DT000090 A 005 OSCE 3337 3339 

05] 0T000095 A 003 O9F7 3350 3373 
DT000100 A 003 O9ED 3349 3347 
DT000105 A 003 0A24 3374 3357 

06]DT000107 A 004 OA4E 3397 3376 3378 3380 3382 3397 
DT000108 A 003 OASC 3428 3416 
DT000109 A 004 OA98 3435 3429 

07]/DT000110 A 001 0B12 3511 3498 
0T000115 A 005 0818 3519 3449 
T000120 A 004 0B25 3526 3447 

08} 0T000130 A 003 0B61 3569 3552 
DT000140 A 003 0864 3570 3578 
DT000150 A 004 0877 3583 

09} 07000200 A 003 OB8A 3600 3351 
DT000240 A 005 OBAO 3606 3608 
01000245 A 004 OBBA 3616 3267 

10]DT000250 A 003 OBBF 3618 3611 
DT000255 A 003 OBD8 3631 3624 
DT000257 A 003 OBE4 3635 3632 

]1}0T000260 A 004 OBEF 3645 3620 3634 3636 
01000270 A 005 OBF6 3651 
0000280 A 004 0C33 3677 3659 

12]DT000290 A 005 OC3C 3683 3646 
DT000300 A 005 OC4C 3692 3685 
DT000310 A 004 0C54 3694 3692" 

13]DT000330 A 005 OC8C 3710 3705 3706* 3707 3707* 3708 3708* 3709" 
DT000340 A 005 OC91 3711 3701 
01000345 A 004 OCA5 3717 3713 

14{DT000350 A 005 OCBO 3720 3716 3718 
01000355 A 005 OCBF 3724 3722 
DT000360 A 004 OCD2 3729 3727 

15]DT000365 A 005 OCES8 3736 3731 3733 
DT000370 A 004 OCF6 3743 3736" 
DT000380 A 003 0006 3748 3746 

16]DT002000 A 003 OABD 3454 3492 
DT002010 A 004 OAE4 3478 3461 
0T002020 A 003 OB00 3497 3456 

17JECMACTV C001 0080 0415 
ECMCMPL C001 0040 0416 
ECMCPOCL C 001 0025 0410 

1S] ECMCSB «C001 0027 0412 
ECNGW C001 0003 0423 
ECMING C001 0022 0407 

J9JECMIOERR C 001 0021 0406 
ECMLOCK C001 0010 0418 
ECMMASK C001 0001 0414 


ERR LOC OBJECT CODE 
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ADDR STMT SOURCE STATEMENT 


PAGE 
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12/08/81 21:31 


02 


2816 * 
2817 * 


03 


0030 2818 TUBPLEN 


EQU 
EQU 


X‘02' 
X'ol' 


. RESERVED 
RESERVED 


01 


02) SYMBOL 


ECMNSKIP C 001 
O3}ECNPARM C 001 
ECMREAL C 001 
ECMSYSLG C 001 
O4ECNTAS C 001 
ECMTINER C 001 
ECMTRM =C 001 
ODJECMTTC = C 001 
EIGHT _C 001 
EN1066 
06] FALSE 
FIFO 
FIVE 
07) FOUR 
FSBDATT1 C 001 
FSBDATT2 C 001 
OS} FSBDATT3 C 001 
FSBDATT4 C 001 
FSBDEXVL C 001 
O9| FSBDFCHN C 001 
FSBOFIPT C 001 
FSBDNAME C 001 
10]FSBDRES1 C 001 
FSBDSHAR C_001 
FSBLLNTH C 001 
11]FSBLTYP2 C 001 
FSBMADD C 001 
FSBMALLC C 001 
12] FSBMBYPS C 001 
FSBNCLD C 001 
FSBMCOMP C 001 
13] FSBMDFIL C 001 
FSBMOFLY C 001 
FSBMOPLB C 001 
14) FSBMOPLD C 001 
FSBMOPNY C 001 
FSBMDPSR C 001 
15] FSBMHKAS C 001 
FSBMIFIL C 001 
FSBMIFLY C 001 
16{FSBMIPT C 001 
FSBNI1SH C 001 
FSBMKEYS C 001 
17] FSBMKYST C 001 
FSBMLBST C 001 
FSBNLNBK C 001 
18] FSBANFAL C 001 
FSBMOLMV C001 


T LEN VALUE 


REFERE 


FSBMOPD C 001 
19}FSBMOPT C 001 
FSBMRF1 C 001 


FSBMSIZE C 001 
0} 


ERR LOC OBJECT CODE 


#SVAU TCB CHANGE ORG OR DETACH TRA 


ADDR STMT 


02 


EQU  TUBDPRST+1 


LENGTH OF A BASIC PRINTER TUB 


2819 RAERRARAARRRARRRARARARRAR RII RII IR RI TOO IOI I TOO ITO OIC TOS 


2820 * 


PRINTER TUB ADDITION 


x 


03 


JOD) RAKKKRARRAAKKERAKKRERAARARARAAKKRAKKRAKKRRRRARAKKHRARREREREERERED DRE RERED 


11/81 


1/11/81 


12/08/81 21:31 


12/08/81 21:31 


02] SYMBOL 


ECMNSKIP C 001 
O3)ECMPARM C 001 
ECMREAL C 001 
ECMSYSLG C 001 
O4)ECNTAS C 001 
ECMTINER C 001 


ECMTRM C 001 
OSJECMTTC Cc O01 
EIGHT _C 001 
EN1066 A 001 
O6JFALSE —C 001 
FIFO _C 001 
FIVE C001 
O7/FOUR C001 


FSBDATT1 C 001 
FSBDATT2 C 001 
8} FSBDATT3 C 001 
FSBDATT4 C 001 
FSBDEXVL C 001 
FSBDFCHN C 001 
FSBOFIPT C 001 
FSBDNAME C 001 
10] FSBORES1 C 001 
FSBDSHAR C 001 
FSBLLNTH C 001 
11[FSBLTYP2 C 001 
FSBMADD C 001 
FSBRALLC C 001 
12]FSBMBYPS C 001 
FSBMCLD C 001 
FSBMCOMP C 001 
13] FSBMDFIL C 001 
FSBMDFLY C 001 
FSBMOPLB C 001 
14] FSBMDPLD C 001 
FSBMOPNW C 001 
FSBMOPSR C 001 
15] FSBMHKAS C 001 
FSBMIFIL C 001 
FSBMIFLY C 001 
16{FSBMIPT C 001 
FSBMIISH C 001 
FSBMKEYS C 001 
17|FSBMKYST C 001 
FSBMLBST C 001 
FSBMLNBK C 001 
18] FSBANFAL C 001 
FSBMOLMV C 001 
FSBMOPD C 001 
19}FSBMOPT C 001 
FSBMRF1 C 001 


T LEN VALUE 


0080 
0000 
0040 
0028 
0026 
0024 
0023 
0020 
0008 
OECE 
0090 
0000 
0005 


DEFN 


CROSS-REFERENCE 


REFERENCES 


3922 3925 


FSBMSIZE C 001 


01 


ERR LOC OBJECT CODE 
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ADDR STMT SOURCE STATEMENT 


12/08/81 21:31 


ERR LOC OBJECT CODE 


01 
O2)SYMBOL T LEN VALUE OEFN — REFEREM 
FSBMSNLB C 001 0010 0685 
O3]FSBMTYP2 C 001 0001 0679 
FSBMUPD C001 0002 0703 
FSBMUSED C 001 0004 0687 
O4|FIADATTR C 001 0022 0553 0568 
FIADATT1 C 001 0020 0548 0551 
FIADATT2 C 001 0023 0568 0577 
OS} FIADBLKN C 001 0012 0494 
FIADCONT C 001 0021 0551 0553 
FIADDATE C 001 000B 0443 0445 0 
O6]FIADDFLG C 001 0000 0436 0439 
FLADEDFQ C 001 0027 0578 0580 0 
FIADENDA C 001 001B 0510 0512 
O7|FLADFCHN C 001 OO1F 0546 0548 0 
FIADHIGH C 001 0010 0491 
FLADHOKY C 001 0039 0602 0604 0 
(Q8]FIADKBKT C 001 003B 0613 0615 
FIADKEYL C 001 0028 0592 0594 
FIADKEYO C 001 002A 0594 0596 
OO] FIADLABL C 001 0008 0439 0443 
FLADLBOW C 001 0011 0497 0499 
FIADLBUS C001 0012 0499 3398* 3 
JO|FIADLSTK C 001 002E 0596 0598 
FIADLSTP C 001 0035 0600 0602 
FIADLSTR C 001 0015 0501 0503 O 
11[FIADOWNR C 001 0025 0577 0578 
FIADPCBQ C 001 003D 0615 0616 
FIADRECL C 001 OOOF 0489 0491 0. 
J2|FLADRECN C 001 0012 0495 0501 
FIADRES3 C 001 003F 0616 0671 
FLADRFED C 001 0027 0580 
13] F1ADRFST C 001 0015 0505 
FIADSDIR C 001 000B 0445 
FIADSFLG C 001 000D 0457 0489 
14[FIADSHEM C 001 0015 0503 
FIADSTDA C 001 0018 0508 0510 
FIADSTIX C 001 0031 0598 0600 
5]FIADTYPE C 001 O00C 0447 0457 
FIADVTOC C 001 0010 0512 0537 oF 
FIALLGCD C 001 0028 0618 
16{FIALLGIN C 001 0040 0621 
FIALLGLB C 001 0020 0623 3472 
FIALIVTA C 001 OO1E 0537 
17|FIAL2VTA C 001 0012 0604 
FIAMBLRN C 001 0080 0492 
FIAMCKPT C 001 0040 0572 
18) F1ANCONS C 001 0040 0449 
FIAMDIRC C001 0020 0450 
FIAMDLTC C 001 0020 0573 
19]FLAMDNFG C 001 0004 0562 
FLAMDPCK C 001 0010 0465 
FIAMGASK C 001 0008 0575 


#SVAU TCB CHANGE ORG OR DETACH TRAN 


ADDR STMT S 


02 


2842 * 
2843 * 


TWAEQ 


fy 


2844 * GENERAL TASK WORK AREA ACCESS EQUATES 


QAR * 


0027 2896 T 
0033 2897 1 


2898 * 


‘pistol Aaa Sa 


VO9/11/81 12/08/81 21:31 


¥O9/11/81 


12/08/81 21:31 


PAGE 100 09/11/81 


CROSS-REFERENCE 


12/08/81 21:31 


02] SYMBOL = T LEN VALUE REFERENCES Q2}S¥mBoL 1 LEN VALUE DEFN = RE 
FIAMHKAS C 001 0010 0558 
03/FSBMTYP2 C 001 O3/FIAMIFIL C 001 0010 0574 
FIAMINOX C 001 0080 0448 
FIAMINER C 001 0020 0556 
O4/FIADATTR C 001 O4)FIANUOBR C 001 0002 0454 
FIAKBPR C 001 0040 0555 
FIAMLBFL C 001 0001 0487 
05] FIADBLKN C 001 O5|FIAMLTST C 001 005C 0437 
FIAMPRGE C 001 0040 0464 
FIAMNEW C001 0020 0480 
06] FIADDFLG C 001 O6|FIANNREC C 001 0008 0560 
0592 0604 0618 0647 FIAMOLIV C001 0001 0565 
FIADENDA C 001 0018 0510 0512 FIAMOTAD C 001 0080 0554 
O7|FIADFCHN C 001 OO1F 0546 0548 0623 3467 O7|FIANPERM C 001 0008 0452 
FIADHIGH C 001 0010 0491 FIAMRDFL C001 0010 0451 
FiADHOKY C 001 0039 0602 0604 0613 FIAMRFIL C 001 0002 0564 
OS|FIADKBKT C 001 003B 0613 0615 OS] FIANSCFL C 001 0080 0571 
FIADKEYL C 001 0028 0592 0594 FIAMSCLB C 001 0080 0477 
FIADKEYO C 001 002A 0594 0596 FIAMSCMD C 001 0080 0475 
OS|FIADLABL C 001 0008 0439 0443 OIFIANSCRT C 001 0001 0455 
FIADLBOW C 001 0011 0497 0499 FIAMSORT C 001 0080 0463 
FIADLBUS C 001 0012 0499 — 3398% 3460* FIANSPAl C 001 0004 0481 
JOJFIADLSTK C 001 002E 0596 0598 JO}FIANSPA2 C 001 0002 0482 
FIADLSTP C 001 0035 0600 0602 FIANSYSF C 001 0001 0440 
FIADLSTR C 001 0015 0501 0503 0505 0508 FIANTEMP C001 0004 0453 
TI]FIADOWNR C001 0025 0577 0578 11]FIAMVALL C 001 0070 0535 
FIADPCBQ C 001 003D 0615 0616 FIAMVIST C 001 0010 0530 
FIADRECL C 001 OOOF 0489 0491 0494 0495 0497 FIAMV2ND C 001 0020 0532 
12] FIADRECN C 001 0012 0495 0501 12] FLAMV3RD C 001 0030 0533 
FIADRES3 C 001 003F 0616 0671 FLANVATH C001 0040 0534 
FIADRFED C 001 0027 0580 FIANXNFG C 001 0008 0467 
13] FIADRFST C 001 0015 0505 13] F1AMXTND C 001 0080 0549 
FIADSDIR C 001 000B 0445 FIFLAG C001 OOlE 0641 064 
FIADSFLG C 001 000D 0457 0489 FIRESTRT C 001 OOFF 0643 
14] FLADSMEM C 001 0015 0503 14]FISSEND C 001 0027 0647 
FIADSTDA C 001 0018 0508 0510 FISSTRT C001 0021 0645 
FIADSTIX C 001 0031 0598 0600 Fll C001 0001 3135 
15|FIADTYPE C 001 O00C 0447 0457 15}F12 C 001 0002 3136 339 
FIADVTOC C 001 001D 0512 0537 0546 0641 F51 C001 0001 3106 378 
FIALLGCD C 001 0028 0618 F52 C 001 0002 3105 382 
16] FIALLGIN C 001 0040 0621 16] TAR C001 0010 3054 377 
FIALLGLB C 001 0020 0623 3472 TARX C001 0008 3092 372 
FIALIVTA C 001 OO1E 0537 108 C001 0001 3055 
17|FIAL2VTA C 001 0012 0604 17| JCBDBFRA C 001 OO6F 1028 103 
FIAMBLRN C 001 0080 0492 JCBOCCBA C 001 0003 1040 104 
FIAMCKPT C 001 0040 0572 JCBDCIBA C001 0052 0987 098 
18] FLANCONS C 001 0040 0449 18] JCBDCRLB C 001 0010 0928 092’ 
FIAMDIRC C 001 0020 0450 JCBOCSBP C 001 0065 1024 102 
FIAMDLTC C 001 0020 0573 JCBDCTAG C001 0028 0955 095 
19] F1ANDNEG C 001 0004 0562 19] JCBDDATE C 001 9009 0920 092: 
FLAMDPCK C 001 0010 0465 JCBDDFRG C001 0056 0993 099 
0008 0575 JCBDDTFA C001 0054 0989 099) 


FIAMGASK C 001 


ERR LOC OBJECT CODE 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


PAGE 64 09/11/81 12/08/81 


ADDR STMT SOURCE STATEMENT 


21:31 


ERR LOC OBJECT CODE 


#SVAU TCB CHANGE ORG OR DETACH 


ADDR S 


0027 2896 TWAYSTAT EQU 39 STATUS SAVE AREA (39-50) 

0033 2897 TWAYERPS EQU 51 TAG 51- 1/0 ERP SAVE AREA FOR MSG BUILD 
2898 * 52 TAG 52- RESERVED THRU 59 

003C 2899 TWAYCSMQ EQU 60 TAG 60- CONSOLE SYSLOG MESSAGE QUEUE . 
2900 * 119 TAG 119- END OF CONSOLE MESSAGE QUEUE. 
2901 * 


2902 * TWA EXTENSION ELEMENT EQUATES 


BORO RS BOERS AD 


100 09/11/81 12/08/81 21:31 ot 


02] SYMBOL 


FLANHKAS C 001 
O3/FIAMIFIL C 001 
FLANINOX C 001 
FLANINFR C O01 
04] F LAMJOBR C 001 
FLANKBPR C 001 
FIAMLBFL C 001 
O5|FIAMLTST C 001 


06] FIAMNREC C 001 


FLAMOTAD C 001 
O07) FLANPERM C 001 
FLAMRDFL C 001 
FLAMRFIL C 001 
OS} FIAMSCFL C 001 
FLANSCLB C 001 
FLANSCMD C 001 
OO] FIAMSCRT C 001 
FIANSORT C 001 
FLAMSPAL C 001 
1O}FLANSPA2 C 001 
FIANSYSF C 001 
FLANTEMP C 001 
11} FIAMVALL C 001 


T LEN VALUE 


DEFN 


0558 
0574 


PAGE 


101 
CROSS-REFERENCE 


REFERENCES 


¥09/11/81 


C 001 

15} F 12 C001 0002 3136 3397* 3398 

F51 C001 0001 3106 — 3787* 3788 3795* 3798* 3800 

F52 C 001 0002 3105 ~ 3822* 3823 3829 3830 3831 3835 3842 3947* 3052* 
16] IAR C001 0010 3054 © 3774* 

TARX C001 0008 3092 3725-3728 (3917 

TOB C001 0001 3055 
17|JCBDBFRA C 001 OO6F 1028 1031 

JCBDCCBA C 001 0003 1040 1041 

JCBDCIBa C001 0052 0987 0989 
18} JCBOCRLB C 001 0010 0928 0929 

JCBDCSBP C 001 0065 1024 1026 

JCBDCTAG C001 002B 0955 0957 
19] JCBDDATE C 001 0009 0920 0922 

JCBDDFRG C001 0056 0993 0995 

JCBDDTFa C 001 0054 0989 0997 


64 VO9/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE 


*SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 


H26 


ADOR STMT SOURCE STATEMENT 


65 09/11/81 12/08/81 21:31 


02 
UILD 


2912 * XNTEQ 


2913 RERRERAAKRAAARAKRARR AK RRA RAR KIRA I IIIT PIII III ITI I IIE 


01 


02) SYMBOL 


JCBDELNG C 001 
03] JCBDERSV C 001 
JCBDEXTa C 001 
SCBDF INA C 001 
O4 JCBDFNO C 001 
JCBOFSBF C 001 
SCBOFSBL C 001 
O5} JCBDINIT C 001 
JCBDINLK C 001 
SCBDINT2 C 001 
06) JCBDJBID C 001 
JCBDJBRG C 001 
JCBDJOBN C 001 
07) JCBDJQST C 001 
JCBDLANG C 001 
JCBOLCLa C 001 
05] JCBDLNPG C 001 
SCBDLPI* C 001 
JCBOMENF C 001 
09) JCBDNENL C 001 
JCBOMENU C 001 
SCBONFTF C 001 
10} JCBDPDAT C 001 


16) JCBDSLST C 001 


JCBDSSBa C 001 
17) SCBDSTAT C 001 
JCBDUPSI C 001 
SCBDURIL C 001 
18} SCBDUR2L C 001 
JCBDUSER C 001 
JCBDUSR1 C 001 
19] JCBDUSR2 C 001 
JCBOWSBP C 001 
JCBDIPRC C 001 
0 


T LEN VALUE 


0010 
00F 
0031 


ERR LOC OBJECT CODE 


#SVAU TCB CHANGE ORG OR [ 


E. 03 


UE. 


2914 RARKARRARKRRARERRARRAR RARER RERKR ARR KERE RARER EAR REAR ARARIR TIOR TIR 


2915 **® MAIN STORAGE TRANSIENT AND TRANSFER CONTROL RIB EQUATES is 


2916 RRRAKRAAAKKARRARRARAARER RAR RRARR RARER RARER ARI IRR ITER TR ITER IIIT IR III 


391] KARKKKKKRARAARKKRERERRKKAKRAKRKAAEKERKRARARARKKAERERARARARRRARKRKEKRAERRK 


PAGE 


102 VO9/11/81 12/08/81 21:31 | 


101 VO9/11/81 12/08/81 21:31 


01 


CROSS-REFERENCE 


01 
Q2|SYNBOL 1 LEN VALUE DEFN REFERENCES 

JCBDELNG C 001 0010 1049 3503 
03] JCBDERSV C 001 OOOF 1048 1049 

JCBDEXTA C 001 0031 0961 0963 3497-3499 

JCBDF INA C 001 0050 0985 0987 
JCBDFMNO C 001 004C 0979 0981 
JCBDFSBF C 001 0014 0931 0933 
JCBDFSBL C 001 0012 0929 0931 3455 3458 3481 3482" 
JCBDINIT C 001 0000 0844 0856 3446 
JCBDINLK C 001 0005 0900 0910 

7 


O2| SYMBOL = LEN VALUE DEFW 


SCBLLNTH C 001 0070 1031 
03} JCBMBTCH C 001 0010 0884 
JCBMDEAD C 001 0008 0874 
SCBMDKAL C 001 0020 0903 
O4) JCBMDOMD C 001 0002 0876 
SCBMDPRD C 001 0004 0886 
JCBADSRC C 001 0001 0898 
O5] JCBNEIBA C 001 0001 1022 


0 


05 


JCBDINT2 C001 0001 0856 0869 
06} JCBDJBID C 001 004 


JCBNFLUC C001 0010” 0873 
07] JCBMHIPR C 001 0030 0859 
JCBMICRC C 001 0008 0885 
ICBMINAT C001 0010 0850 
OG] JCBMINGP C 001 0002 0887 
JCBMINTK C001 0010 1018 
JCBMIPRC C 001 0008" 0863 
OO} JCBALIST C 001 0020 1007 


JCBONFTF C 001 
10} JCBDPDAT C 001 O00C 0922 0924 
JCBDPGIL _C 001 003B 0967 0968 
JCBDPG2L C 001 003D 0968 0969 
11|JCBDPLST C 001 0005 1041 1043 
JCBDPRG1 C 001 0033 0963 0964 
JCBDPRG2 C 001 0035 0964 0965 
12] JCBDPROG C 001 0028 0941 0943 
JCBDPSBP C 001 0018 0935 0937 
JCBDRGS2 C 001 002A 0953 0955 3236* 3241 3243 
13] JCBDRTCD C 001 002F 0959 0961 
JCBDSCH1 C 001 0002 0869 0879 
JCBDSCH2 C 001 0003 0879 0890 
JCBDSCH3 C 001 0004 0890 0900 
JCBDSCH4 C 001 0063 1014 1024 3415 3417* 3735* 
JCBDSCHS C 001 0062 1003 1004 
15] JCBDSLLC C 001 004) 0931 0983 
JCBOSLLR C 001 0055 0991 0993 
JCBDSLOB C 001 002D 0957 0959 
16] JCBDSLST C 001 


1 


JCBDSSBa C 001 


JCBDUPSI C 001 
JCBDURIL C 001 003F 0969 0970 
18} JCBDURZL C 001 0041 0970 0972 
JCBDUSER C 001 006D 1026 1028 1029 
JCBDUSRI C 001 


JCBDIPRC C 001 


H27 


*SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 66 VO9/11/81 12/28/81 21:31 


65 09/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


00840000 | 02 001D 2965 RCPERR QU X‘1D' COMMAND PROCESSOR 1/0 ERROR 
LRARARR OO1E 2966 RTTC = EQU.sX'IE' TASK-TASK COMMUNICATONS 
RRRERR OOF 2967 RCPTC QU X'IF’ COMMAND PROCESSOR TASK-TASK 
an 03 0020 2968 RSETX EQU X'20° SET EXIT 
CHAAR 0021 2969 RWODB  EQU X'21' WSDM_ TRANSIENT 


0022 2970 RSVWR SsoEQU.SSOCX'22° ee 


RRR IRR 


2 VO9/11/81 12/08/81 21:31 


CROSS~REFERENCE 


T LEN VALUE DEFN = REFERENCES O2]SYMBOL oT LEN WALUE DEFW 


02] SYMBOL 


3513 


JCBMEVPR C 001 0004 1020 
JCBMEXTD C 001 0001 0951 
JCBMFLIS C 001 0040 1016 


JCBMSELT C 001 0002 
JCBMSEOJ C 001 0080 0891 
JCBMSLNG C 001 0040 1006 
JCBMSLOG C 001 0080 0901 
JCBMSLOP C 001 0002 0950 
JCBMSOFF C 001 0040 0892 


" H28 


66 09/11/81 12/98/81 21:31 PAGE 67 =O9/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


3010 * SLOAD 


BO] ] ARRRARAAAAAARRAKRARARR RARERRERLARAERARRALERER EES | PLERAR AAA RII, 


3012 * MAIN STORAGE RELOCATING LOADER PARAMETER .°ST EQUATES = 
3013 RAKKAAAAKRRKKKARARRARRERERARRRERRKRERELERRARERI SEEKER RRA 
0002 3014 $LDDSS EQ 2 SS_ADOR OF MEMBER 


0003 3015 SLDOTEXT EQU  SLDDSS+1 NUMBER OF TEXT SECTORS 
0005 3016 SLDDLINK EQU SLDDTEXT+2 = LINK EDIT ADDRESS 


3 YO9/11/81 12/08/81 21:31 


67 VO9/11/81 12/08/81 21:31 


PAGE 104 VO9/11/81 12/08/81 21:31 


01 01 
CROSS~REFERENCE 
JCBMSPCK C001 0002 1021 NUADPACE C 001 0300 1196 
03} JCBMSPRT C 001 0020 0893 O3{NuaDPIOR C 001 0380 1194 
JCBMSRAL C 001 0008 1019 NUADSTQE C 001 0390 1185, 
SCRMEYLB C001 0080 1005 NUGERACE C 001 0310 1169 
04] JCBMSYSN C 001 0040 0902 O4/NUAIEACE C 001 0370 1181 
JCBMTMLK C 001 0080 1015 3415 3417 NUaIPLAF C001 03FO 1200 
NUMLGACE C 001 0320 1171 
05] JCBMUPS2 C 001 0040 0912 O5]NuaLOADI C 001 2000 1224 
JCBMUPS3 C 001 0020 0913 NUAACE C001 0340 1175 
JCBMUPS4 C001 0010 0914 NUBPNTOE C 001 0398 1188 
06] JCBMUPSS C 001 0008 0915 06] NUGMPIOB C001 0100 1140 
JCBMUPS6 C001 0004 0916 ESOS C001 1000 1221 
JCBMUPS? C 001 0002 0917 NUANKACE C001 0360 1179 
07] JCBMUPS8 C 001 0001 0918 07] NUARDIOB C 001 O2A8 1160 
NuaSCA C001 0000 1134 
OS] JCBMDSK C 001 0010 0947 OS|NUASPACE C 001 O3EO 1198 
NUASWACE C001 0350 1177 
JCBMLIN'C 001 0040 0945 NUATIACE C001 0330 1173 
09] JCBMAX C 001 0004 0949 OO|NUATRACE C001 0300 1166 
JCBMAPNT C 001 0080 0944 NUaTRBUF C001 0700 1208 
JCBPMTCD C 001 0004 0875 NUaTURQ «C001 G2A3 1157 
10) JCBPKREF C 001 0040 0871 TO|NuaTWAML C001 0780 1149 
JCBMYMDD C001 0001 0877 NUBTIAUR C001 O2A2 1151 
JCBMILDJ C001 0001 0854 NUAXIENT C 001 0800 1204 
11] SCBAILDS C 001 0002 0853 LU MUFIXNUC C001 0000 1132 
JCBMISCP C 001 0008 1009 NUL9LBF1 C001 0020 1164 
JCBMALPI C001 0004 1044 MULACE C001 OOlO 1167 
12] JCBMOLPI C 001 0006 1045 T2)NULACEQH C 001 0000 1138 
JCBMBLPI C001 0008 1046 NULADLRK C001 0000 1211 
JCBSLCRT C 001 EEEE 0926 NULCPTCB C 001 0080 1147 
13] SCBSLOFF C 001 0000 0925 L3INULENIOB C 001 0020 1141 
JCB1 «C001 0001 3119 341.4% 3415 3417 3445" 3446 3454" 3455 3458 3458" 3459 3459* 3460 NOLIPLAF C001 0310 1215 
3481* 3482 3497 3499 3499" 3509" NUUESOS C 001 1000 1222 
14) JCB2 C001 0002 3120 «= 3234* 3236 «3236 «3241 3243 3490" 3481 3482 3734" 3735 14{MULROIOB C 001 0038 1161 
J0B1 C001 0001 3110 MULSCA C001 0100 1135 
LIFO C001 0010 0736 0738 NULTQE C001 0008 1186 
15|/MAINT A001 OFO9 3954 TSINULTRBUF C001 0100 1207 
NINE C001 0009 3072 NULTWAQ C001 0005 1158 
NOBIT C001 0000 3079 WULTUAX C001 0023 1150 
16|NOOP = CC. 001-0080 (3078 TOINULXIENT C001 0800 1205 | 
NPRV C001 0001 309% 3728 MUPBITS C001 O00F 3030 
NUM*LBF1 C001 O2EO 1163 1166 NUVARNIC C001 1000 1219 
17] NUBACEQH C 001 0100 1137 1140 LT] ONE C 001 0001 3064 
NUAADURK C001 0700 1210 {0Pi C001 0002 3008 
NUBATQE C001 O3A8 1192 1194 OP2 C O01 0004 3093 
18} NUABAD2K C 001 O7C0 1213 18 PAK? C O01 0002 3109 
NuaCPTaH C001 0002 1146 PLIFO C001 0040 0475 
NUACPTCB C 001 0200 1145 1149 3250 3422 3436 3542 3557 3710 . TREERPT C001 0080 Oa2s 
1SJNUACSETC C 001 0380 1183 1185 " 3108 = C GOL 0080 0734) =e 
NUACXIOB C001 O1EO 1143 1145 PRIORF C001 0080 0739 
NUADLTQE C001 0380 1190 1192 : PRIORL C001 0090 0738 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 68 VO9/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


00853000 | 0. SEQU 


EQU REGISTER ONE 
EQU REGISTER THO 
£QU PROGRAM STATUS REGISTER 
EQU ADDRESS RECALL REGISTER 


TACTINGE' TIM ANNMOCCC ocricTrcs 


04 VO9/11/81 12/08/81 21:31 O1 PAGE 105 09/11/81 12/08/81 21:31 1 
0 
CROSS~REFERENCE 


O2}SYMBOL T LEN VALUE DEFN — REFERENCES Q2)]SymBOL = T LEN VALUE DEFN 


PRI] C 001 0001 3101 
03) PRIZ C 001 0002 3102 
PRV C 001 0000 3095 
PSH1 € 001 0001 3137 


NUADPACE C 001 03D0 1196 1198 
03/NUaDPIOB C 001 03B0 1194 1196 
NuaDSTQE C001 0390 1185 1188 
NUQERACE C 001 0310 1169 = 1171 
O4)NUAIEACE C 001 0370 1181 1183 
NU@IPLAF C 001 03FO 1200 1215 


NUALGACE C 001 0320 1171 = 1173 PSR C 001 0004 3052 
QD|NUALOADI C 001 2000 1224 O5|PUSHBEGL C 001 0006 1236 
NuarACE C001 034011751177 PUSHCORE C 001 0007 1238 


NUBMNTOE C 001 0398 1188 1190 
O6|NuaMPIOB C 001 O1CO 1140 §=61143 
Nuatssg@s C 001 1000 1221 (1224 PUSHNONS C 001 0080 1239 


NUAMXACE C 001 0360 1179 = 1181 PUSHOCH C001 0001 1229 
O7{NUAROIOB C 001 02A8 1160 1163 1O7|PUSHOSS C 001 0003 1230 
NuaSCA C001 0000 1134 11373266 3338 _3348* 3386* 3397 3406* 3435* 3549 3550 3551 3607 PUSHPART C 001 0080 1232 
3609 3710 3711* 3720* 3750 3792 3834 3921 PUSHTSSN C 001 0005 1235 

OS} NUASPACE C 001 030 1198 1200 OS} QCPWAIT C001 0008 1918 
NUASWACE C001 0350 1177 (1179 C 001 0004 1915 
NUATIACE C 001 0330 1173 1175 C001 O04E 0787 
OO] NUSTRACE C 001 0300 1166 1169 C 001 004C 0786 
NUATRBUF C001 0700 1208 1210 1213 1215 C001 0008 0751 
NuaTWAQ C 001 02A3 1157 1160 C001 005C 0794 
1OJNUATWAXL C 001 0280 1149 1151 (1157 C001 O05E 0795 
NUATWAXR C001 O2A2 1151 37873822 C 001 0060 0796 
NUAXIENT C 001 0800 1204 1208 1219 C001 0062 0797 
TI)NUFIXNUC C001 0000 1132 1134 QHOCPOCL C 001 0054 0790 
NUL*LBF1 C001 0020 1164 1166 QHOCSB C001 0072 0805 
NULACE C001 0010 1167 1169 1171 1173 1175 1177 1179 +1181 1183 1185 1198 1200 QHDCSCQ € 001 0058 0792 
12] NULACEGH C 001 00CO 1138 = 1140 QHDCXNT C001 0018 0759 
NULADURK C001 00CO 1211 1213 QHDDILK C001 0064 07938 
NULCPTCB C 001 0080 1147 ©1149 QHDEIB =~ 001 O0A0 0824 
13/NULENIOB C 001 0020 1141 1143 1145 1196 QHDERB C001 0074 0806 
NULIPLAF C 001 0310 1215 QHDEXAN C001 00R6 0827 
NULMSSQS C 001 1000 1222. 1224 QHDEXTRA C 001 009A 0821 


14/NULRDIOB C 001 0038 1161 1163 

NULSCA C001 0100 1135 1137 

NULTQE € 001 0008 1186 1188 1190 1192 1194 
15] NULTRBUF C 001 0100 1207 1208 

NULTWAQ C001 0005 1158 1160 

NULTWAX C 001 0023 1150 115] 1157 3895 
16{NULXIENT C 001 0800 1205 = 1219 

NUMBITS C001 GOOF 3080 


NUVARNUC C001 1000 1219 = 1221 QHDHIST € 001 006E 0803 

17) ONE C 001 0001 3064 QHDINQEX C 001 0090 0816 

OP1 C001 0002 3094 3725 3728 3760 QHDIOXNT C 001 000A 0752 

OP2 C001 0004 3093 3725 3728 C 001 0002 0748 

18] PAK2 C 001 0002 3109 HGHDIOA §=C O01 0038 0775 
PLIFO C001 0040 0425 . QHDKBTR C 001 OO1E 0762 

~ , “PEEMPT C001 0080 0424 = 3426 3440-3561 QHDLOAD (001 OO1C 0761 


TOR = € 001 0080 0734 0738 0739 
“RIORF C001 0080 _ 0739 
7 PRIORL C001 0090 0738 QHONSACE C 001 O00A2 0825 


H30 
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ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR 


3100 * REGISTERS USED 
0001 3101 PRM Eu PARM LIST POINTER 


0002 3102 PRMZ EW 2 PARM LIST POINTER 

0001 3103 RIBI €QU 1 PARM LIST POINTER 00890000 

0002 3104 RIB2 EQU 2 PARM LIST POINTER 00900000 

0002 3105 F52 Eu 2 BIT MASK POINTER 00910000 0800 F2 37 06 

0001 3106 F5i EU 1 BIT MASK POINTER 00920000 

N00) 3107 CPI +; en) COMMO) PONT CCOD pADN neon; ARA® IEMs IC! nen 


1 12/08/81 21:31 1 PAGE 106 VO9/11/81 12/08/81 21:31 
0 


CROSS-REFERENCE 


02} SYMBOL = T LEN VALUE 


102] SYMBOL =T LEN VALUE DEFN REFERENCES 
C001 0001 3101 3171 3174 
C 001 0002 3102 


C 001 0000 3095 3185 3725 3760 3917 


( 


DEFN = REFERENCES 


PSHL = «C-001 0001 3137 3316* QHDPRIQ C001 0044 0782 3538 
O4/PSH2 C001 0002 3138 =©—-3276* 3277 3278 +3280 3281 3287 3288 3288* 3306* 3307 3309 3310 O4|QHDPT C001 0004 0749 
3313 3315 3316 QHDPT! C001 0020 0763 
PSR C 001 0004 3052 QHOPT2 ~C O01 0022 0764 
105|PUSHBEGL C 001 0006 1236 1238 O5|QHOPT3 C001 0024 0765 
PUSHCORE C 001 0007 1238 1240 3278 3310 QHOPT4 C001 0026 0766 
PUSHIND C 001 0004 1231 1235 3277 3280 3307 3309 QHDPT5 ~C 001 0028 0767 
Q6|PUSHLEN C001 0008 1240 3319 O6|/QHDPTS C001 002A 0768 
PUSHNONS C 001 0080 1239 3278 3310 QHOPT? C001 O02C 0769 
PUSHOCH C001 0001 1229 1230 3281 3287 3788 3315 QHOPT8 =~ 001 002E 0770 
O7|PUSHOSS C001 0003 1230 1231 3313 O7/QHDQUAIL C 001 0092 0817 
PUSHPART C 001 0080 1232 3277 3307 QHDRFILK C001 0052 0789 
PUSHTSSN C 001 0005 1235 1236 QHORPT C001 0094 0818 
OS]QCPWAIT C 001 0008 1918 OB|QHDSCT C 001 0096 0819 
QFRMEXN C001 0004 1915 QHDSEC C001 0078 0808 i 
ta QHOCILK C001 004E 0787 QHDSILK C001 0066 0799 
IOS|QHDCNLG C001 004C 0786 OS|QHDSNA C001 OO7E 0811 
QHOCOY =C 001 0008 0751 QHOSPLK C001 OAC 0830 
QHOCON =~ 001 005C 0794 QHOSPTCB C 001 0041 0780 
JO;QHOCOM2 C001 O05E 0795 1O}QHDSGB «C001 0056 0791 
QHOCOB C001 0060 0796 QHDSQE C001 004A 0785 
QHDCON4 C001 0062 0797 QHDSGS ~~ 001 0082 0813 
LIJQHDCPOCL C 001 0054 0790 T1JQHOSQSPT C 001 0070 0804 
QHDCSB C00) 0072 0805 QHDSUBCN C 001 009C 0822 
QHOCSCQ C00) 0058 0792 QHDSUBRA C 001 009E 0823 
T2|QHDCXNT C001 9018 0759 12/QHDTCBQ C001 0046 0783 3530 
QHDDILK C001 0064 0798 QHOTINEA C 001 003E 0779 
QHDEIB C001 O0A0 0824 QHOTIMER C 001 003C 0778 
J3/QHDERB C001 0074 0806 1B/QHDTRM §=C 001 0050 0788 
QHDEXAN C001 00A6 0827 QHDTTC C001 0048 0784 3425 3439 
QHDEXTRA C001 009A 0821 QHOTUB” C001 005A 0793 
14)QHDFD = =C 001 0000 0747 14)QHOTWA «C001 «001A 0760 
QHDFDA C001 0030 0771 QHOTWAF1 C001 9098 0820 
QHDFDB ~~ C 001 0032 0772 QHDVILK C O01 0068 0800 
J5)QHDFDC §=C 001 0034 0773 15]QHDHSC = 001 0006 0750 
QHDFDD C001 0036 0774 QHOWSGS C001 0080 0812 
QHDGLF C001 O0A4 0826 QHOXIENT C001 0042 0781 
16|QHDGW = C 001 0076 0807 16)QHDX21 C001 OOAE 0831 
QHDHT =—C 001 0001 (0731 QHDSILK C001 0068 0801 
QHDHIST C 001 O06E 0803 QAAIT “C001 0008 1917 1925 1936 
17{QHDINGEX C 001 0090 0816 T7JQNCHPRI C001 0018 1926 
QHDIOXNT C 001 OO0A 0752 QNQ € 001 0010 1920 1925 1926 
QHDIO ~=—C 001 +0002 0748 qa C001 «00191925 
18{QHDIOA C001 0038 0775 TO]QNREF =—-C-001-:0002 


QREFRESH C 001 0001 


QscT C 001 oo1r 


19/QHDLOC §=C 001 007A 0309 ISQSPEC = C 001 0009 1927 
QHOMTI C001 OOAS 0828 QSYSREQ C 001 0004 1914 
QHDNSACE C 001 OOA2 0825 QTOEM C001 0008 1916 

0 0 


31 
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#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


81 12/08/81 21:31 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE __—_ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE __ADDR_STYT SOURCE 
00860000 3153 * TDMAC NAME -*SVAU, ATTR-COO800, JUMP-Y, RLD-D 0859 5€ 01 18 1B 3202 
3154 LEVEL 08 RELEASE LEVEL 0850 5C 00 1B 1A 3203 
3155 ATTR CO0800 LIBRARY ATTRIBUTES 0861 SE 00 1A 1A 3204 
00890000 3156 RLD oD RLD OPTION 0865 5E 00 1A 1A 3205 
00900000 3157 MRT 00 NRT OPTION 0869 5E 00 1A 1A 3206 
0800 F2 87 06 3158 J 8 JUFP AROUND PAIN STORE CONSTANTS 0860 5F 00 18 1A 3207 

00920000 0871 70 FF 27 3208 DTO000 
0803 7BEZESCIE4 0807 3159 OC CLS"SSVAU" MOLL. FNAME 0874 6E 00:27 15 3209 
0808 3160 XLT 08" RELEASE LEVEL 0878 5E 00 18 27 3210 
O87C TC 00 26 3211 


2147 ®2% CMM OF CYDAAK TO Re AOTC aC wh of. Acer 


09/11/81 12/08/81 21:31 PAGE 107 VO9/11/81 12/08/81 21:31 
01 


CROSS-REFERENCE 


Q2]SYmBOL =T LEN VALUE DEFN — REFERENCES O2/SYMBOL oT LEN WALUE DEFN 
QHONULE” C001 0000 0730 QUE C001 0000 0737 
03/QHDPDLH C 001 OOAA 0829 (3) QUE C001 cool 3139) 3 
QHOPILK C001 006C 0802 QE2 £00) 0007 3140) 3 
QHDPRIQ C001 0044 0782 3538 : QAIT “C001 OOO! 1910 1 
O4QHOPT C001 0004 0749 O4OxLOFF C001 O004 1913 
QHDPT1 C001 0020 0763 Qa 001 O00 1971 
QHDPT2 C001 0022 0764 au C O01 0040 1922 
Q5)QHDPT3 C001 0024 0765 05/20 C001 0000-1923 3 
QHDPT4 C001 0026 0766 : ee 3 
ae QHOPT5 C001 0028 0767 {ai C001 0001 To09 
O6|QHOPT6 C001 002A 0768 OGIRAFA = C O01 OOIA 2962 
QHOPT? C001 002C 0769 RALLOC C001 OOO 2948 
QHOPT8 C001 002E 0770 RBSARR C001 0007 1247 
O7|QHDQUAIL C 001 0092 0817 OV|RBSCHAIN C001 0001 1244 1; 
QHDRFILK C 001 0052 0789 RBSIAR C001 0009 1288 1: 
QHORPT C 001 0094 0818 ROSINLT C001 GOOF 175217 
OS/QHDSCT C001 0096 0819 OG/RBSINL2 COOL OOOF 1753 12 
QHDSEC C001 0078 0808 RESIN.3 C O01 O0IO 1754 9 12 
QHOSILK C001 0066 0799 RESINLS COOL O01] 175 2 
O9]QHDSNA C001 OO7E 0811 OO/RBSLEN C001 0012 12% 31 
QHDSPLK C001 OOAC 0830 32 
QHOSPTCB C 001 0041 0780 3 
JO}QHDSQB «C001 0056 0791 LOJRBSPYR =6C 001 OOOA 1249) 12 
QHOSQE C001 004A 0785 RBSPSR C001 0008 12780 12 
QHDSQS C001 0082 0813 | (PBSRQ C00] 000) 1251 12 
11/QHDSQSPT C 001 0070 0804 LUPBSTLEN C901 0030 1259 (35 
QHDSUBCN C 001 009C 0822 RESWORK C O01 O02F 1758 12 
QHDSUBRA C 001 009E 0823 PESUORKS C O01 0012 1257 
12}QHDTCBQ C 001 0046 0783 3530 2)RBSKRI = 001 0003 1265 © 12 
QHDTINEA C 001 003E 0779 RBSMR2 C001 C005 1786 12 
QHDTIMER C 001 003C 9778 PBI C001 0001 3121 
13}QHDTRN C001 0050 0788 13) R82 C001 02 N22 
QHDTTC C00) 0043 0784 3425 3439 3560 R 
QHOTUB C001 005A 0793 % 
J4]QHDTWA =C 001 001A 0760 14 37 
QHOTWAF1 C 001 0098 0320 RCMKPT € 001 0030 29B4 
QHDVILK C 001 0068 0300 RCLOSE C001 0003 2939 
15]QHDWSC CC 001 0006 0750 15)RCPD = C001 OO2L 2980 
QHDWSQS C 001 0080 0812 RCPERR C001 O01D 2965 
QHDXIENT C001 0047 0781 RCPRT =«C OOl 0015 2957 
16;QHDX21 C001 OOAE 0831 1OIRCPTC = 001 OO1F 2967 
QHDSILK C001 006A 0801 RDALOC C001 900D 2949 
QuAIT C001 0008 1917 1925 1926 1927 RDPCALL C001 0013 2955 
17{QNCHPRI C001 0018 1926 17/REOJ = C O01 G04 2940 
ang C001 0010 1920 1925 1926 REXTND C001 O02E 2982 
QNQNYC «001 0019-1925 REXTNP «=C O01 0038 2995 
1Q}QNREF = C :901 0002 1912 TOREXTRA C001 0037 2991 
QREFRESH C 001 0001 1911 | |RFIND C001 0001 2937 
QscT «O01 COI «1919 REINDLTB C 001 0019 2961 
19{QSPEC C001 0009 1927 TORGLFAC C001 O03A 2994 
QSYSREQ C001 0004 1914 RELFR C001 0059 2993 
QTOEN §=C 001 0008 1916 PBL C 001 0001 3103 = 377 
0 C 
H32 
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Ol 0 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT FRR ior ORBEECT cree aoe > 


VO9/11/81 12/08/81 21:31 


T LEN VALUE 


C 001 
C 001 
C 001 
C 001 
C 001 


PAGE 108 WOO/T1/81 12/08/81 21:31 | 


CROSS -REF ERENCE 


REFERENCES 


3363" 
3359* 3359 


ee oe 


1925 1922 


"3590 3943 


3318 3364 3389 3403 Jaze 3438 3405 347] 3495 3502 
35373544 35593578 3585 30873746 3763 3780 _3875 


1257 
3172 
3218* 3219 


1258 
3174" 3173 3189 3195" 3196 3198 3200 3201 3709 3715 
3259 3350 (3619 3699 3712 3721 3723 3723" 3724 3726 


3759" 


3758" 


3776" 3778" 


3570" 3756” 
3170" 3171 
32153218 


3757 3758 «3759 
3172 3174 «3178 «3189 3195 3196 3198 3200 3202 
3219 3258* 3259 3349" 3350 3569" 3570 3571 3572 


3618" 3619 
76 3778 


3695* 3699 3712 3721) 3723) 3723-3728 3926 3729 


VO9/11/81 12/08/81 21:31 


01471400 
01471500 


#SVAU TCR CHANGE ORG OR DETACH TRANSIENT PAGE 


3103 


3777" F778 


H33 


ERR LOC OBJECT CODE ADDR STMT SQURCE STATEMENT 


72 VO9/11/81 12/08/81 


O8CB 7C 00 27 
OSCE B3 02 77 


SET ADD FACTOR OF 0 
SNA USER ? aa093 


TCBAINL 4¢, TCB1),0 
TOBSTAT6(, TCB2), TCBSNARQ 


0801 B9 30 77 
08D4 F2 90 03 


AND NOT ATTACHED NS? aan93 
NO, IT IS NOT 


TCRSTAT6<, TCB2), TCBATNS 
01000031 


0807 7C 05 27 
OSDA 9D 01 0D OD 
OSDE F2 01 30 


SET SNA SIZE 


TCBAINL 4, TCB1), SAS IZ 
TCBCHAING2, TCB2), TCBCHAINC, TCB1) THIS ACTIVE TCB ? 


DT000036 NO, 17 15 NOT 3093 


a1 


Ol 
O2)SYMBGL 7 LEN VALUE DEFN RE 
RiB? COOL OOO] S106 
OWRICDA = O01 O0R2 7986 
RICO C081 0033 7001 
RICK C OOt OOIa 2988 
Carron =—«C 001-003D 2997 
RINFO CC QO1 OOF 2951 
RIOERR ~—C DOL 020 P98) 
OS|RLIBRY C OO1 ODOR 2946 
| |RLOPEN C001 0016 2958 
ROFFLINE C OOl 0027 2975 
OO|ROPEN COL 0002 2938 
RPGR C001 ODI? 28 
[RPRALGN C O01 OO1@ 2956 
O7/RPRA2 = O01 CORB 29T9 
Rego «C001 9041 3001 
BRSVDOO COO GOO D936 
OG)RSALOC =C O01 GODE 7950 
RSETK COOL 0020 2968 
RSET C001 G008 Pea 
QORSIN C OOl O0O7 2943 
RSLIST COOL 0006 2947 
ROG OC OL BOGS DO] 
TOPRSMEC = C OO] O03C 2995 
RSMGG «C001 0009 2545 
SNAP C O01 OO1l 2953 
LIRSORT C001 0036 2990 
RSPALC C002 OIC 2056 
RSPMIC «C001 0031 2985 
ZRSPODL C001 0018 2963 
RSPOG C001 0043 3003 300 
Roum COO] 02? 2970 
L3RSvT™K «= «C001 0035-2989 38k 
RSUSDN C001 0018 2960 
RIALLOC A 008 OE 3a} 387 
14)RTDEALL A 004 ODA? 308 375 
RIT «C01 ODE 2966 
RUPDAT C001 GO2F 2983 
LSPRVTOCFD «C001 O00R 2947 
RVTORD C O01 0010 2952 
RAF =C O01 O028 2972 
1O)RUBCP =F OO] «GAZA 2978 
PUDDA C001 0026 2974 
OOS COOL 0021 2949 
17PRODG «C001 0023 2971 
RUDON C001 0028 2976 
ROC 001 «0038 7997 
1SRODO «C001 0075-2973 
Pug. Ol 0029 2977 
ROOT «C001 O03 2999 
1O/RADU §«=—«C OD] ONE 2998 
RUM «C001 0042 3007 
(RLEGE C001 0080 3000 


0959 9E 00 2D 27 
0950 9 00 2D 24 


0961 F2 04 04 


0964 6C 00 24 2D 


0968 9F 00 2D 27 
O96C BD 00 OC 
O96F 85 02 0D 


Jr aS ner pT On maR Ty eroerg 
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CROSS-REF ERENCE — MAR, cyte Rel Mi Foci es 
O2}SYMBOL oT LEN VALUE DEFN REFERENCES | C21SYMBOL = WALUE DERN REFTS 
RIB2 C001 0002 3104 Se ee ee = [mson COOL OOLT 2959 
QBIRICDA = C 001 0032 2985 OBRXTEND «C001 0043 3006 = 400K 
RICDB C001 0033 2987 SCAMDMON C901 O0B3 1724 1775 
RI@E C001 0034 2983 a SCAPICON COO OURS 1725 a 
O4jRICDD C001 0030 2997 04) SCAMUDBO C001 ODAD 1721 
RINFO C001 O00F 2951 SCRMUDB! C GO1 GOR 1727 ee 
RIOERR C001 0020 2981 = aa SCARE? COOL OORT 1773 
O5/RLIBRY C001 O00A 2946 | OS/SCAMMIB3 C O01 O0BS 1731 
RLOPEN C001 0016 2958 | {SORW2KNS C O01 OOUL 1795 1299. 
ROFFLINE C 001 0027 2975 : | (SCACKRST C O01 GOBd 1787 
O6|ROPEN C001 0002 2938 61 SCACONFG C001 O02 1474 © 1426 
RPGHLT C001 0012 2954 SCACSATB C 001 GOB 1874 1576 
RPRALEGN C001 0014 2956 ~ 7 ™ } |SCACSIZE C O01 O01! 1338 13a) 
O7|RPRA2 C001 0028 2979 | O7/SCACSIGx C 001 0006 1330 
RRDOM C001 0041 3001 SCADANRK COOL GOTA 1565 1567 
RRSVDOO C001 0000 2936 SCADOTUB C001 ONS? Taba Ta56 
OSIRSALOC C001 O00E 2950 OO) SOADABCT C 001 GOT? 1543 1545 
RSETX C001 0020 2968 ‘SOADBSCT € O01 0053 1955 1458 
RSGET C001 +0008 2944 = {SCADCFES C001 OOMB 1710 1770 
QORSIN C001 0007 2943 OO SCADCE: € O01 OOL2 134) 1356 
RSLIST C001 0006 2942 SCARCE? C O01 OO13 1956 1369 
RSLOG «CC «O01 «0005 2941 SCAICFGS COOL Jie 1369 (1379 
TORIC =—C 001 003C 2996 TO)SCADCF G6 C901 0OC4 «1779 1791 
RSME «C001 «0009 7945 SCADCFG? C ODL O09F 1659 1679 
RSNAP «C001 «0011 2953 SOADCFGS C001 OORT 1686 1096 
LURSORT ££ 001 0036 2990 LISCADCFGS C 001 DORR 1695 1708 
RSPALC C001 O01C 2968 SCADCESZ € 001 OO0R 1793 1295 
RSPRIC C001 0031 2985 {SCAQCNTR C O01 0018 1392 1408 
PIRSPOGL C001 001B 2963 L2|SCADCOM C001 0093 1644 3750 
RSPO"G C001 0043 3003 3004 SORDCPKA C00. 004 1449 
RSWWR = «C« O01 0022 2970 SCADCPS] COOL NOVO 1520 1530 
TBIRSVTX = C001 0035 2989 «= 3849 [3 Scacrs? C 001 0071 1530 © 1540 
ROSIN C001 0018 2960 SCADCPS3 COOL 00C3 1769) 1779 
RTALLOC A004 OF6E 3883 3821" 3866 3872" 3881" ; |SCADCPS8 C O01 0000 1737 3787 
J4)RTDEALL A004 ODA2 3808 3786" 14)SCANOPI C001 0082 1572 1578 
RITC C001 ODE 2966 SCADCPYR C O01 OOFF 18277 1876 
RUPDAT C001 O02F 2983 SCADCSP1 COOL OOBC 1981 «1591 
LSIRVTOCFD C 001 0008 2947 1S) SCABCSP2 C 001 00D 1591 = 1601 
RVTORD C001 0010 2952 SCADCSP3 C O01 OOSE 1601 1611 
RUDAF = C001 0024 +2972 SCAUCTUT COOL 0060 jase [agg 
1E/RDCP «C001 «002A 2978 ]G)SCADDATE C 001 O0SF 1492 i494 
RUDDA C001 0026 2974 SCADDAY C001 O0SF 149] 1492 
RUDE «C001 «00212969 SCADINICC O01 0001 1273 
T7]REDDG §=«C:001-0023-2971 T7|SCADFIST C 001 0051 1453 1a5a 
REDDH C001 0028 2976 SCADHFUK C001 O0MS 1681 1484 
RUDDL C001 0038 2997 SCADICSA C001 OOC6 1791 1793 
1Q)RMD00 =F 001-0025 2973 LGLSCADKCFG C001 0080 1308 
RUDDQ C001 0029 2977 SCADMKKA C001 OOD8 1815 1817 
RUDDT C001 003F 2999 SCAMLAC C001 O0BB 1810 1573 
IOIRUDDU = C001 -O03E 2998 TO)SCADLEF1 C001 oper 145] 7453 
RUOHH = C001 0042 3002 {SCADLIN® C001 BOO] 1613 1480 
RLEGE C001 0080 3000 SCADMATR C001 OOFD 1820 


PRE = 73 WOO/11/81 12/08/81 21031 


711/81 12/08/81 21:31 #SWAU TCR CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STNT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


0959 9€ 00 2D 27 TCBRGS12(1, 1CB2), TCBRINL4(,7CB1) ADD iN FACTOR 193 3340 
0950 90 00 2D 24 3298 CLC TCBRGSIZ(1, TCBL), TCBAIML1(,TCB1) GREATER THAN MAK. ? 01740000 3341 
0961 F2 04 04 325 JH -DT000080 WO, NOT GREATER 01750000 3342 
0 3343 

3296 TOBAINL1C1, TCB1), TCBRGSI2¢, TCB2) MOVE IN NEL MAY IMUr O90C 78 80 77 3348 

0968 9F 00 20 27 3297 DTO0003O SLC TOBRESI2(1, 1CB2), TCBAINL 4¢, TCB1) DECR. SIZE BIOS 3 ODF 7B BO 7 SE 


rater Bo An re 2400 AT ewer oe ot  Temrssa yal <7 TPR AM Be ap Reece SF a a yoy oe ae 


Lo 12/OB8t 21:37 ) MOO/1T/81 1208/81 2h | 


CROSS-PEFERENCE 


REFERENCES C2] Sermo, 7 LEW WALUE BEEN 


SCAMKEG C G0) 0079 1555 
OD SCABRETR C O01 0078 1567 


300° 


eee . SCADRGOT CGO 0077 1540 
— OM SCADRIOW C 001 OD7E 1560 


SCADRE JC 002 OD92 1647 
OV] SCADREL® C 001 0016 1389 
{SCABREDJ C O01 O005 1680 


SCAOERP C001 00ND 140g 


SOADRFTR C O01 GOODE 1793 


OO) SOADRSC? C O01 OO7F 1570 1571 
SOADRSEC C 001 GOA? 1679 if! 
SCADESPC C O01 OOBF 1775 vy 

OV SCADSBFP C GO1 OMB leap = jag 
SCADSCIN C O01 GO7D 1508 1509 
SCADSOLP C O01 O08 1657 1699 

JOUSCADSOLS C 801 0090 1656 165? 
SCAUSEGH C001 0076 1541 154} 
SCADSEC? C G1 0080 1571 1972 

TISCADSEMa C O0l 0057 1460 1461 
SCADSEUG COOL O59 146] 1462 laps 
SCADSLOG C O01 O0SA 1464 = lang 
/SORDSLOT ¢ O01 OOBA 1577 1579 
SCADSNAT C 001 0090 1611 1617 
SCAOSNAL C O01 OORB 165¢ = 1655 

13)SCADSNA? C001 OD9C 1695 16% 
SCADSPia@ C 001 O00P 1701 Lays 
SCADSS C001 0099 650 1657 

L4SCADSSCS C WOl OORB 44711427 
SOAOSSIC C O01 OOZ0 1427 ae 
SORISS.IG COOL Osa 1435 147 

LS)SORDSSNS (O61 0079 1470 147) 
SCADSSPE C001 9009 1817 as 
SOADSSPR COO] O08? 1437) jaas 

TO; SCADSS¥C C001 B005 1278 1280 
SCACTRA C 00) GOO? leas 1648 
SOMITKS] C O01 GOAA 1708 1710 3438 
SOADTLOK C 001 0007 1008 
SCADTRSZ C O01 000A 1465? 1658 
SCRDUCE C O01 G0Dg 1795 17H 78T 

TR SCADUDT] C O01 9005 1796 
SOMMIDT? C O01 00D3 1797 
SCABUDT) COO] OOD1 1798 

19) SOADUCT4 C001 wOrr 1799 


435 


12/08/81 21: 


eed 
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ERP LOC OBECT CODE ADDR STMT SOURCE STATEMENT ERR OC OBJECT CODE ANP STI SOUR 
3340 * a 3353* 
334] * AT THIS POINT TCB@INL 1="AX SUAPPABLE ACTIVE PECION EXC UDINE ™ 7aSH i358 °F 
334) * AND TCBAINLD=SLBP AREA SIZE IN TRACKS Tes 
3343 * OH p97 7D 96 9c 23% D790 
O900 78 30 77 tas TRAN  TORSTATAY TORI) TrRATAS et Ta wk-Cumopem c- WHat? O77 2Us7 


(81 


/81 


12/08/81 21:31 


12/08/81 21:31 


PAGE 


CROSS~REFERENCE 


Bel 


¥09/11/81 


12/08/81 21:31 


Q2|SymBOL 1 LEN VALUE DEFN REFERENCES 
SCADMCFG C 001 0079 1555 1565 et 
Q3/SCADMCTR C 001 O07B 1567 1568 
SCADMERP C001 004D 1448 1449 1451 ee 
SCADMGOI C 001 0073 1540 1541 
O4/SCADMID# C 001 OO7E 1569 1570 
SCADMNTH C 001 O05E 1490 1491 2 
SCADMOD# C001 0017 1390 1392 
05] SCADMQNT C 001 0088 1579 1581 
SCADMTUB C001 006D 1515 1516 oeeae 
SCADPIND C 001 0010 1334 1338 
Q6|SCADPSVC C 001 0000 1276 1277 
SCADPTUB C 001 O06F 1516 1520 BZ, ons 
SCADREJa C 001 0092 1642 1644 
O7|SCADREL# C 001 0016 1389 1390 
SCADREOJ C001 0095 1640 1641 1642 1646 ee 
SCADRFTR C 001 OOCE 1793 1795 
O8|SCADRSC2 C 001 OO7F 1570 1571 
SCADRSEC C 001 OOA2 1679 1681 
SCADRSPC C 001 OOBF 1735 1737 
O9|SCADSBFP C 001 0748 1446 1448 
SCADSCIM C 001 0070 1563 1569 
SCADSDLP C 001 OO9E 1657 1659 
1O}SCADSDLS C 001 009D 1656 1657 
SCADSECA C001 0076 1541 1543 7 
SCADSEC2 C 001 0080 1571 1572 
11|SCADSEUA C 001 0057 1460 ©1461 
SCADSEUQ C001 0059 1461 1462 1464 - 
SCADSLOG C 001 005A 1464 1468 
12|SCADSLOT C 001 008A 1577 1579 
SCADSNAT C 001 0090 1611 1613 = 
SCADSNAl C 001 009B 1654 1655 
13]SCADSNA7 C 001 009C 1655 1656 
SCADSPIa C 001 000A 1291 1293 : 
SCADSQS C001 0099 .650 1652 
14]SCADSSCS C 001 002B 1421 1422 
SCADSSIO C 001 0020 1422 1424 
SCADSSJQ C 001 0044 1435 1437 
I5ISCADSSMS C 001 0029 1420 1421 
SCADSSPF C001 0009 1817 
SCADSSPR C 001 0047 1437 1445 E —_ 
16]SCADSSVC C 001 0005 1278 1280 
SCADTBUF C 001 0097 1646 1643 
SCADTKS2 C 001 OOAA 1708 1710 3338 3607 3792 3834 
17]SCADTLOK C 001 0002 1608 
SCADTRSZ C 001 009A 1652 1654 
SCADUCFG C 001 O0D6 1795 1796 1797 1798 1799 1815 
18] SCADUDT1 C 001 OOD5S 1796 
SCADUDT2 C 001 00D3 1797 
SCADUDT3 C 001 O0D1 1798 
19} SCADUDT4 C 001 OOCF 1799 
SCADVICE C 001 0055 1458 1460 
SCADWOBR C 001 O0B7 1733 = 1735 7 


ERR LOC OBJECT CODE 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


H36 
PAGE 


ADDR STMT SOURCE STATEMENT 


75 WO9/11/81 


12/08/81 21:31 


OOF? 7A AN St 


3353 * 02210000 
3354 * FREE UP ALL ASSIGN FREE QUEED AREAS FOR TASK BEING DETACHED 7 02220000 
3355 * 02230000 


AWK NTNNNNOS iT TTAACCAK..1/¢ Trey a ARV OAD miiciic 9 


Sia is Soph ea oo. 


"BOL 


SCADWRKA C 001 
SCADWSQS C 001 
SCADXAID C 001 
SCADXMI1 C 001 
SCADXMI2 C_001 
SCADXSLT C 001 
SI SCADXSVC C 001 

SCADKTRA C_ 001 

SCADYEAR C 001 
| SCAFVTOC C 001 
SCAFVTON C 001 


& 


SCARFCUR C 001 


)7| SCAHFERR C 001 
SCAHF SIZ C 001 
SCAIPLWK C 001 

33] SCATPLW1 C 001 
SCAIPLW5 C 001 
SCATPLW6 C 001 

9] SCAIVTOC C 001 
SCAIVTON C 001 
SCALOGSS C 001 

1O}SCAMACDP C 001 


L1]SCAMACSP C 001 
SCAMACUL C 001 
SCANACUZ C O01 

12} SCAMACUS C 001 
SCANACLI4 C 001 
SCAMALL C001 

13] SCAMARNR C001 
SCAMATBS C 001 
SCAMAUTO C O01 

14 SCAMAXRG © 001 
SCAMBADG C_001 
SCAMBSCA C 001 

15]ScAMBSV C001 
SCANCCHK C_001 
SCARCFER C 001 

16]SCAMCGS C 001 
SCANCLOG C 001 
SCANCLOK C 001 

L7}SCAMCMDE C 001 
SCANCNAT C_001 
SCARCOUT C 001 

LGISCAMCPAF C 001 
SCANCPL C001 
SCARCRAN C 001 

19}SCAMCRT C 001 
SCAMDATE C_001 


T LEN VALUE 


CADWDBT C 007 ‘ 


CROSS-REFERENCE 


PAGE 112 09/11/81 


12/08/81 21:31 


REFERENCES 


W721 1722)-1723)«1724«173) 
1686 
1650 


1749 1759-1769 


3550 


1303 3406* 3720* 


1389 


3551 


SCAMOCKF C 001 
0 


02} SYMBOL = T LEN VALUE REFERENCES 


SCAMDEAD C 001 000! 
03} SCAMDELE C 001 


SCAMLOTX C 001 
SCAM ITR C 001 


02 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 76 VO9/11/8] 12/08/81 21:31 @SVAL TCR CHANGE DRG OR DETACH TRANS TJ 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERP LOC OBJECT CODE ADOP STMT SOU 
3400 * FREE USER MAIN STORAGE AND ASSOCIATED SWAP AREA ON DISK 02490000 OABT BD 00 14 3448 070% 
3401 * 02500000 ORBEA 2 31 5B 3849 
3402 * FREEP FREE ALL OF USER STORAGE 02510000 
03) 0A57 F4 00 13 3403 SVC SVCFREEP,QO FREE MAIN STORAGE 3450 * 
3404 *** END OF EXPANSION ** 305. 
OABA 74 08 25 3405 ST TCBAINL2(, TCBL>, ARR STORE VALUES BACK IN TCE 02520000 3452" | 
OASD 1C 00 O00E 24 3406 MVC NUASCA*SCAMAXE3(1), TCBAINL1(, TCB1) MAX ACTIVE SUAPP 02530000 3453 ° 
OA62 IC O1 ODA? 29 3407 MVC DTDCSS(2), TCBTSSN-1¢, TCBL> MOVE IN SS OF SUMP 02540000 OABD BS 01 15 3456 57K 
OAG7 1C 00 ODAS 25 3408 MVC -DIDCSTZEC1S, TCBAINL2’. TCBI) MOVE IN SWAP TRACK S (le 02550000 OACS 7b 00 22 3a, 


12/08/81 21:31 PAGE 13 -VO9/11/81 12/08/81 21:31 


01 
CROSS-REFERENCE 


02] SYMBOL = T LEN VALUE REFERENCES O2]|SYMBOL = T LEN VALUE REFERENCE 


SCANDEAD C O01 ; ; SCAMLZTR C O01 0002 
03]/SCAMDELE C 001 03] SCAML2TX C 001 0020 
SCAYDFA C 001 ; SCANL3TR C 001 0004 


04) SCAMDPOK C 001 


L3OL 326: 


16] SCAM IN4 C 001 
SCAMLSMF C 001 
SCANLOTR C 001 

19] SCAMLOTX C 001 
SCAMITR C O61 
SCAMLITX C 001 


20 


1/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT 7? VO9/11/81 12/08/81 21:31 #5VAU TCR CHANGE ORG OR DETACH TRAN! 


ERP LOC OBJECT CODE ADDR STAT St 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


OAB7 BD 00 14 3449 DTOOB107 CLI TCBJCBa~1¢, TCB2),0 ANY JCB ASSOC. ? 98023 B03 F2 81 OC 3498 
OABA F2 81 5B 3449 JE DT000115 YES, BYPASS JCB FREE aai45 
0806 75 0} 31 3A99 
3450 * 3500 * 
3451 * ARE THERE ANY FSB‘S OR AN F1 ASSOCIATED WITH THE TASK? IF SO, 3501 * 
3452 * FREE THEN. OTHER WISE, CHECK NEXT FOR THE JCB EXTENSION. B09 F4 00 07 3%2 


OBOD 0010 OBOD 3503 


Meee pce) ae AO abe A es 


Rann “oe 4 ae Rig te > datdeud bogie ian’ oi. ‘ceinity shee the tate eee . eee Wee et ee oy Fie. Fe deg ane te 


PAGE 114 VO9/11/81 12/08/81 21:31 


© 3) WO9/11/81 12/08/81 21:31 


01 
CROSS-REFERENCE eae 
O2|SYMBOL T LEN VALUE DEFN — REFERENCES 02] SYMBOL = T LEN VALUE 
SCAML2TR C 001 0002 1399 : SCANS48K C 001 
03) SCAML2TX C 001 1395 


SCAML3TR C 001 


O5!SCAMMLCA C 001 0080 1602 
SCAYRJE C001 0040 1372 
SCAMSBL C 001 0008 1535 

06} SCAMODDD C 001 0001 1777 
SCAMOTTO C 001 0001 1377 


SCAYPIE C001 0002 1386 
07] SCAMPOVK C 001 0040 1593 
SCAMPREP C001 0001 1476 
SCAMPRT C001 OOEO 1465 
08} SCAMPR1O C 001 0001 1813 
SCAMPR20 C001 0002 1812 
SCAMPR40 C 001 0004 1811 
OOISCAMPRSO C 001 0008 1810 
SCAMPUSF C 001 0040 1358 


SCAMRBLD C 001 0008 1473 
1O}SCAMRCFG C 001 0002 1704 
SCAMRILP C 001 0020 1772 


SCAMRSEC C 001 0080 1711 
11) SCAMRWAV C 001 0040 1699 
SCAMRICF C001 0001 1705 


SCAMRWFT C 001 0010 1701 
12] SCAMRUNV C 001 0020 1700 
SCAMRWS C 001 0008 1374 


SCAMRUSA C 001 0080 1697 
1B] SCAMRUSP C 001 0040 1688 
SCAMRWSV C001 0008 1702 
SCANS#2K C 001 O00D 1299 1301 3266 3343* 3609 3711" 
14|SCAMSACT C 001 0010 1345 
SCANSEC C001 0002 1527 
SCANSFLG C 001 0008 1384 
15] SCAMSIZE C 001 0006 1280 1288 
SCANSJE C001 0020 1523 
SCANSMF C001 0020 1382 
16|]SCAMS “CC 001 120 1784 
SCAMSHFM C001 0040 1381 
SCAMSNA C001 0010 1373 
17/SCAMSPB C001 0001 1354 
SCAMSPGP C 001 0020 1344 
SCANSPOL C 001 0010 1360 
18] SCAMSPRK C 001 004. 175] 
SCAMSRJE C 001 0020 1371 
SCANSST C001 0008 1525 
19} SCAMSUBS C 001 0004 1787 19] SCASPARK € 601 
SCAMSWAP C001 0004 1703 SCASSTWA C 001 
SCANS32K C 001 0010 1286 SCASTOPS C 001 


20) 


J03 


77 VO9/11/81 12/08/81 21:31 #SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE 78 VO9/11/81 12/08/81 21:31 #SVAU TCR CHANGE ORG 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


aaoz3 02710000 0B03 F2 81 OC 3498 JE pT000110 (fF NOT, JUST FREE JCB @al45 02726400 B49 38 40 0070 
REE aal45 02720000 084) 39 80 0075 
0B06 75 01 31 3499 L SCBDEXTAC, JCB1D, JCB? ELSE, XRI-2JCB EXTENSTON@A145 62726600 OB51 F2 96 0D 
aaii45 02720200 | 03 3500 * NOW FREE THE JCB EXTENSION aa 45 02726800 | 03 
50, aal45 02720400 3501 * FREE LEN-JCBDELNG FREE THE JCB EXTENSIONS@]45 02727000 


aa145 02720600 0809 F400 07 38C2 SVC SVCFREE,QO = ISSUE FREE REQUEST 


21:31 


VO9/11/81 


12/08/81 
01 


02] SYMBOL 


SCAMS48K C 001 
03} SCANS64K C 001 
SCANS9GK C 001 
SCANTACT C 001 
04] SCAMTELL C 001 
SCANTOLD C 001 
SCAMUASF C 001 
05] SCAMVHLD C 001 
SCAMWOMR C 001 
SCAMMOMK C001 
06] SCAMWSCB C 001 
SCAMUSE C 001 


SCAMTC C001 
07] SCAMXTRA C 001 
SCAMK21 C 001 
SCAMK21S C 001 
08} SCANK211 C 001 
SCANK212 C 001 
SCAYK213 C 001 
09] SCAMK214 C 001 
SCAYYYD C 001 


T LEN VALUE 


DEFN 


CROSS-REFERENCE 


PAGE 115 VO9/11/81 12/08/81 21:31 


REFERENCES. 


1285 
1284 
1283 
1589 
1538 
1537 
1788 
1738 
1362 
1361 
1603 
1524 
1484 
1546 
1825 


1776 
1635 
1636 


1637 
1638 
1486 


SCAN0128 C 001 
10} SCAM0256 C 001 
SCAMO512 C 001 


1508 
1507 
1506 


SCAM065N C 001 
11)SCAMFM C 001 
SCAMLOMG C 001 


1329 
1504 
1321 


“"" 4024 C 001 
12] SCAN1255 C 001 
SCANIL28K C 001 


1505 
1582 
1282 


SCAMIL3NG C 001 
13) SCAML30N C 001 
SCAMI95N C001 


1320 
1330 
1331 


SCAMZFN C 001 
4 SCAN2NFM C 001 
SCAN256K C 001 
SCAN260N C 001 
15} SCAM27NG C 001 
SCAN62PC C 001 


1503 
1502 
1281 


1332 
1319 
1327 


SCANGSNG C 001 
16|SCAQVER C 001 
SCARDFNT C 001 


1328 
1471 
1498 


1510 


SCARDVOL C 001 
17} SCASDISK C 001 
SCASHIST C 001 


1496 
1303 
1426 


1498 
1334 
1427 


SCASHMSG C 001 
18} SCASI0SS C 001 
SCASMSG1 C 001 


1431 
1417 
1430 


1432 
1418 
1431 


SCASNSG2 C 001 
19] SCASPARK C 001 
SCASSTWA C 001 


1433 
1557 
1408 


1435 


1409 


SCASTOPS C 001 
20 


78 VO9/11/81 12/08/81 21:31 


1770 


ERR LOC OBJECT CODE 


#SVAU  TCB CHANGE ORG OR DETACH TRANSIENT 


ADDR STMT SOURCE STATEMENT 


J04 


PAGE 79 VO9/11/81 12/08/81 21:3) 


ai 


02} SYMBOL = T LEN VALUE 
SCASWNSE C 001 
O3/SCASYS C 001 
SCASYS1 C 001 
SCASYS2 C 001 
04] SCATWASZ C 001 
SCAUSERA C 001 
SCAZKBAD C 001 
05] SCA2KOK C 001 
SCA2SPIN C 001 
SCA3SPIN C 001 
06] SCA4SPIN C 001 
SEVEN CC 001 
SIX C 001 
C 001 
C 001 
SNASIZ C O01 
OS} SVCASGN C 001 
SVCASSGN C 001 
Svccorm C001 
QS|SVCCXNT C 001 
SVCDSPCH C 001 
SvcDUP C001 
1O|SVCEXIT C 001 
SVCFD CC 001 
SVCFREE C 001 
11]SVCFREEP C 001 
SVCGETP C 001 
SVCGPOST C 001 
12] SVCGWAIT C 001 
SVCIOXNT C 001 
SVCISEC C 001 
13/SvcIo = €-001 
SVCKBTR C 001 
SVCLDATR C O01 
14)SVCLOAD C 001 
SVCLOG C 001 
SVCMOVET C 001 
15]}SVCOP C001 
SVCPMR  C 001 
SvCPOST C 007 
16] SVCPOSTA C 001 
SVCPOSTI C 001 
SVCPPSVC C 001 
17] SVCPQSVC C 001 
SVCPREP C 001 
SVCPRIQ C 001 
18]/svcPT C001 
svcgs _C 001 
SVCOSCAN C 001 
19] SVCQUEUE C 001 
SVCQUAIT C 001 
SVCRDEQ C 001 


#SVAU TCB CHANGE ORG OR DE 


ERR LOC OBJECT CODE AD 


aa 45 02726400 0849 38 40 0070 3550 TBN NUASCA*SCADCPS1, SCAMALL AND NOT STOP SYSTEN 2 
0B4D 39 80 0070 3551 TBF NUaSCA*SCADCPS1, SCANCPL AND 1SG NOT ALREADY SENT? 
aaia5 02726600 0851 F2 96 OD 3552 JC 1000130, x96" YES TO ONE OF ABOVE 
a1 45 02726800 
a145 02727000 3553 * 03060000 
3554 * POST THE COMMAND PROCESSOR FOR STOP SYSTEM REQUESTED BUT STOP 03070000 
04 3555 * MESSAGE HAS NOT BEEN SENT 03080000 


OB3A 7C 00 27 


VO9/11/81 12/08/81 21:31 


» YO9/11/81 12/08/81 21:31 


01 
CROSS-REFERENCE 
02]SYMBOL = T LEN VALUE REFERENCES O2)SYMBOL =T LEN VALUE DEFN { 
SCASWNSG C 001 1433 SVCRDYCK C 001 0025 1879 
O3}SCASYS C O01 0000 1271 1273 1276 1278 O3/SVCRENQ C001 0021 1874 | 
SCASYS] C001 0053 1468 1478 SVCRPT C 001 0028 1882 
SCASYS2 C001 005C 1478 1489 SVCSCB C001 OO0F 1856 
SCATWASZ C 001 OO1C 1409 1411 O4/SVCSNSSW C 001 0009 1850 
SCAUSERA C 001 0049 1445 1446 SvCSQ C001 0029 1883 
SCA2KBAD C 001 SVCTEST C001 0023 1877 
OS|SVCTIO C001 0015 1862 
SCA2SPIN C 001 SVCTIH C001 OOIF 1872 
SCA3SPIN C 001 0020 1306 SVCTIN C001 0014 1861 
06|SCA4SPIN C 001 0010 1307 OS|SVCTIR C001 0016 1863 
SEVEN C001 0007 3070 SVCTKWT C001 0017 1864 
SIX C 001 0006 3069 SVCTOD C001 OO2E 1888 
07/5121 C 001 0001 3123 O7|SVCTPOST C 001 001D 1870 
S122 € 001 0002 3174 SVCTWA C001 005! 1902 
SNASIZ C001 3255 SVCTWAIT C 001 OG!E 1871 
08) SVCUNSTK C 001 0005 1846 
3855 SVCWAIT C 001 0002 1843 
SVCWSC C001 0043 1896 
3389 OO]SVCXAF C001 0020 1887 
SVCDSPCH C 001 0027 1881 SVCXFER C001 0004 1845 
SvcbuP C001 0022 1876 SVCXFR C 001 OOF5 1930 
SVCEXIT C001 O01] 1858 3763 3780 JO|SVCXIENT C 001 0010 1857 
SVCFD C001 0040 1893 SVCXNIOF € 001 0018 1865 
SVCFREE C001 0007 1848 3181 3318 3366 3471 3485 3502 2512 3574 3596 3875 SYN1 = € 001 0001-3127 
11|SVCFREEP C 001 0013 1860 3403 3687 1I[SYN2 C001 0002 3128 
SVCGETP C001 0012 1859 3911 SYS C001 0040 0735 3 
SVCGPOST C 001 0001 1842 3804 TABI = C001 0001 3147 
12|SVCGWAIT C 001 0000 1941 12|TAB2 = € 001-002-3242 
SVCIOXNT C 001 0045 1998 1WBAARR C001 0010 2105 2 
SVCISEC C001 0008 1849 TCBAIAR C 001 OO1F 2106 2 
13)SVCIO. = C001 :-:0041 1894 13] TCBAINL1 C 001 0024 2109 2 
SVCKBTR C001 O05C 1905 3 
SVCLDATR C 001 000C 1853 3744 TCBAINL2 C001 0025 2110 2 
14|SVCLOAD C001 0052 1903 3947 14 3 
SVCLOG C001 OO1A 1867 TCBAINL3 C 001 0026 2111 2 
SVCMOVEr C001 002A 1884 3 
15;SVCOP = C 001 00F4 1929 15) TCBAINL4 C 001 0027 2112 3 
SVCPMR C001 000D 1854 3164 3590 3 
SVCPOST C001 0003 1844 3424 3438 3559 TCBaPSR C001 0021 2107 2 
16|SVCPOSTA C 001 0019 1866 16] TCBAQHDR C 001 002F 2126 
SVCPOSTI C 001 002B 1885 TcBARQ C001 0023 2108 2 
SVCPPSVC C 001 0008 1852 TCBARSE C001 0018 2102 3 
17}SVCPQSVC C 001 004C 1899 17|TCBaXR1 C001 0019 2103 2 
SVCPREP C001 0026 1880 3 
SVCPRIQ C 001 0024 1878 TCBAXR2 C 001 OO1B 2104 2 
1S{SVCPT C001 0042 1895 18 3 
Ssvcgs C001 +0020 1873 TCBABTRM C 001 0010 2191 
SVCOSCAN C 001 O01B 1868 TCBAEOEO C 001 0002 2206 
J9|SVCQUEUE C 001 O00 1855 3465 3529 3537 3544 JO TCBAFAIL C 001 OO5F 2138 
SVCQWAIT C 001 002C 1886 TCBARQCT C 001 0076 2218 2: 
SVCRDEQ C 001 0050 2136 «(2 


ERR LOC OBJECT CODE 


SSVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ADDR STMT SOURCE STATEMENT 


JO5 


12/08/81 21:31 


TCBASGNQ C 001 
Ol 


03030000 | 02 3594 * 03310000 

2 03040000 3595 * CONTINUE SETTING UP FOR CHANGED ORG POINT AND FETCH 03320000 
03050000 3596 * 03330000 

03} 3597 * 03860000 

3598 * CALCULATE THE SIZE OF SWAP AREA ON DISK REQUIRED 03870000 


03060000 


ee aking 


1/81 


)/11/81 


12/08/81 21:31 


12/08’81 21:31 


PAGE 117 VO9/11/81 12/08/81 21:31 
CROSS-REF ERENCE 
Q2|SYMBOL oT LEN VALUE DEFN REFERENCES 
SVCRDYCK C 001 0025 1879 
O3]SVCRENQ C 001 0021 1874 1875 
SVCRPT C 001 0028 1882 
SVCSCB C001 OOOF 1856 
04] SVCSNSSW C 001 0009 1850 
SVCSQ__C 001 0029 1883 
SVCTEST C 001 0023 1877 
O5|SVCTID C001 0015 1862 
SVCTIH C001 OO1F 1872 
SVCTIN C001 0014 1861 
OS|SVCTIR C001 0016 1863 
SVCTKWT C001 0017 1864 
SVCTOD C001 O02E 1883 
O7|SVCTPOST C 001 001D 1870 
SVCTWA C001 0051 1902 
SVCTWAIT C 001 OO1E 1871 
08] SVCUNSTK C 001 0005 1846 
SVCWAIT C001 0002 1843 
SVCISC C001 0043 1896 
O09] SVCXAF C001 002D 1887 
SVCXFER C001 0004 1845 
SVCXFR C001 OOF5 1930 
1O|SVCXIENT C 001 0010 1857 
SVCXNTOF C001 0018 1865 
SYNI € 001 0001 3127 
11]SYN2 C001 0002 3128 
SYS C001 0040 0735 3532 3540 
TAB] C001 0001 3141 
12)TAB2, «C001: 0002-2142 
TCBAARR C 001 O01D 2105 2106 3189% 3190 3249% 3263 3272* 3332* 3631 3696 
TCBAIAR C901 OOIF 2106 2107 3601* 3602* 3603 3603* 3604 3604* 3605 3605* 3607* 
13] TCBAINL1 C 001 0024 2109 2110 3248* 3268 3270* 3284 3286* 3294 3296* 3406 3622 3717 3719* 
3720 
TCBAINL2 C001 0025 2110 2111 3280* 3283* 3284 3286 3330* 3337" 3374 3405* 3408 3645 3651 
14 3667 3694* 3743 
TCBAINL3 C 001 0026 2111 2112 3211* 3212% 3215 3218 3219* 3241 3243* 3265 3601 3610 3621 
3675" 37173719 3755 
15] TCBAINL4 C 001 0027 2112 — 3208* 3209% 3210 3251* 3255* 3265* 3266 3268 3270 3283 3293 3297 
3600* 3606* 3645 3657 
TCBAPSFR C001 0021 2107 2108 
16] TCBAQHDR C 001 002F 2126 
TCBARQ C001 0023 2108 2109 
TCBARSE C001 0018 2102 3148 3864 3873 
17] TCBAXR1 C001 0019 2103 2104 3196* 3207" 2210* 3213* 3220" 3331* 3332 3333* 3334 3334* 3335 
3335* 3336 3336 3338" 3609* 3610 3621* 3622 3633 3635 3711 
TCBAXR2 C 001 OO1B 2104 2105 3197 3197* 3200* 3201* 3202 3202* 3203 3203* 3204 3204" 3205 
18 3205* 3206 3206* 3207 3220 3221* 3748 
TCBABTRM C 001 0010 2191 
TCBAEOEO C 001 0002 2206 
JO] TCBAFAIL C 001 O05F 2138 
TCBARQCT C 001 0076 2218 2219 
TCBASGNQ C 001 0050 2136 2137 3356 335d 


J06 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


PAGE 81 


VO9/11/8) 


12/08/81 21:31 


02} SYMBOL 


TCBASRWT C 001 
Q3]TCBATNS C 001 
TCBATRS C 001 
TCBATTCH C 001 
O4 TCBAWAIT C 001 
TCBAWSCT C 001 
TCBBAT C 001 
OS) TCBBEGL C 001 
TCBCAT C 001 
TCBCATN C 001 
06} TCBCCALL C 001 
TCBCHAIN C 001 
TCBCHKPT C 001 
O07] TCBCHPLO € 001 
TCBCNCNT C 001 
TCBCNLPO C 001 
08} TCBCN2PD C 001 
TCBCN3PD C 001 
TCBCRB  C 001 
OS TCBDEDO C 001 
TCBDEWT C 001 
TCBDKO §=C 001 
10) TCBDKTWT C 001 
TCBOMEPD C 001 
TCBOMPPD C 001 
11/TCBDSKTR C 001 
TCBDSKWT C 001 
TCBDUP = C 001 
12) TCBDWAIT C 001 
TCBECMER C 001 
TCBECNGW C 001 
13] ICBEXIT C 001 
TCBEXTRA C 001 
TCBFORCD C 001 
14) TCBFSWAP C 001 
TCBFWAIT C 001 


T LEN VALUE 


0002 


2102 3 


2138 2 


TCBGWAIT C 001 
15) TCBHDMPT C 001 
TCBICXWT C 001 
TCBIDACT C 001 
16; TCBIDBEL C 001 
TCBIDBLD C 001 
TCBIDBSC C 001 
17} TCBIDBTS C 001 
TCBIDCCP C 001 
TCBIDCIC C 001 
1G) TCBIDCP C 001 
TCBIDGA C 001 


2010 


3428 


TCBIDGCE C 001 
TON TCBIDIBS C 001 
TCBIDINS C 001 


TCBIDINT C 001 


#SVAU CB CHANGE ORG OR DETACH TRA 


ERR LOC OBJECT CODE ADDR STMT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


03310000 | 0 OBEE 02 OBEE 3638 DC ALI CSATERRO2) TASK WILL NOT LEAVE 14K 04230000 | 0, 3686 
03520600 3639 * 04240000 0C49 F4 00 13 3687 
03330000 3640 * IF A LARGER SWAP AREA IS NEEDED THAN THE ONE ALLOCATED, DEALLOCATE 3683 
03860000 | 03} 3641 * OLD SWAP AREA AND ALLOCATE NEW, ELSE IF IN TERMINATION AND THE 04260000 | 0 3689 
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3] 
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PAGE 


CROSS-REFERENCE 
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01 


02|SYMBOL T LEN VALUE DEFN — REFERENCES 2] SYMBOL T LEN VALUE DEFN 
TCBASRWT C 001 0002 TCBIDITH C 001 O0E5 2156 
OB3}TCBATNS C 001 0090 2221 3253 3291 3344 3345 3715 O3}TCBIDJQ C 001 OOF2 2169 
TCBATRS C 001 OO4F 2127 2128 3693 3697% 3698 3698* 3739 3891 3892 TCBIDMR C001 OOF4 2171 
TCBATTCH C 001 0040 2189 3747 TCBIOPER C 001 OOEA 2161 
O4|TCBAWAIT C 001 0080 2014 O4) TCBIDSDP C 001 OOF6 2173 
TCBAWSCT C 001 0070 2209 2210 2211 TCBIDSDS C 001 OOFB 2174 
TCBBAT C 001 0078 2230 2235 TCBIDSFS C 001 OOF3 2170 
O5|TCBBEGL C 001 002B 2118 2119 2120 3683* 3692 3696" 3700 3705 3736 O5|TCBIDSNE C 001 O0E7 2158 
TCBCAT C001 0071 2211 2212 TCBIDSNF C 001 00€9 2160 
TCBCATM C 001 0070 2210 TCBIDSNR C 001 OOF8 2176 
O6}TCBCCALL C 001 0010 2042 Q6|TCBIDSNi C 001 OOF? 2175 
TCBCHAIN C 001 000D 2093 2094 3250 3256 3256 3298 3299 3542 3546 TCBIDSRJ C 001 OOFA 2178 
TCBCHKPT C 001 0040 2040 TCBIDS44 C 001 OOFC 2180 
O7|TCBCMPLQ C 001 0009 2089 2092 07] TCBINQPD C 001 0001 2046 
TCBCNCNT C 001 0074 2214 2216 3750* 3921" 3923* TCBINGSP C 001 0020 2239 
TCBCNLPD C 001 0004 2193 3924 TCBINVCT C 001 0058 2135 
TCBCN2PD C 001 0040 2201 OS] TCBIQCNT C 001 0075 2216 
TCBCN3PD C 001 0020 2202 TCBIWAIT C 001 0008 2005 
TCBCRB C001 OO017 2101 2102 2103 2113 3170 3258 3349 3569 3618 3695 3756 3775 TCBICBa C001 0015 2100 
O9|TCBDEDO C001 0001 2228 09 
TCBDEVT C 001 0008 2032 TCBISTIN C 001 0004 1994 
TCBDKO C 001 TCBKCALL C 001 0008 2043 
1O}TCBKWAIT C 001 0001 2024 
TCBOMEPD C 001 TCBLCKDI C 001 0080 2142 
TCBLCKHI C 001 0004 2147 
11/TCBOSKTR C 001 LITCBLCKIK C 001 0069 2141 
TCBLCKPI C 001 0008 2146 
TCBLCKSI C 001 0040 2143 
12] TCBLCKSP C 001 0002 2148 
TCBLCKVI C 001 0020 2144 
TCBECNGW C 001 TCBLCKSI C 001 0010 7145 
JB] TCBEXIT C 001 OOS5F 2137 2138 2139 13] TCBLDISK C 001 005A 2133 
TCBEXTRA C 001 0020 2041 TCBLDREL C 001 0057 2131 
TCBFORCD C 001 0020 1991 TCBLEN C001 0080 2262 
14| TCBFSWAP C 001 0004 1995 J4TCBLINUT C 001 0040 2029 
TCBFWAIT C 001 0002 2023 TCBLONGW C 001 0010 1992 
TCBGWAIT C O01 0020 2003 2010 TCBMABTN C 001 0010 2203 
15] TCBHOMPT C 001 0002 2195 5] TCBMAXID C 001 O0EO 2182 
TCBICKXWT C 001 0004 2033 TCBMIC C001 0057 2132 
TCBIDACT C O01 OOE4 2155 TCBMRTMX C 001 0072 2212 
16] TCBIDBEL C 001 OOEE 2165 s 16] TCBMSAFL C 001 0008 2704 
TCBIDBLD C 001 OOF9 2177 3428 TCBMSSIZ C 001 002C 2120 
TCBIDBSC C 001 OOF5 2172 TCBMSTAB C 001 0004 2205 
17] TCBIDBTS C 001 O0£6 2157 17] TCBNDUMP C 001 0008 2225 
TCBIDCCP C 001 OOEB 2162 TCBNOIO C 001 0002 1996 
TCBIDCIC C 001 OOEC 2163 TCBNRDY C 001 OOBE 2010 
JS{TCBIDCP C 001 OOFO 2167 18] TCBNSCNT C 001 0073 2213 
TCBIDGA C 001 OOFE 2181 TCBNSWAP C 001 0001 1997 
TCBIDGCE C 001 0&8 2159 TCBPRBCH C 001 00CO 2081 
TCBIDIBS C 001 OOFD 2179 19] TCBPRBEL C 001 O0FO 2069 
TCBIDIMS C 001 OOED 2164 TCBPRBLD C 001 O0FO 2062 
TCBIDINT C 001 TCBPRBSC C 001 O00F4 2054 


ERR LOC OBJECT CODE 


*SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


Jo7 


PAGE 


ADDR STMT SOURCE STATEMENT 
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#SVAU TCB CHANGE ORG OR D 


ERR LOC OBJECT CODE 


a 


0049 F4 00 13 


FREEP 
SVC___SVCFREEP, QO 


FREE ALL BUT FIRST 2K 
FREE MAIN STORAGE 


OCDF F2 81 06 


118 VO9/11/81 12/08/81 21:31 PAGE 119 VO9/11/81 01 


CROSS-REFERENCE 


02]SYMBOL T LEN VALUE REFERENCES Q2| SYMBOL TT LEN VALUE DEFA 


TCBPRBTS C 001 OOFO 2071 
03] TCBPRCCP C 001 O0FO 2066 
TCBPRCIC C 001 OOFO 2067 
TCBPRCNV C 001 0000 2080 
O4TCBPRCP C 001 OOFC 205] 
TCBPRDDF C 001 OOF! 2074 
TCBPREN C 001 O0F3 2055 
QD) TCBPREXT C 001 O0FO 2056 
TCBPRGCE C 001 OOFO 2072 
TCBPRIMS C 001 O0FO 2068 
06} TCBPRINT C 001 OOFO 2070 
TCBPRINV C 001 OOFF 2050 
TCBPRIOR C 001 0005 2048 
O7}TCBPRIQ C 001 006D 2184 
TCBPRITH C 001 OOF4 2057 


3227 3234 3413 3414 3444 3445 3448 3454 3480 3509 3732 TCBPRSDS C 001 O0F9 2059 


2134 2135 13] TCBQCNT C 001 0007 2088 
21322133 TCBQWAIT C 001 0008 2018 
3587 TCBRDYQ C001 OOOF 2094 
14 TCBRGSIZ C 001 002D 2121 
TCBRSE C001 0027 2113 
TCBRTUB C001 0013 2097 
15) TCBRWAIT C 001 0004 2022 
TCBSDTAC C 001 0002 2241 


2213 TCBSOTSO C 001 0040 2238 
1OVTCBSFILK C 001 0010 2224 
2121 3738* TCBSHORC C 001 0080 2183 


TCBSIAR C 001 0059 2134 
17] TCBSMFDN C 00: 0080 2252 
TCBSMFPT C 001 OO7C 2248 
TCBSNARQ C 001 0002 2227 
2214 TGTCBSOP C0021 0008 1993 
3312 3346 3714 TCBSPLRS C 001 0040 2260 
TCBSPLSP C 001 0010 2240 
19} TCBSPOOL C 001 O02F 2124 
TCBSPUNK C 001 0080 2237 
TCBSPWTR C 001 0080 2259 
0 
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ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


OCDF F2 81 06 3733 JE 07000365 


11/81 12/08/81 21:31 


/11/81 12/08/81 21:31 


PAGE 
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01 
CROSS~REFERENCE 
Q2|SYMBOL T LEN VALUE DEFN — REFERENCES O2|SYMBOL T LEN VALUE DEFN — REFERE 
TCBPRBTS C 001 OOFO TCBSQBCT C 001 0068 2140 2141 
03] TCBPRCCP C 001 O0FO 2066 O3{TCBSSTID C 001 OO6A 2151 2153 
TCBPRCIC C 001 OOFO 2067 TCBSTAT1 C 001 0000 1987 1999 
TCBPRCNV C 001 0000 2080 TCBSTAT2 C 001 0001 1999 2012 
TCBPRCP C 001 OOFC 2051 O4] TCBSTAT3 C 001 0004 2037 2048 
TCBPRDDF C 001 OOF! 2074 TCBSTAT4 C 001 OO6E 2186 2198 
TCBPREN C001 OOF3 2055 TCBSTATS C 001 OO6F 2198 2209 
TCBPREXT C 001 OOFO 2056 O5|TCBSTAT6 C 001 0077 2219 2230 | 
TCBPRGCE C 001 OOFO 2072 TCBSTAT? C 001 OO7E 2257 2262 
TCBPRIMS C 001 OOFO 2068 TCBSUSP C 001 0002 2007 2010 
TCBPRINT C 001 OOFO 2070 06] TCBSUSPD C 001 0004 2044 
TCBPRINV C 001 OOFF 2050 TCBSUSPS C 001 0079 2235 2244 
TCBPRIOR C 001 0005 2048 2086 3534* 3535* TCBSWAIT C 001 0040 2015 3805 
O7|TCBPRIQ C001 006D 2184 2186 3539 O7|TCBSWAPD C 001 0040 1990 
TCBPRITH C 001 OOF4 2057 TCBSWAPQ C 001 OOF 2095 3531 
TCBPRMR C001 OOFO 2053 TCBSYSTM C 001 0020 2190 
8 TCBPRPER C 001 OOFO 2065 OS] TCBTAS C001 0020 2016 
TCBPRSDP C 001 O0OF8 2058 TCBTERM C 001 0080 2039 3233 
TCBPRSDS C 001 OOF9 2059 TCBTHBIT C 001 0080 2200 
QO] TCBPRSMF C 001 OOFB 2073 OOTCBTQE C001 0067 2139 2140 
TCBPRSNF C001 OOFO 2064 TCBTSKID C 001 006B 2153 2184 
TCBPRSNR C 001 OOFO 2061 TCBTSSN € 001 OO2A 2117 2118 : 
JO] TCBPRSN1 C 001 OOFO 2060 JO|TCBTTC §=C 001 0051 2128 2129 : 
TCBPRSP C001 OOFO 2052 TCBTTIME C 001 0006 2086 2088 
TCBPRSRJ C 001 OOFO 2063 TCBTWA «C001 0053 2129 +2130 
11] TCBPRSWT C 001 0000 2075 TI[TCBTWACL C 001 0004 2194 
TCBPRUDH C 001 OOEO 2076 3534 3535 TCBTWAIT C 001 0004 2006 2010 
TCBPRUDL C 001 TCBUDMPR C 001 0080 2231 
12] TCBUAFLE C 001 OO7A 2244 2248 
TCBPTRWT C 001 TCBWAIT C001 0080 1989 
TCBPUSH C 001 O00B 2092 2093 3274 3276 3304 3306 3315* TCBWAITD C 001 0080 2001 2010 
13] TCBQCNT C 001 0007 2088 2089 13] TCBWIOSP C 001 0001 2242 
TCBQWAIT C 001 0008 2018 TCBWYASK C001 0002 2012 2026 
TCBRDYQ C 00] OOOF 2094 2095 2096 TCBHMSK2 C 001 0003 2026 2037 
JATCBRESIZ C 001 002D 2121 2124 3293% 3294 3296 3297* 3309* 3331 3348 3675 3729* 3730 3018* 14{TCBUSILK C 001 0004 2226 
TCBRSE C001 0027 2113 2117 3148 3864 3864 3873 3373" TCBUSWA C001 0055 2130 2131 3 
TCBRTUB C 001 0013 2097 2100 3442 TCBIARIT C 001 0010 2017 
15) TCBRWAIT C 001 0004 2022 15} TCBX C 001 007D 2255 2257 
TCBSDTAC C 001 0002 2241 TCBXNTQ C001 0011 20% 2097 
TCBSDTSO C 001 0040 2238 TCBXWAIT C 001 0040 2002 
16|TCBSFILK C 001 0010 2224 16{TCB1 = C O01 0001 3113-3187" 3 
TCBSHDRC C 001 0080 2188 3204 3 
TCBSIAR C 001 0059 2134 3211 3 
17] TCBSMEDN C 001 0080 2252 17 3241 3 
TCBSMFPT C 001 OO7C 2248 2255 3268 3 
TCBSNARQ C 001 0002 2227 3252 3262 3293 3 
18] TCBSOP C001 0008 1993 13 3331 3 
TCBSPLRS C 001 0040 2260 3344 3 
TCBSPLSP C 001 0010 2240 3381 3 
L9}TCBSPOOL C 001 O02F 2124 2125 2126 2127 19 3601 3 
TCBSPUNK C 001 0080 2237 3610 3 
3 


TCBSPWTR C 001 


*SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


JO9 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


PAGE 
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3770 *** END OF EXPANSION ** 


0D34 3766 DTERROR EQU * 05320000 
0034 34 08 OE7D 3767 ST __DTCWORK. ARR STORE CALLER'S ARR 05330000 
3768 * TCBA = R-TCB1 AR2-> CURRENT TCB 05340000 

0038 35 01 0141 3769 L 321, TCB1 GET TCB ADDRESS. 


Mme 370 On fa 


39777 


DAL 


TCOCTATIS TD. TloOTe oe 


WROER TAL. Wired PEA OC Puke 


#SWAU TCB CHANGE ORG OR DETACH TRA 


€RR LOC OBJECT CODE ADDR STMT 
O05) 3783 

0068 3784 

0050 C2 02 0068 3785 
0061 B4 08 3D 3786 
0064 C2 01 O2A2 3787 


TO OP Aa ek One 
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CROSS~REF ERENCE 
02]SYNBOL 1 LEN VALUE REFERENCES O2|SYMBOL T LEN VALUE DEFN 
TCBSQBCT C 001 
O3} TCBSSTID C 001 03 
TCBSTAT1 C 001 3312® 3346% 3714" 
TCBSTAT2 C 001 
04] TCBSTAT3 C 001 3233 3261 3745 3771 O4TCB2 C001 0002 3114 
TCBSTAT4 C 001 3747* 3924 
TCBSTATS C O01 
O5|TCBSTAT6 C 001 3252 3253 3262 3291 3344 3345* 3715* 05) 
TCBSTAT? C 001 TCB22RCS C 001 0008 2192 
TCBSUSP C 001 THREE C001 0003 3066 
06] TCBSUSPD C 001 06] TPP*EQV C 001 0000 2856 
TCBSUSPS C 001 TRUE C001 0010 3074 
TCBSWAIT C 001 TUBSACTV C 001 0080 2363 
07| TCBSWAPD C 001 O7| TUBSCMPL C 001 0040 2364 
TCBSWAPQ C 001 TUBSCNCL C001 00C3 2391 
aa TCBSYSTM C O01 TUBSDA C001 O0CO 2386 
OS] TCBTAS C 001 OS] TUBSDEAD C 001 0002 2494 
TCBTERMN C 001 TUBSDPST C 001 0040 2811 
TCBTHBIT C 001 TUBSOTCS C 001 0001 2382 
OO|TCBTQE C 001 OO} TUBSERR C001 0001 2370 
TCBTSKID C 001 3379 3381 3428 3430 TUBSEXEC C 001 00CO 2388 
3672* 3679" 3684* 3737* TUBSEXTD C 001 0020 2812 
JO|TcBTTC C001 3557 JO] TUBSIDLE C 001 00C2 2390 
TUBSKBOP C 001 00CO 2535 
TUBSLOCK C 001 0040 2759 
JI} TCBTUACL C 001 11[TUBSMITR C 001 00E3 2534 
TUBSNGLD C 001 00£2 2533 
TUBSNIO C001 0020 2354 
12] TCBMAFLG C 001 12] TUBSNO2 C001 0040 2376 
TUBSNRMD C 001 0005 2497 
TUBSOUPT C 001 0027 2402 
13] TCBUIOSP C 001 13) TUBSPNAV C 001 OOEO 2387 
TUBSPOFF C 001 0007 2500 
TUBSPOLL C001 00C1 2389 
. 1 14{ TUBSPRMA C001 O0F1 2532 
TUBSPUPM C 001 0080 2810 
y TUBSPWI C001 OOA? 2401 
15] TCBX 15] TUBSRACT C 001 0000 2371 
TUBSRDIN C 001 0042 2406 
TUBSRDMD C 001 0022 2408 
16] TcB1 3189 3201 16] TUBSRDSN C 001 0062 2405 
3207 TUBSROUK C001 0006 2499 
3220 TUBSREAL C 001 0040 2353 
7 3258 17] TUBSRSTR C 001 0007 2407 
3283 TUBSSAVE C 001 0002 2403 
3312 TUBSSAVS C 001 0006 2404 
18 3335 GI TUBSSKIP C 001 0080 2352 
3371" TUBSTANZ C 001 OO£0 2531 
3526" 3534 3535 TUBSUERP C 001 0080 2375 
1 3604 3604 3605 19] TUBSVH C001 0010 2378 
3622 3622 3631 TUBABTRM C001 0001 2653 
3655* 3657 3665* 3667 3670" 3672 3675 3675 677% 3679 TUBACN C001 0040 2592 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 
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ERR LOC OBJECT CODE 


J10 


85 09/11/81 


ADDR STMT SOURCE STATEMENT 


12/08/81 21:31 


OD5D 3783 DTDEALLO EQU 


x 


NALS or ator TAR ATAANASA aT 


Fn ar eee Peep a ere Pinedale ao ees Se a ae 


OD68 3784 USING ATOO0010, BAS2 USE AS A BASE AREA 
OD5D C2 02 0068 3785 LA AT000010, BAS2 LOAD BASE REGISTER 05470000 
0061 B4 08 3D 3786 ST — RTDEALL+3(, BAS2), ARR STORE CALLER'S ARR 05430000 
0064 C2 01 02A2 3787 LA NUGTWAXR, F51 POINT TO ALLOC. BIT MASK 05483000 
0D68 9C 04 45 05 3788 ATOOOO10 MVC DTSVELMCTWAXN-TWAXIAP, BAS2), TWAXN-TWAXMAPCF51) MAP 05486000 


ODAE C2 01 ODAS 
0 ODB2 74 08 C9 


ODBS C2 02 02A2 


PAGE 121 VO09/11/81 
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PAGE 122 09/11/81 


12/08/81 21:31 
01 


CROSS-REFERENCE 
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A TO FREE ? 


CATE TRACK 


02|SYNBOL T LEN VALUE REFERENCES 02|SYMBOL TT LEN VALUE 
3683 3684 3692 3693 3696 3696 TUBAID C001 0025 
03) 3705 3710 3711 3714 3719 3719 O3} TUBALRM C 001 0080 
3734 3736 3737 3738 3745 3747 TUBAPRNT C 001 003€ 
3756 3769% 3771 3775 TUBASENT C 001 0020 
O4)TCB2 CC O01 0002 3114  —3168* 3170 3250% 3252 3253 3256 3260* 3261 3262 3265 3273 3274 04) TUBASGNA C 001 0043 
3276 3290* 3291 3293 3294 3296 3297 3298 3299 3299* 3411* 3413 TUBASGND C 001 0004 
3414 3428 3430 3442 3444 3445 3443 3454 3478* 3480 3490* 3509 TUBASGNL C 001 0041 
05) 3519 3862* 3864 3873 3915* 3918 3921 3923 3924 O5| TUBATTRA C 001 0054 
TCB22RCS C 001 0008 2192 TUBATTRB C001 0058 
THREE C001 0003 3066 TUBATTRC C 001 0058 
06] TPP#EOV C001 0000 2856 06] TUBATTRI C 001 0035 
TRUE C001 0010 3074 TUBATTR2 C 001 0036 
TUBSACTV C 001 0080 2363 TUBATTR3 C 001 0037 
O7|TUBSCIPL C 001 0040 2364 07] TUBATTR4 C 001 0038 
TUBSCNCL C 001 00C3 2391 TUBATTRS C001 0039 
TUBSDA C001 00CO 2386 TUBATTR6 C 001 003A 
OS] TUBSDEAD C 001 0002 2494 OS] TUBATTR? C 001 0044 
TUBSOPST C 001 0040 2811 TUBATTRS C 001 0045 
TUBSDTCS C 001 0001 2382 TUBATTRO C 001 0048 
OS|TUBSERR C001 0001 2370 09} TUBAUTOB C 001 0020 
TUBSEXEC C 001 O0CO 2388 TUBBADGE C 001 0080 
TUBSEXTD C 001 0020 2812 TUBCHAIN C 001 0013 
JO|TUBSIDLE C 001 00C2 2390 1OJTUBCLER C001 O010 
TUBSKBDP C 001 O0CO 2535 TUBCLRAD € 001 0080 
TUBSLOCK C 001 0040 2759 TUBCMDRJ C 001 0010 
11/TUBSMITR C 001 00E3 2534 LU TuscroT =C 001 0020 
TUBSNGLD C 001 O0F2 2533 TUBCMD1 C001 0001 
TUBSNIO C001 0020 2354 TUBCMDIO C 001 0020 
12] TUBSNOZ C 001 0040 2376 12) TUBCNDL1 € 001 0040 
TUBSNRMD C 001 0005 2497 TUBCYD12 C 001 0080 
TUBSOUPT C 001 0027 2402 TUBCYDI3 C 001 0001 
13] TUBSPNAV C 001 OOEO 2387 13] TuBCMD14 C 001 0002 
TUBSPOFF C 001 0007 2500 TUBCMDI5 C 001 0004 
TUBSPOLL C 001 O0C1 2389 TUBCMD16 C 001 0008 
14) TUBSPRMA C 001 O0£1 2532 14) TUBCMD17 C 001 90010 
TUBSPUPM C 001 0080 2810 TUBCYD18 C 001 0020 
TUBSPWI C001 O0A7 2401 TUBCD19 € 001 0040 
15) TUBSRACT C 001 0000 2371 15] TuBCMo2 € 001 0002 
TUBSRDIN C 001 0042 2406 TUBCMD20 C 001 0080 _ 
TUBSRDMD C 001 0022 2408 TUBCMD21 C 001 0001 _ 
16] TUBSRDSN C 001 0062 2405 16] TUBCNO22 C 001 0002 
TUBSRDUK C 001 0006 2499 TUBCD23 C 001 0004 
TUBSREAL C 001 0040 2353 TUBCID24 C 001 0008 
17] TUBSRSTR C 001 0007 2407 17|TUBCMO3 C001 0004 » 
TUBSSAVE C 001 0002 2403 TUBCO4 C001 0008 | 
TUBSSAVS C 001 0006 2404 TUBCIDS C001 0010 — 
18] TUBSSKIP C 001 0080 2352 19] TUBCDS = 001 0020 | 
TUBSTANZ C 001 O0£0 2531 TUBCND? ¢ 001 0040 | 
TUBSUERP C 001 0080 2375 TUBCID3 C001 0080 — 
19] TUBSVH C001 0010 2378 19] TuBCMDS C901 0010 | 
TUBABTRM C 001 0001 2653 TUBCAND C001 0003 | 
TUBACN C001 0040 2592 0004 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ERR LOC OBJECT CODE ADDR STNT SOURCE STATEMENT 


PAGE 86 VO9/11/81 12/08/81 21:31 


TUBCMOD C 001 
0 


OE3F 4C 00 12 ODF 


0 ODAE 3818 ALLOC FQU * 05680000 
ODAS_3819 USING DTDCSIZE,BAS1 USE_AS A BASE AREA 05690000 O£44 4C 01 11 OE7 

ODAE C2 01 ODAS 3820 LA DTDCSIZE, BAS LOAD BASE REGISTER 05700000 

03} ODB2 74 08 C9 3821 ST — RTALLOC+3(, BAS1), ARR STORE CALLER'S ARR 05710000 | 03) 0£49 F4 01 04 
00B5 C2 02 0282 3822 ALLOOOOS LA _NUaTWAXR, F52 POINT TO FORMAT 5 95715000 Of 4C 35 
ODB9 6C 04 05 05 3823 ALLOOO10 PVC DTSVELMCTWAXN-TWAXTIAP, BAS 1, THAXN-THAXMAPC, F52) MAP 05720000 
ODBD 5C 01 CC 04 3824 MVC ALSSSEC2,BAS1),ALSSS(,BAS1) INIT. END ADDRESS 05730000 Of 40 1C 00 GDAS 1 
ODC1 5F 00 05 38 3825, SLC__DTSV8BYT(1,BAS1),ALLOO020+1(, BASI) DECR. TRACKS INDEX O€52 IC 01 OF71 1 
ODC5 5C 00 2A 05 3826 MVC = ALLO0015+1(1.BAS1). DTISV@BYT(.BAS1) MOVE IN L-7 057 21000 OE57 9C OF 27 OF 


PAGE 123 VO9/11/81 12/08/81 21:31 
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PAGE 


01 
CROSS-REF ERENCE 


02] SYMBOL = T LEN VALUE REFERENCES 


2582 TUBCMSK C 001 

03} TUBCISK1 C 001 

TUBAPRNT C 001 TUBCMSK2 C 001 
TUBASENT C 001 TUBCNSK3 C 001 

04{ TUBCOMON C 001 

TUBCOMPL C 001 

TUBCOUNT C 001 

05] TUBATTRA C 001 Q5| TUBCPAID C 001 
TUBATTRB C 001 0058 2771 2781 TUBCTSAV C 001 
TUBATTRC C 001 005B 2783 2794 TUBDATAa C 001 
06] TUBATTR1 C 001 0035 2589 2600 O6| TUBDEVIC C 001 
TUBATTR2 C 001 0036 2600 2622 TUBDEVID C 001 
TUBATTR3 C 001 0037 2622 2633 TUBDEXTA C 001 
07| TUBATTR4 C 001 07] TUBDGTUB C 001 
TUBDMATX C 001 

TUBDPRST C 001 

08] TUBDRESV C 001 

TUBECN C 001 

TUBERAID C 001 

(9] TUBERBFG C 001 

TUBBADGE C 001 TUBERPCT C 001 
TUBCHAIN C 001 0013 2527 2529 TUBERRCT C 001 
TUBCLER C 001 0010 2748 10] TUBF WSL C 001 
TUBCLRAD C 001 0080 2758 TUBFLAG =C 001 
TUBCMORJ C 001 5 TUBFMSK C001 

11{ TUBGATJD C 001 

TUBGALJP C 001 

TUBCMD10 C 001 TUBGCHAR C 001 
12] TUBCMD11 C 001 0040 2727 12] TUBHELP C 001 
TUBCMD12 C 001 0080 2726 TUBHELPM C 001 
TUBCMO13 C 001 0001 2742 TUBHPND C 001 
13} TUBCMD14 C 001 0002 2741 13, TUBH2Q CC 001 
TUBCMD15 C 001 0004 2740 TUBIARF C O01 
TUBCMD16 C 001 0008 2739 TUBIDEL C 001 
14] TuBcnD17 C 001 14) TUBLIS C 001 
TUBIMNI CC 001 

TUBINPA C 001 

15] TUBING] C 001 

TUBING2 C 001 

TUBIOERR C 001 

16] TUBIPS C 001 

TUBIQWP C 001 

TUBJCBa C 001 

C 001 17] TUBKBULK C 001 

TUBCMD4 C 001 0008 2721 TUBKDPLY C 001 
TUBCMDS C 001 0010 2720 TUBKKBD C 007 
18] TuBCMDs CC 001 0020 2719 18] TUBKPNTR C 001 
TUBCMD7 C 001 0040 2718 TUBLEN CC 001 
TUBCMDS C 001 0080 2717 TUBLIOER C O01 
19] TUBCMDO = C01 0010 2729 19) TUBLIOFR C 001 
TUBCIND C 001 0003 2384 2397 2399 TUBLIOIP € 001 

C 001 2410 TUBLIOS C O01 


J12 


#SVAU CB CHANGE ORG OR DETACH TRANSIENT PAGE 87 VO9/11/81 12/08/81 21:31 


86 09/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02} OE3F 4C 00 12 ODAS 3865 PMC DTSVSIZC1,xR1), DTDCSIZE SAVE SIZE 05954000 
F AREA 0644 4C 01 11 OE71 3866 MWC DTSVARR(2,XR1),RTALLOC+3 SAVE ARR 05954500 O€72 
SISTER 3867 * SXFER ID-RSVTX, REFRESH-YES CALL RECOVERY 05955000 O€73 
"S ARR 03] 0649 F4 01 04 3868 sve 4,1 0E75 0003 
MAT 5 OE 4C 35 OF 4C 3869 DC__ALICRSVTX) O€77 FFFF 
(,F52) MAP 3870 *** END OF EXPANSION ** 
DRESS OE4) 1C 00 ODAS 12 3871 MVC DTDCSIZEC1),DTSVSIZ(,XR1) RESTORE SIZE 079 30 
TRACKS INDEX OE52 1C Ol OE71 11 3872 MVC RTALLOC+3(2), DTSVARR(,XR1) RESTORE ARR 05956000 
WL-1 0657 9C OF 27 OF 3873 FC TCBRSE CTCBRSE-TCBaRSE +1, TCB2), OTSVREGC, XR1) RESTORE RSE 05956500 

05 3874 * FREE LEN-DTSVLEN FREE ELEMENT 05957000 OE7E 0001 


Actco Ca fw A? 3075 oe mircacec AA Sa ie ia” ee ct gl a ee at a a 


02|SYMBOL = T LEN VALUE 


*SVAU TCB CHANGE OG 


ERR LOC OBJECT CODE 


PAGE 124 VO9/11/81 12/08/81 21:31 


§ VO9/11/81 12/08/81 21:31 


01 
CROSS-REFERENCE 

02]SYMBOL = T LEN VALUE REFERENCES O2|SYMBOL T LEN VALUE DEFN 

TUBCNSK C 001 2744 TUBLOP C001 0020 2648 

03] TUBCMSK1 C 001 2725 O3]TUBLTOFF C 001 0040 2688 

TUBCISK2 C 001 2734 TUBMBOCF C 001 0010 2660 

TUBCMSK3 C 001 2743 TUBMCMD C001 0020 2612 

2581 O4ITUBNCN C001 0080 2591 

2373 TUBMCNSL C001 0040 2610 

2414 TUBMCOUT C001 0004 2765 

05] TUBCPAID C 001 2583 : 05] TUBMDATA C 001 0010 2613 

TUBCTSAV C 001 2667 TUBMDDTA C 001 0010 2690 

TUBDATAa C 001 2412 TUBPDME C001 0070 2614 

06] TUBDEVIC C 001 06] TUBMENUA C 001 0008 2617 

TUBDEVID C 001 2537 TUBMENU2 C001 0020 2703 

TUBDEXTa C 001 0053 2 2757 : TUBMHELP C 001 0004 2791 

07] TUBDGTUB C 001 2783 07] TUBMHOLD C 001 0010 2761 

TUBDMATX C 001 2771 TUBMIC C001 OO1A 2552 

TUBDPRST C 001 2818 TUBMINIT C001 0030 2615 

08] TUBDRESV C 001 2584 08] TUBNIQDS C 001 0020 2678 

TUBECN C 001 2361 TUBMKANS C 001 0020 2775 

TUBERAID C 001 2552 TUBPLOCL C 001 0040 2395 

TUBERBFG C 001 2551 OO] TUBMOFF C001 0020 2760 

TUBERPCT C 001 2545 TUBMRDTA C 001 0008 2661 

TUBERRCT C O01 2566 TUBPRTSC C 001 0010 2704 

TUBFC'ssL C 001 10) TUBNSGA C001 0001 2620 

TUBFLAG C 001 2384 TUBMSGLT € 001 O03F 2668 
TUBFMSK C O01 TUBNSGID C 001 0055 2768 

11] TUBMSGRT C 001 0080 2669 

TUBGAIJP C 001 TUBMSGR2 C 001 0040 2670 

TUBGCHAR C O01 |  |TUBMSTDY C 001 0080 2609 

12] TUBMSUB C001 00CO 2396 

2697 2699 TUBMESTN C 001 0040 2611 


TUBLIOER C 001 TUBPRESV C 00] 0027 2804 
TO|TUBPRT C001 0080 2745 

TUBLIOIP C 001 TUBPSUBC C 001 0031 2822 | 

TUBLIOS C 001 TUBQHDR C001 0015 2537); 


#SVAU 


TCB CHANGE ORG OR DET 


87 VO9/11/81 12/08/81 21:31 PAGE 83 09/11/81 12/08/81 21:31 


01 
ERR LOC OBJECT CODE ADDI 


3885 * CONSTANTS AND WORK AREAS 


0672 O72 3886 ALSIZ DS CL ALLOCATION SIZE WORK AREA 
E73 OE74 3887 ALSSSE DS  CL2 SSS OF NEXT AREA 
0£75 0003 0£76 3888 ALCON3 DC XL2'0003' CONSTANT OF 3 06050000 
O€7? FFFF E78 3889 ALMONE DC XL2‘FFFF‘ CONSTANT OF -1 

3890 * DO NOT SEPARATE NEXT THREE BYTES OFA 
0£79 30 0E79 3891 DC ALICTCBATRS-31) OFFSET TO FIRST ATR VALUE OA 
0£7A 0030 OE7B 3892 DIMAP =-DC_—AL2(TCBATRS-31) INITIAL ATR SLOT ADDRESS OEM 


nee ACTIN 2672? ATO MOY rnc “> oakguas” Lec 


PAGE 125 VO9/11/81 12/08/81 21:31 


01 Ol 
CROSS-REFERENCE 


4 VO9/11/81 12/08/81 21:31 


Q2|SYMBOL oT LEN VALUE DEFN REFERENCES 02) SYMBOL = T LEN VALUE DEFN 
TUBLOP C 001 0020 2648 jTUBRAMER C 001 0001 2793 
03} TUBLTOFF C 001 0040 2688 03] TUBRCBK C 001 0004 2750 
TUBMBDCF C 001 0010 2660 TUBRCNCL C 001 0083 2394 
TUBNCMD C001 0020 2612 TUBROMGD C 001 0001 2767 
O4/TUBNCN C001 0080 2591 O4 TUBROYIP C 001 0001 2683 
TUBMCNSL C 001 0040 2610 TUBROYPD C001 0001 2708 
TUBNCOUT C 001 0004 2765 ; TUBREADY C 001 0008 2680 
O5|TUBMDATA C 001 0010 2613 ; O5| TUBREL C001 0004 2651 
TUBMDDTA C 001 0010 2690 TUBREXEC C 001 0080 2392 
TUBMOME C001 0070 2614 TUBRFCSS C 001 004C 2713 
06) TUBMENUA C 001 0008 2617 06] TUBRFDSP C 001 0040 2714 
TUBMENU2 C 001 0020 2703 TUBRFN C001 0048 2712 
TUBMHELP C 001 0004 2791 TUBRFSS C001 004A 2711 
O7|TUBMHOLD C 001 0010 2761 © 07] TUBRITSU C 001 0004 2380 
TUBMIC C001 OO1A 2552 2554 TUBRINCN C 001 0002 2381 
TUBMINIT C 001 0030 2615 TUBRJFOV C 001 0008 2777 


08} TUBMIQDS C 001 0020 2678 OS|TUBRLDN C001 0020 2747 
TUBMKANJ C 001 TUBRLUP C001 0040 2746 


TUBRPOLL C001 0081 2393 
OO|TUBRSF C001 0008 2650 
TUBRST1 C001 0008 2639 
TUBRST2 € 001 0004 2640 
1O|TUBRSVD C 001 O05F 2794 
TUBRSW C001 0010 2649 
TUBSENSE C001 OO0F 2520 
11] TUBSENSO C 001 000A 2414 
TUBSENSI C 001 0008 2429 


16) TUBSTATA C 001 0004 2618 
TUBSTPJ C001 0004 2596 
TUBSUBCN C 001 0008 2764 

17) TUBSVER1 C 001 9004 2706 
TUBSVER2 C 001 0002 2707 
TUBSVRD C001 0008 2705 

16] TUBSYLST C 001 0020 2659 
TUBTCB C001 0024 2569 
TUBTCBa C001 0011 2521 

LO[TUBTSRQ C 001 0008 2595 
TUBTUB CC 001 0034 2587 
TUBUNITa C 001 0005 2410 

0 


J14 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT PAGE =89)-WO9/11/81 12/08/81 21:31 


38 VO9/11/81 12/08/81 21:31 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


THIS IS THE BOOTSTRAP CODE THAT 1S MOVED TO THE FIRST TWD K 
PAGE WHENEVER GOING FROM SCHEDULER TO USER OR USER TO 


CEA 3906 USING ATOCODE, XR1 USE AS A BASE REGISTER 
FRO 2007 aTrynne cot 1 


VO9711781 12/08781 21:31 


V09/11/81 


12/08/81 


21:31 


CROSS-REFERENCE 


PAGE 12/08/81 21:31 


02] SYMBOL 


TUBRANER C 001 
03] TUBRCBK C 001 
TUBRCNCL C 001 
TUBRDMOD C 001 
04] TUBRDYIP C 001 
TUBRDYPD C 001 
TUBREADY C 001 
O5|TUBREL C 001 
TUBREXEC C 001 
TUBRFCSS C 001 
06] TUBRFDSP C 001 
TUBRFN C001 
TUBRFSS C 001 
O7|TUBRITSU C 001 
TUBRINCM C 001 
TUBRJFOV C 001 
O8|TUBRLDN C 001 
TUBRLUP C 001 
TUBRPOLL C 001 


TUBRST1 C 001 
TUBRST2 C 001 
10} TUBRSVD C 001 
TUBRSW CC 001 
TUBSENSE C 001 
11] TUBSENSO C 001 
TUBSENS1 C 001 
TUBSENS2 C 001 
12] TUBSENS3 C 001 
TUBSENS4 C 001 
TUBSENSS C 001 


TUBSIARF C 001 


T LEN VALUE 


REFERENCES 


2714 
2716 
2713 


2712 


2640 

2794 = 2795 
2649 

252002521 
2414 = 2429 
24292441 
24412459 
2459 2461 
2461-2518 


TUBSITS C 001 
14] TUBSINI C001 
TUBSIOCT C 001 


TUBSIPS C 001 
15] TUBSRILK C 001 
TUBSRQ C 001 


TUBSRQPD C 001 
| TUBSTATA C 001 
TUBSTPJ C 001 


TUBSUBCN C 001 
17) TUBSVER1 C 001 
TUBSVER2 C 001 


TUBSVRD C 001 
] TUBSYLST C 001 
TuBTCB C 001 


1 


2571 


TUBTCBa C 001 
TUBTSRQ C 001 
TUBTUB C001 


2527 


2589 


TUBUNIT@ C 001 


ERR LOC OBJECT CODE 


#SVAU TCB CHANGE ORG OR DETACH TRANSIENT 


ADDR STMT SOURCE STATEMENT 


PAGE 990 09/11/81 


12/08/81 21:31 


0} 


02] SYMBOL 


TUBUSER C 001 


03) TUBUSSV C 001 


T LEN VALUE DEFN 


OO2F 2584 
0040 2658 
0080 2657 


TUBOILGJ C 001 
TUBORNMFL C 001 


5] TUBOUNGJ C 001 


TUBI C 001 
TUB1OPT C 001 
06 TUB2 C 001 
TUB2IG_ C 001 
TUB2RF C 001 


07) TUB2UG CC 001 


TUB960 C 001 
TWAACEND C 001 
08} THACNSL C 001 
TWAeCOM C001 
TWAACSIIQ C 001 
O09] TWAFCURT C 001 
TUAFERPS C 001 


0020 2566 
0022 2567 


TWAFSINS C 001 
17] THAPSTAT C 001 
TWAFTKMQ C_001 


TWAPUSER C 001 
18] TUAAWSSA C 001 
TWASUSSS C 001 


TWARXLAT C 001 
19) TWAGET = C 001 
THAPUT C 001 


TWAREAL C 001 
0 


OFO9 3951 ATOEND 


0060 3952 ATOCDLN 


equ” 
EQU  ATOEND-ATOCODE 


CODE LENGTH 


T LEN VALUE 


MAINTENANCE AREA 


0001 


9/11/81 12/08/81 21:31 PAGE 127 09/11/81 12/08/81 21:31 ot 


CROSS-REFERENCE 


O2| SYMBOL = T LEN VALUE REFERENCES 2] SYMBOL = T LEN VALUE DEFN REF 


002F 2585 TWASYS C O01 0002 2843 

O3)TWATWA C001 0000 2850 
THAWSWA C001 0004 2849 

2567 TWAXLATE C001 0000 2852 

2568 OAITWAXLEN C001 0008 2909 
TWAXMAP C001 0002 2904 290 
TWAXMAPL C00! 0003 2905 

O5]TWAXN = C 001 0007 2908 290 
TWAXNEXT C001 0004 2906 290 
TWAXSS C001 0006 2907 290; 

06] Two C 001 0002 3065 
UNCOND C001 0087 3076 
XEAOFF C001 0040 2923 

O7|XEBOFF C001 0020 2924 
XEXAMID C001 0080 2922 
XFERCTIL C001 0010 2925 

03] XFEREAON C 001 0004 2930 
XFEREBON C 001 0002 2931 
XFERTAON C 001 0008 2929 

OO] XFERWPON C 001 0001 2932 
XFLENBYT C 001 0110 3006 
XFLENARD C 001 0088 3007 

O[XNTAREAE C 001 O00F 2923 
XNTAREAS C 001 0008 2927 
XNTPRIV C001 0020 2926 

11)xR1 C001 0001 3050 3427 


12] XR2 C 001 0002 3051 3463 
ZERO C001 0000 3063 3455 
ZONEBITS C 001 OOFO 3081 


TOTAL STATEMENTS FLAGGED IN THIS A 


14) STATEMENTS FLAGGED AS WARNINGS 


16 


7 


PAGE 91 VO9/11/81 12/08/81 21:31 


09/11/81 12/08/81 21:31 
01 Ol 


CROSS-REFERENCE 


02] SYMBOL = T LEN VALUE REFERENCES 02] SyrBOL = T LEN VALUE 


SLDMSSLD C 001 0001 3040 


$ATACHER C001 6001 0135 
03] SATBATCH C 001 0090 0121 O3)SLDRELAD C 001 0001 3030 
SATCOMON C001 0040 0129 31983721 SLDSFTCH C 001 0008 3033 


Sis w 


SATCREAT C 001 0080 0108 0119 0120 0121 SLOTOADR C 001 0002 3031 


pe, Spt TEN ny 0 he Weegee, oo at a 


PAGE 128 VO9/11/81 12/08/81 21:31 


VO9/11/81 12/08/81 21:31 


01 


CROSS-REFERENCE 


MODULE NANE FLAG REFERE. 


O2|SYMBOL 1 LEN VALUE DEFN — REFERENCES 02} 


aaG13 531 


#SVAU 


TWASYS C001 0002 2848 
Q3}/TWATWA C001 0000 2850 
TWAWSWA C001 0004 2849 
TWAXLATE C 001 0000 2852 
Q4l TWAXLEN C 001 0008 2909 
TWAXMAP C001 0002 2904 2906 3788 3788 3823 3323 


O5}TWAXN CC 001 0007 2908 2909 3788 3788 3823 3823 
TWAXNEXT C 001 0004 2906 2907 
TWAXSS C001 0006 2907 2908 


XEAOFF C001 0040 2923 
O7|XEBOFF C001 0020 2924 
XEXAMID C001 0080 2922 
XFERCTL C001 0010 2925 
08] XFEREAON C 001 0004 2930 
XFEREBON C 001 0002 2931 
XFERIAON C 001 0008 2929 
O9|XFERWPON C 001 0001 2932 
XFLENBYT C 001 0110 3006 


aa478 


XFLENWRD C 001 0088 3007 
TOJXNTAREAE C 001 OO0F 2928 1 
XNTAREAS C 001 0008 2927 


END OF THE CHANGE ACTIVITY SU 


XNTPRIV C001 0020 2926 


11)xR1 C 001 0001 3050 — 3422* 3436* 3557* 3715 3859* 3864 3865 3866 3871 3872 3873 3906 ll 

3935 3935 3936 3936 3937 3937 3933 3942 3943 3943 3944 3945 

3946 CHANGE FLAG 
12] xR2 C 001 0002 3051 — 3463* 3542* 3938* 3940 3941 3941 3942* 3946* 12 


ZERO C001 0000 3063 3455 3497 80613 S317310 $51 SU 05 07/0 


ZONEBITS C 001 OOFO 3081 
13 13}aa023 = PI0310 SS CP 03 07/1 


TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 


aa041 = PI0316 SS DM 03 09/0 


" 
oo 
_ 


TASTATEMENTS FLAGGED AS WARNINGS 
aa0s2 ss PI0317_—«sTP_ SR 03 09/2. 


15 15}aa093 = P10342_:«TP «SN 03 01/0 


aa145 — PI0402 SS __ 04 03/3 
16 16 
aa254—-P10462_ SS NU_ 04 01/2 


Vv 17}aa419—- PIO802_ SSP 08: O1/1 


a0478 = PIO807 «TEL = -08- 06/11 


18 TO} END OF CHANGE FLAG REASONS 


19 


J1? 


VO9/11/81 12/08/81 21:31 PAGE 92 VO9/11/81 12/08/81 21:31 


01 01 


CROSS-REFERENCE 


O2]S¥mBOL = T LEN VALUE REFERENCES O2]SYMBOL = T LEN VALUE DEFN 


ALSSS A005 ODAC 3816 
A002 0E74 3887 
0008 
ATALLCOM A 005 ODAC 3815 


ATI NOPS AM NCCNn 46 


SLOMSSLD C 001 0001 3040 
O3/$LDRELAD C 001 0001 3030 3040 
SLOSFTCH C001 0008 3033 3042 +3045 


SLDTOADR C 001 0002 3031 3041 3044 


# ronan) nnn 2A QO WOA WIP WWD WAM WAR WANN WOKE BEM 209C 3096 ZHDOK 


V09/11/81 12/08/81 21:31 CHANGE ACTIVITY SUMMARY - 07/23/79 


01 
MODULE NAME FLAG REFERENCE 
#SVAU aaG13 531 
aa023 3374 3375 3376 3377 3378 3443 3444 3445 
03 3446 3447 3448 
40041 57 3331 3333 3334 3335 3336 3337 3338 
3339 3600 3601 3602 3603 3604 3605 3606 
04 3607 3608 3792 3834 
aa052 59 3379 3380 3381 3382 
3116 3147 3252 3253 3257 3258 
05 3273 3287 3292 3293 3297 3298 


3304 3305 3308 3313 3326 3330 3332 3349 


3730 3731 3732 3733 3734 3735 3736 
06 62 63 64 652 1919 3416 3428 3430 
3431 3432 3433 3434 3436 3449 3450 3451 
3452 3453 3454 3455 3456 3458 3459 3460 . 
07 3461 3463 3464 3470 3475 3477 3480 3481 
3482 3483 3484 3489 3492 3493 3494 3495 
3496 3497 3498 3500 3510 3519 
61 3714 
515 516 517 518 519 520 521 
523 524 525 526 527 528 529 
532 533 534 535 
aa478 195 349 


END OF THE CHANGE ACTIVITY SUMMARY 


CHANGE FLAG REASONS ~ VO?7/23/79 - AS OF 12/08/81 21:32 


$317310 SS1 SU 05 07/09/80 JWB 47N 


PI0310 SS CP 03 07/18/77 TWB 47E 


PI0316 SS DM 03 09/07/77? HDG 47S 


P10317 SR 03 09/22/77 MLA 48L 


P10342 SN 03 01/03/78 ACM 486 


P10402 SS __ 04 03/30/78 CKS 44A 


P10462 SS NU 04 01/25/79 WW 47R 


P0802 SSP 08 01/11/80 JWB 47N 


PIO807 TEL 08 06/16/80 KEW 48J 


VO9/11/81 12/08/81 21:31 PAGE 93 VO9/11/81 12/08/81 21:31 


CROSS-REF ERENCE 


T LEN VALUE DEFN REFERENCES O2|SYMBOL oT LEN VALUE DEFN Rt 
ALSSS A005 ODAC 3816 3672 3679 3824 3837* CSBDDTFA C 001 OOOF 0226 0; 
OBJALSSSE A 002 OE74 3887 —3824* 3834" 3837 OB3ICSBDDVCD C 001 0003 0171 01 


ARR C 001 OOO8 3053 3374* 3405 3767 3786 3877 CSRDECM C00) 000) 01462 #901 


